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

org-indent-drawer, org-indent-block: Update docstring 

* lisp/org.el (org-indent-drawer):
(org-indent-block): Document that an error is signaled when not at a
drawer/block.

Reported-by: gerard.vermeulen@posteo.net
Link: https://list.orgmode.org/orgmode/abc9e25cebcba21d941435e5f39e72d9@posteo.net/
This commit is contained in:
Ihor Radchenko 2024-01-12 20:17:12 +01:00
parent 77a1ddd39f
commit 1aa4552e5c
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org.el
View File

@ -19631,7 +19631,8 @@ assumed to be significant there."
(set-marker end nil)))) (set-marker end nil))))
(defun org-indent-drawer () (defun org-indent-drawer ()
"Indent the drawer at point." "Indent the drawer at point.
Signal an error when not at a drawer."
(interactive) (interactive)
(let ((element (org-element-at-point))) (let ((element (org-element-at-point)))
(unless (org-element-type-p element '(drawer property-drawer)) (unless (org-element-type-p element '(drawer property-drawer))
@ -19642,7 +19643,8 @@ assumed to be significant there."
(message "Drawer at point indented")) (message "Drawer at point indented"))
(defun org-indent-block () (defun org-indent-block ()
"Indent the block at point." "Indent the block at point.
Signal an error when not at a block."
(interactive) (interactive)
(let ((element (org-element-at-point))) (let ((element (org-element-at-point)))
(unless (org-element-type-p (unless (org-element-type-p