X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=emacs_el%2Fiedit-lib.el;h=636c0bb3bca37b443d122af220c99788e3c676fb;hb=5568b67a3f7f122b8fe0b0b923c8c003c6c0acba;hp=5af1785733ebd502140d5fd9ecbc4bbe7a208efb;hpb=423221d7dda497a5d4d6df2d667edc8e1c1b4ec7;p=lib.git

diff --git a/emacs_el/iedit-lib.el b/emacs_el/iedit-lib.el
index 5af1785..636c0bb 100644
--- a/emacs_el/iedit-lib.el
+++ b/emacs_el/iedit-lib.el
@@ -3,7 +3,7 @@
 
 ;; Copyright (C) 2010, 2011, 2012 Victor Ren
 
-;; Time-stamp: <2012-09-07 16:28:18 Victor Ren>
+;; Time-stamp: <2012-10-17 08:48:28 Victor Ren>
 ;; Author: Victor Ren <victorhge@gmail.com>
 ;; Keywords: occurrence region simultaneous rectangle refactoring
 ;; Version: 0.97
@@ -376,15 +376,14 @@ occurrence, it will abort Iedit mode."
                         (iedit-move-conjoined-overlays another-occurrence)))
                   ;; deletion
                   (dolist (another-occurrence (remove occurrence iedit-occurrences-overlays))
-                    (let* ((beginning (+ (overlay-start another-occurrence) offset))
-                           (ending (+ beginning change)))
-                      (delete-region beginning ending)
+                    (let ((beginning (+ (overlay-start another-occurrence) offset)))
+                      (delete-region beginning (+ beginning change))
                       (unless (eq beg end) ;; replacement
                         (goto-char beginning)
                         (insert-and-inherit value))
                       (run-hook-with-args 'after-change-functions
                                           beginning
-                                          ending
+                                          (+ beginning (- beg end))
                                           change)))))))))))))
 
 (defun iedit-next-occurrence ()