tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Fix "Not at a block" error on dynamic blocks 

* lisp/org.el (org-hide-block-toggle, org-indent-block): Recognize
  dynamic blocks.

Thanks to Eric S Fraga for reporting it.
http://permalink.gmane.org/gmane.emacs.orgmode/90711
This commit is contained in:
Nicolas Goaziou 2014-09-15 13:32:50 +02:00
parent e17ee8e577
commit 3aa27acfcb
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/org.el
View File

@ -7339,9 +7339,9 @@ is non-nil, hide it unconditionally."
(interactive)
(let ((element (org-element-at-point)))
(unless (memq (org-element-type element)
'(center-block comment-block example-block export-block
quote-block special-block src-block
verse-block))
'(center-block comment-block dynamic-block example-block
export-block quote-block special-block
src-block verse-block))
(user-error "Not at a block"))
(let* ((start (save-excursion
(goto-char (org-element-property :post-affiliated element))
@ -22677,9 +22677,9 @@ assumed to be significant there."
(user-error "Not at a block"))
(let ((element (org-element-at-point)))
(unless (memq (org-element-type element)
'(comment-block center-block example-block export-block
quote-block special-block src-block
verse-block))
'(comment-block center-block dynamic-block example-block
export-block quote-block special-block
src-block verse-block))
(user-error "Not at a block"))
(org-with-wide-buffer
(org-indent-region (org-element-property :begin element)