emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/iedit d6c99fa91a 130/301: set `iedit-rectangle` to the act


From: ELPA Syncer
Subject: [nongnu] elpa/iedit d6c99fa91a 130/301: set `iedit-rectangle` to the actual rectangle corners
Date: Mon, 10 Jan 2022 22:58:56 -0500 (EST)

branch: elpa/iedit
commit d6c99fa91a4c0c99a8f9c5568a5bada33055ee6e
Author: Le Wang <le.wang@agworld.com.au>
Commit: Le Wang <le.wang@agworld.com.au>

    set `iedit-rectangle` to the actual rectangle corners
    
    - after inserting necessary spaces to pad out full rectangle
---
 iedit-rect.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/iedit-rect.el b/iedit-rect.el
index 20aff1c8ec..c51392acac 100644
--- a/iedit-rect.el
+++ b/iedit-rect.el
@@ -105,8 +105,9 @@ Commands:
 (defun iedit-rectangle-start (beg end)
   "Start Iedit mode for the region as a rectangle."
   (barf-if-buffer-read-only)
+  (setq beg (copy-marker beg))
+  (setq end (copy-marker end t))
   (setq iedit-occurrences-overlays nil)
-  (setq iedit-rectangle (list beg end))
   (setq iedit-initial-string-local nil)
   (setq iedit-occurrence-keymap iedit-rect-keymap)
   (save-excursion
@@ -127,6 +128,7 @@ Commands:
                  (forward-line 1))
             until (> (point) end))
       (setq iedit-occurrences-overlays (nreverse iedit-occurrences-overlays))))
+  (setq iedit-rectangle (list beg end))
   (setq iedit-rectangle-mode (propertize
                     (concat " Iedit-rect:" (number-to-string (length 
iedit-occurrences-overlays)))
                     'face 'font-lock-warning-face))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]