[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals-release/org d6c3ab08b4 1/2: org-dynamic-block-insert-db
From: |
ELPA Syncer |
Subject: |
[elpa] externals-release/org d6c3ab08b4 1/2: org-dynamic-block-insert-dblock: Do not call non-commands interactively |
Date: |
Mon, 19 Feb 2024 06:58:36 -0500 (EST) |
branch: externals-release/org
commit d6c3ab08b42a78dc521be678fdfc45b4552a9784
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
org-dynamic-block-insert-dblock: Do not call non-commands interactively
* lisp/org.el (org-dynamic-block-insert-dblock): When insert command
for a dynamic block is not interactive, do not try to call it
interactively.
Reported-by: chris <inkbottle007@gmail.com>
Link: https://orgmode.org/list/5790810.DvuYhMxLoT@nixos
---
lisp/org.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/org.el b/lisp/org.el
index 231ed094b3..7194710887 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -8796,7 +8796,7 @@ is non-nil, call the dynamic block function
interactively."
(pcase (org-dynamic-block-function type)
(`nil (error "No such dynamic block: %S" type))
((and f (pred functionp))
- (if interactive-p (call-interactively f) (funcall f)))
+ (if (and interactive-p (commandp f)) (call-interactively f) (funcall f)))
(_ (error "Invalid function for dynamic block %S" type))))
(defun org-dblock-update (&optional arg)