branch: externals/tempel
commit b88c58a89390cf3834de898109c5e69a5cf434cd
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Minor cleanup
---
README.org | 2 +-
tempel.el | 13 +++++--------
2 files changed, 6 insertions(+), 9 deletions(-)
diff --git a/README.org b/README.org
index 82b31eb002..f5bcc510b6 100644
--- a/README.org
+++ b/README.org
@@ -209,7 +209,7 @@ access the template's named fields.
(center "#+begin_center" n> r> n> "#+end_center")
(comment "#+begin_comment" n> r> n> "#+end_comment")
(verse "#+begin_verse" n> r> n> "#+end_verse")
- (src "#+begin_src " p n> r> n> "#+end_src")
+ (src "#+begin_src " p n> r> n> "#+end_src" :post (org-edit-src-code))
(elisp "#+begin_src emacs-lisp" n> r> n "#+end_src" :post
(org-edit-src-code))
;; Local Variables:
diff --git a/tempel.el b/tempel.el
index 251615c790..1aa044e6da 100644
--- a/tempel.el
+++ b/tempel.el
@@ -561,8 +561,7 @@ This is meant to be a source in `tempel-template-sources'."
(when-let ((beg (tempel--beginning))
(end (tempel--end)))
;; TODO abort only the topmost template?
- (while tempel--active
- (tempel--disable))
+ (while tempel--active (tempel--disable))
(delete-region beg end)))
(defun tempel--disable (&optional st)
@@ -585,12 +584,10 @@ This is meant to be a source in
`tempel-template-sources'."
(defun tempel--done (&optional st)
"Finalize template ST, or last template."
- (let* ((st (or st (car tempel--active)))
- (range (caar st))
- (env (cdr st))
- (buffer (current-buffer)))
- (eval (overlay-get range 'tempel--post) env)
- (with-current-buffer buffer
+ (let ((st (or st (car tempel--active)))
+ (buf (current-buffer)))
+ (eval (overlay-get (caar st) 'tempel--post) (cdr st))
+ (with-current-buffer buf
(tempel--disable st))))
(defun tempel--interactive (capf)
