From 28da0649e68cefb308cee3884633eab33824326a Mon Sep 17 00:00:00 2001 From: Marco Wahl Date: Sun, 6 Feb 2022 23:57:14 +0100 Subject: [PATCH] org-attach: Extend range for org-attach-commands * lisp/org-attach.el (org-attach): Get rid of the use of the second arg of `commandp`, by making `org-attach-commands` accept any commands (including keyboard macros). Patch from Stefan Monnier. https://list.orgmode.org/jwvwni7y70r.fsf-monnier+emacs@gnu.org/ --- lisp/org-attach.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org-attach.el b/lisp/org-attach.el index 5cf51ba72..5ee2b84b2 100644 --- a/lisp/org-attach.el +++ b/lisp/org-attach.el @@ -320,8 +320,8 @@ Shows a list of commands and prompts for another key to execute a command." (let ((command (cl-some (lambda (entry) (and (memq c (nth 0 entry)) (nth 1 entry))) org-attach-commands))) - (if (commandp command t) - (call-interactively command) + (if (commandp command) + (command-execute command) (error "No such attachment command: %c" c)))))) (defun org-attach-dir (&optional create-if-not-exists-p no-fs-check)