diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2014-09-15 13:32:50 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2014-09-15 13:32:50 +0200 |
commit | 3aa27acfcba1a8187aaa8727a0d55624b9bbf7ee (patch) | |
tree | 8a060a365eb075652cdc46cd8fae564d80889f69 | |
parent | e17ee8e5778380dc5cb32ccc43486b83f939479d (diff) | |
download | org-mode-3aa27acfcba1a8187aaa8727a0d55624b9bbf7ee.tar.gz |
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
-rwxr-xr-x | lisp/org.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/org.el b/lisp/org.el index 7c82420..f5fe259 100755 --- a/lisp/org.el +++ b/lisp/org.el @@ -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) |