mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-30 03:57:58 +00:00
Fix "Not at a block" error on special blocks
* lisp/org.el (org-hide-block-toggle): Fix "Not at a block" error on special blocks. Thanks to Fabrice Popineau for reporting it. http://permalink.gmane.org/gmane.emacs.orgmode/90663
This commit is contained in:
parent
6eb9827d53
commit
4cb0bc089f
|
@ -7340,7 +7340,7 @@ is non-nil, hide it unconditionally."
|
||||||
(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 quote-block
|
||||||
src-block verse-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))
|
||||||
|
|
Loading…
Reference in a new issue