summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2014-09-15 13:32:50 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2014-09-15 13:32:50 +0200
commit3aa27acfcba1a8187aaa8727a0d55624b9bbf7ee (patch)
tree8a060a365eb075652cdc46cd8fae564d80889f69
parente17ee8e5778380dc5cb32ccc43486b83f939479d (diff)
downloadorg-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-xlisp/org.el12
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)