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

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

[elpa] externals/tempel 934bf35f4b 37/82: Set deleted overlays to nil


From: ELPA Syncer
Subject: [elpa] externals/tempel 934bf35f4b 37/82: Set deleted overlays to nil
Date: Sun, 9 Jan 2022 20:58:43 -0500 (EST)

branch: externals/tempel
commit 934bf35f4b45c3153db2cc87950e8984fe89ea73
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Set deleted overlays to nil
---
 tempel.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/tempel.el b/tempel.el
index d727806c58..9619234bae 100644
--- a/tempel.el
+++ b/tempel.el
@@ -153,18 +153,17 @@ BEG and END are the boundaries of the modification."
   "Replace region beween BEG and END with STR.
 If OV is alive, move it."
   (let ((old (buffer-substring-no-properties beg end)))
+    (setq ov (and ov (overlay-buffer ov) ov))
     (unless (equal str old)
       (unless (eq buffer-undo-list t)
-        (push (list 'apply #'tempel--replace
-                    beg (+ beg (length str)) ov old)
+        (push (list 'apply #'tempel--replace beg (+ beg (length str)) ov old)
               buffer-undo-list))
       (with-silent-modifications
         (save-excursion
           (goto-char beg)
           (delete-char (- end beg))
           (insert str)
-          (when (overlay-buffer ov)
-            (move-overlay ov beg (point))))))))
+          (when ov (move-overlay ov beg (point))))))))
 
 (defun tempel--field (st &optional name init)
   "Add template field to ST.



reply via email to

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