[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/tempel d2b4f7ce38 1/3: Rename tempel--state to tempel--
From: |
ELPA Syncer |
Subject: |
[elpa] externals/tempel d2b4f7ce38 1/3: Rename tempel--state to tempel--field |
Date: |
Fri, 11 Feb 2022 09:57:48 -0500 (EST) |
branch: externals/tempel
commit d2b4f7ce38cfe014c71dbde36a788c023f6173f1
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Rename tempel--state to tempel--field
---
tempel.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/tempel.el b/tempel.el
index d1de0bd352..b1395e5d2e 100644
--- a/tempel.el
+++ b/tempel.el
@@ -115,7 +115,7 @@ must return a list of templates which apply to the buffer
or context."
"List of active templates.
Each template state is a pair, where the car is a list of overlays and
the cdr is an alist of variable bindings. The template state is attached
-to each overlay as the property `tempel--state'. Furthermore overlays
+to each overlay as the property `tempel--field'. Furthermore overlays
may be named with `tempel--name' or carry an evaluatable Lisp expression
`tempel--form'.")
@@ -188,7 +188,7 @@ BEG and END are the boundaries of the modification."
(delete-region (overlay-start ov) (overlay-end ov)))
;; Update field after modification
(after
- (let ((st (overlay-get ov 'tempel--state)))
+ (let ((st (overlay-get ov 'tempel--field)))
(unless undo-in-progress
(move-overlay ov (overlay-start ov) (max end (overlay-end ov))))
(when-let (name (overlay-get ov 'tempel--name))
@@ -252,7 +252,7 @@ INIT is the optional initial input."
(insert init)
(move-overlay ov (overlay-start ov) (point)))
(tempel--update-mark ov)
- (overlay-put ov 'tempel--state st)
+ (overlay-put ov 'tempel--field st)
(overlay-put ov 'modification-hooks (list #'tempel--field-modified))
(overlay-put ov 'insert-in-front-hooks (list #'tempel--field-modified))
(overlay-put ov 'insert-behind-hooks (list #'tempel--field-modified))
@@ -345,7 +345,7 @@ PROMPT is the optional prompt/default value."
(push st tempel--active)))
(if (cddaar tempel--active)
(unless (cl-loop for ov in (caar tempel--active)
- thereis (and (overlay-get ov 'tempel--state)
+ thereis (and (overlay-get ov 'tempel--field)
(eq (point) (overlay-start ov))))
;; Jump to first field
(tempel-next 1))
@@ -452,7 +452,7 @@ PROMPT is the optional prompt/default value."
"Return the field overlay at point."
(cl-loop for ov in (overlays-in (max (point-min) (1- (point)))
(min (point-max) (1+ (point))))
- thereis (and (overlay-get ov 'tempel--state) ov)))
+ thereis (and (overlay-get ov 'tempel--field) ov)))
(defun tempel-kill ()
"Kill the field contents."