forked from mirrors/org-mode
org-macro: Small refactoring
* lisp/org-macro.el (org-macro-initialize-templates): Remove spurious lambda funcall.
This commit is contained in:
parent
359572d37e
commit
2f58e3c011
|
@ -125,12 +125,12 @@ function installs the following ones: \"property\",
|
||||||
(if old-template (setcdr old-template (cdr cell))
|
(if old-template (setcdr old-template (cdr cell))
|
||||||
(push cell templates))))))
|
(push cell templates))))))
|
||||||
;; Install hard-coded macros.
|
;; Install hard-coded macros.
|
||||||
(mapc (lambda (cell) (funcall update-templates cell))
|
(mapc update-templates
|
||||||
(list (cons "property" "(eval (org-entry-get nil \"$1\" 'selective))")
|
(list (cons "property" "(eval (org-entry-get nil \"$1\" 'selective))")
|
||||||
(cons "time" "(eval (format-time-string \"$1\"))")))
|
(cons "time" "(eval (format-time-string \"$1\"))")))
|
||||||
(let ((visited-file (buffer-file-name (buffer-base-buffer))))
|
(let ((visited-file (buffer-file-name (buffer-base-buffer))))
|
||||||
(when (and visited-file (file-exists-p visited-file))
|
(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))
|
(list (cons "input-file" (file-name-nondirectory visited-file))
|
||||||
(cons "modification-time"
|
(cons "modification-time"
|
||||||
(format "(eval (format-time-string \"$1\" '%s))"
|
(format "(eval (format-time-string \"$1\" '%s))"
|
||||||
|
|
Loading…
Reference in New Issue