From 46f5c74dea5efd96bd9f272c2815ffe11c2e6ec9 Mon Sep 17 00:00:00 2001 From: Le Wang Date: Wed, 10 Oct 2012 23:05:33 +0800 Subject: [PATCH] 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 a668956..b808c3c 100644 --- a/iedit-rect.el +++ b/iedit-rect.el @@ -104,8 +104,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 @@ -126,6 +127,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))