diff options
| author | Stefan Monnier <[email protected]> | 2002-05-20 18:32:07 +0000 |
|---|---|---|
| committer | Stefan Monnier <[email protected]> | 2002-05-20 18:32:07 +0000 |
| commit | f67376256a1b4271daf99dde2322e8c3f5fccdb2 (patch) | |
| tree | ad9ef0c3adf15cc187b2986192f8cef67483876e /lisp/textmodes | |
| parent | f69610185c94bb81e646f04aaa49a8e828cc1540 (diff) | |
(outline-reveal-toggle-invisible): Reverse the meaning of the second arg.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/outline.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/textmodes/outline.el b/lisp/textmodes/outline.el index 941de59fbf..d7618ea2aa 100644 --- a/lisp/textmodes/outline.el +++ b/lisp/textmodes/outline.el @@ -82,6 +82,7 @@ in the file it applies to." (define-key map "\C-o" 'hide-other) (define-key map "\C-^" 'outline-promote) (define-key map "\C-v" 'outline-demote) + ;; Where to bind toggle and insert-heading ? map)) (defvar outline-mode-menu-bar-map @@ -497,10 +498,10 @@ If FLAG is nil then text is shown, while if FLAG is t the text is hidden." ;; Seems only used by lazy-lock. I.e. obsolete. (run-hooks 'outline-view-change-hook)) -(defun outline-reveal-toggle-invisible (o revealp) +(defun outline-reveal-toggle-invisible (o hidep) (save-excursion (goto-char (overlay-start o)) - (if (null revealp) + (if hidep ;; When hiding the area again, we could just clean it up and let ;; reveal do the rest, by simply doing: ;; (remove-overlays (overlay-start o) (overlay-end o) @@ -522,7 +523,7 @@ If FLAG is nil then text is shown, while if FLAG is t the text is hidden." ;; inside one of the sublevels, reveal will call us again. ;; But we need to preserve the original overlay. (let ((o1 (copy-overlay o))) - (overlay-put o1 'invisible 'outline) ;We rehide some of the text. + (overlay-put o 'invisible nil) ;Show (most of) the text. (while (progn (show-entry) (show-children) |