ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'bugfix'

This commit is contained in:
Ihor Radchenko 2024-02-19 13:20:47 +03:00
parent a8443f2c79 d5b98bcfb5
commit 0dd2c5ea39
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org.el
View File

@ -8938,7 +8938,7 @@ TYPE is the dynamic block type, as a string."
(defun org-dynamic-block-define (type func) (defun org-dynamic-block-define (type func)
"Define dynamic block TYPE with FUNC. "Define dynamic block TYPE with FUNC.
TYPE is a string. FUNC is the function creating the dynamic TYPE is a string. FUNC is the function creating the dynamic
block of such type." block of such type. FUNC must be able to accept zero arguments."
(pcase (assoc type org-dynamic-block-alist) (pcase (assoc type org-dynamic-block-alist)
(`nil (push (cons type func) org-dynamic-block-alist)) (`nil (push (cons type func) org-dynamic-block-alist))
(def (setcdr def func)))) (def (setcdr def func))))
@ -8954,7 +8954,7 @@ is non-nil, call the dynamic block function interactively."
(pcase (org-dynamic-block-function type) (pcase (org-dynamic-block-function type)
(`nil (error "No such dynamic block: %S" type)) (`nil (error "No such dynamic block: %S" type))
((and f (pred functionp)) ((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)))) (_ (error "Invalid function for dynamic block %S" type))))
(defun org-dblock-update (&optional arg) (defun org-dblock-update (&optional arg)