diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2014-09-15 20:21:20 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2014-09-15 20:21:20 +0200 |
commit | 2afd5fbb09d0117445909796c9c24517f2edd0ae (patch) | |
tree | dae56c47d66198c47c9c9bf658dae4464d81beaf | |
parent | 9ba9f916e87297d863c197cb87199adbb39da894 (diff) | |
download | org-mode-2afd5fbb09d0117445909796c9c24517f2edd0ae.tar.gz |
Fix `org-hide-block-toggle-maybe'
* lisp/org.el (org-hide-block-toggle-maybe): Never throw an error.
Improve docstring.
(org-hide-block-toggle): Improve docstring.
-rwxr-xr-x | lisp/org.el | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/lisp/org.el b/lisp/org.el index bf56218..14eb41c 100755 --- a/lisp/org.el +++ b/lisp/org.el @@ -7322,20 +7322,16 @@ Optional arguments START and END can be used to limit the range." (setq org-hide-block-overlays nil)) (defun org-hide-block-toggle-maybe () - "Toggle visibility of block at point." + "Toggle visibility of block at point. +Do not throw an error. Return t when toggling is successful." (interactive) - (let ((case-fold-search t)) - (if (save-excursion - (beginning-of-line 1) - (looking-at org-block-regexp)) - (progn (org-hide-block-toggle) - t) ;; to signal that we took action - nil))) ;; to signal that we did not + (ignore-errors (org-hide-block-toggle) t)) (defun org-hide-block-toggle (&optional force) "Toggle the visibility of the current block. When optional argument FORCE is `off', make block visible. If it -is non-nil, hide it unconditionally." +is non-nil, hide it unconditionally. Throw an error when not at +a block." (interactive) (let ((element (org-element-at-point))) (unless (memq (org-element-type element) |