summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2014-09-15 20:21:20 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2014-09-15 20:21:20 +0200
commit2afd5fbb09d0117445909796c9c24517f2edd0ae (patch)
treedae56c47d66198c47c9c9bf658dae4464d81beaf
parent9ba9f916e87297d863c197cb87199adbb39da894 (diff)
downloadorg-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-xlisp/org.el14
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)