branch: externals/tempel
commit 507e9ed4de1844be2414472bd1ec1b25ee6fe262
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Improve field initialization
---
tempel.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/tempel.el b/tempel.el
index 27b4f792cb..697223048e 100644
--- a/tempel.el
+++ b/tempel.el
@@ -178,10 +178,10 @@ INIT is the optional initial input."
(overlay-put ov 'tempel--state st)
(when name
(overlay-put ov 'tempel--name name)
- (when init
- (setf (alist-get name (cdr st)) init)))
- (when-let (str (or init (and name (alist-get name (cdr st)))))
- (insert str)
+ (setq init (or init (alist-get name (cdr st)) ""))
+ (setf (alist-get name (cdr st)) init))
+ (when (and init (not (equal init "")))
+ (insert init)
(move-overlay ov (overlay-start ov) (point)))))
(defun tempel--form (st form)
