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

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

[nongnu] elpa/iedit d7d5931566 127/301: Fix the arguments for after-chan


From: ELPA Syncer
Subject: [nongnu] elpa/iedit d7d5931566 127/301: Fix the arguments for after-change-functions
Date: Mon, 10 Jan 2022 22:58:56 -0500 (EST)

branch: elpa/iedit
commit d7d5931566c16028d87486a4e88097984827af54
Author: Victor Ren <victorhge@gmail.com>
Commit: Victor Ren <victorhge@gmail.com>

    Fix the arguments for after-change-functions
---
 iedit-lib.el | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/iedit-lib.el b/iedit-lib.el
index 603304efc2..636c0bb3bc 100644
--- a/iedit-lib.el
+++ b/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,16 +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
-                                          (min ending
-                                               (point-max))
+                                          (+ beginning (- beg end))
                                           change)))))))))))))
 
 (defun iedit-next-occurrence ()



reply via email to

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