Sfoglia il codice sorgente

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/
Marco Wahl 3 anni fa
parent
commit
28da0649e6
1 ha cambiato i file con 2 aggiunte e 2 eliminazioni
  1. 2 2
      lisp/org-attach.el

+ 2 - 2
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)