From a8abc9a865779b0b4f3ae410bb0736f2dd54a13f Mon Sep 17 00:00:00 2001 From: arthur Date: Fri, 19 Dec 2025 12:47:55 +0100 Subject: [PATCH] Let %() evaluate both variables and functions --- lisp/org/org-capture.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lisp/org/org-capture.el b/lisp/org/org-capture.el index 9f737893e6a..1acce99a74e 100644 --- a/lisp/org/org-capture.el +++ b/lisp/org/org-capture.el @@ -1932,14 +1932,12 @@ org-capture-expand-embedded-elisp (while (re-search-forward "%(" nil t) (cond ((get-text-property (match-beginning 0) 'org-embedded-elisp) - (goto-char (match-beginning 0)) - (let ((template-start (point))) - (forward-char 1) + (let ((template-start (match-beginning 0))) (let* ((sexp (read (current-buffer))) (result (org-eval (org-capture--expand-keyword-in-embedded-elisp sexp)))) - (delete-region template-start (point)) + (delete-region template-start (1+ (point))) (cond ((not result) nil) ((stringp result) (insert result)) -- 2.52.0