mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 21:37:50 +00:00
Code Releases Activity

Fix "Not at a block" error on export blocks

Browse source 
* lisp/org.el (org-hide-block-toggle): Fix "Not at a block" error on
  export blocks.
This commit is contained in:
Nicolas Goaziou 2014-09-12 20:58:47 +02:00
parent 4cb0bc089f
commit 70a0c5bfa1
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/org.el
View file

@ -7339,8 +7339,9 @@ is non-nil, hide it unconditionally."
(interactive) (interactive)
(let ((element (org-element-at-point))) (let ((element (org-element-at-point)))
(unless (memq (org-element-type element) (unless (memq (org-element-type element)
'(center-block comment-block example-block quote-block '(center-block comment-block example-block export-block
special-block src-block verse-block)) quote-block special-block src-block
verse-block))
(user-error "Not at a block")) (user-error "Not at a block"))
(let* ((start (save-excursion (let* ((start (save-excursion
(goto-char (org-element-property :post-affiliated element)) (goto-char (org-element-property :post-affiliated element))