branch: externals/org
commit 28da0649e68cefb308cee3884633eab33824326a
Author: Marco Wahl <[email protected]>
Commit: Marco Wahl <[email protected]>
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/[email protected]/
---
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)
