diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS index 518a6faa6..4d9530acf 100644 --- a/etc/ORG-NEWS +++ b/etc/ORG-NEWS @@ -130,9 +130,8 @@ numbered list to a lettered list. *** Add a dispatcher command to insert dynamic blocks -You can add dynamic block into ~org-dynamic-block-alist~ with function -~org-dynamic-block-define~. All dynamic blocks in -~org-dynamic-block-define~ can be used by +You can add new dynamic blocks with function +~org-dynamic-block-define~. All such dynamic blocks can be used by ~org-dynamic-block-insert-dblock~ command. *** Babel diff --git a/lisp/org.el b/lisp/org.el index db025a157..d8edafffc 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -9575,16 +9575,13 @@ If COMMAND is not given, use `org-update-dblock'." (unless (re-search-forward org-dblock-end-re nil t) (error "Dynamic block not terminated")))))) -(defcustom org-dynamic-block-alist nil +(defvar org-dynamic-block-alist nil "Alist defining all the Org dynamic blocks. + The key is the dynamic block type name, as a string. The value -is the function used to insert the dynamic block." - :group 'org-block - :package-version '(Org . "9.3") - :type '(alist :tag "Dynamic block name" - :key-type string - :value-type function) - :safe #'listp) +is the function used to insert the dynamic block. + +Use `org-dynamic-block-define' to populate it.") (defun org-dynamic-block-function (type) "Return function associated to a given dynamic block type.