From 2f58e3c011ec84f621905332d8df68b83da580d9 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Tue, 24 Mar 2015 09:44:27 +0100 Subject: [PATCH] org-macro: Small refactoring * lisp/org-macro.el (org-macro-initialize-templates): Remove spurious lambda funcall. --- lisp/org-macro.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org-macro.el b/lisp/org-macro.el index ac5b123b1..6a656bdb9 100644 --- a/lisp/org-macro.el +++ b/lisp/org-macro.el @@ -125,12 +125,12 @@ function installs the following ones: \"property\", (if old-template (setcdr old-template (cdr cell)) (push cell templates)))))) ;; Install hard-coded macros. - (mapc (lambda (cell) (funcall update-templates cell)) + (mapc update-templates (list (cons "property" "(eval (org-entry-get nil \"$1\" 'selective))") (cons "time" "(eval (format-time-string \"$1\"))"))) (let ((visited-file (buffer-file-name (buffer-base-buffer)))) (when (and visited-file (file-exists-p visited-file)) - (mapc (lambda (cell) (funcall update-templates cell)) + (mapc update-templates (list (cons "input-file" (file-name-nondirectory visited-file)) (cons "modification-time" (format "(eval (format-time-string \"$1\" '%s))" -- 2.11.4.GIT