[elpa] externals/speedrect 896f577d06 08/12: replace-with-rect: move to column first to properly add spaces

[ELPA Syncer]

branch: externals/speedrect
commit 896f577d064eb0411dcc178cf1df71f590911dd7
Author: JD Smith <93749+jdtsmith@users.noreply.github.com>
Commit: JD Smith <93749+jdtsmith@users.noreply.github.com>

    replace-with-rect: move to column first to properly add spaces
    
    When yanking from calc at end of columns, you may need to pad spaces
    first prior to yanking.  Hence a call to move-to-column.
---
 speedrect.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/speedrect.el b/speedrect.el
index 6452cd7db2..afca080060 100644
--- a/speedrect.el
+++ b/speedrect.el
@@ -193,6 +193,7 @@ full the full rectangle."
   (delete-rectangle-line startcol endcol nil)
   (let ((el (car lines))
        (w (- width (or from 0) (- (or to 0)))))
+    (move-to-column startcol t)
     (if el
        (progn
          (insert (substring el from (+ width to)))