[elpa] externals/org 28da0649e6 2/2: org-attach: Extend range for org-attach-commands

[ELPA Syncer]

branch: externals/org
commit 28da0649e68cefb308cee3884633eab33824326a
Author: Marco Wahl <marcowahlsoft@gmail.com>
Commit: Marco Wahl <marcowahlsoft@gmail.com>

    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 5cf51ba728..5ee2b84b2f 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)