branch: externals/tempel
commit 5410821b3cf239c03649ecba88d7b733a331f7d7
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Fix for Emacs 29
---
tempel.el | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/tempel.el b/tempel.el
index 16c947eb9e..dd78a59f72 100644
--- a/tempel.el
+++ b/tempel.el
@@ -525,9 +525,12 @@ This is meant to be a source in `tempel-template-sources'."
(defun tempel--field-at-point ()
"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--field) ov)))
+ (let ((start most-positive-fixnum) field)
+ (dolist (ov (overlays-in (max (point-min) (1- (point)))
+ (min (point-max) (1+ (point)))))
+ (when (and (overlay-get ov 'tempel--field) (< (overlay-start ov) start))
+ (setq start (overlay-start ov) field ov)))
+ field))
(defun tempel-kill ()
"Kill the field contents."
