[elpa] externals/tempel b88c58a893 2/2: Minor cleanup

[ELPA Syncer]

branch: externals/tempel
commit b88c58a89390cf3834de898109c5e69a5cf434cd
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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)