[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/tempel 774aebc5aa 1/3: Rename variable
|
From: |
ELPA Syncer |
|
Subject: |
[elpa] externals/tempel 774aebc5aa 1/3: Rename variable |
|
Date: |
Wed, 10 May 2023 13:59:33 -0400 (EDT) |
branch: externals/tempel
commit 774aebc5aa148d911cb28b42a19c4f8578e7074f
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Rename variable
---
tempel.el | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/tempel.el b/tempel.el
index aeab4f77b7..4c2148a5df 100644
--- a/tempel.el
+++ b/tempel.el
@@ -398,16 +398,16 @@ If a field was added, return it."
(setf (overlay-end ov) (point)))))
;; Activate template
(let ((st (cons nil nil))
- (range (point))
+ (ov (point))
(tempel--inhibit-hooks t))
(while (and template (not (keywordp (car template))))
(tempel--element st region (pop template)))
- (setq range (make-overlay range (point) nil t))
- (push range (car st))
- (overlay-put range 'modification-hooks (list #'tempel--range-modified))
- (overlay-put range 'tempel--range st)
- (overlay-put range 'tempel--post (plist-get plist :post))
- ;;(overlay-put range 'face 'region) ;; TODO debug
+ (setq ov (make-overlay ov (point) nil t))
+ (push ov (car st))
+ (overlay-put ov 'modification-hooks (list #'tempel--range-modified))
+ (overlay-put ov 'tempel--range st)
+ (overlay-put ov 'tempel--post (plist-get plist :post))
+ ;;(overlay-put ov 'face 'region) ;; TODO debug
(push st tempel--active)))
(cond
((cl-loop for ov in (caar tempel--active)