changeset 45429:5d3b861665f0

(outline-reveal-toggle-invisible): Reverse the meaning of the second arg.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 20 May 2002 18:32:07 +0000
parents ac7e0cc03aed
children d207a1784c9e
files lisp/textmodes/outline.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/outline.el	Mon May 20 18:31:20 2002 +0000
+++ b/lisp/textmodes/outline.el	Mon May 20 18:32:07 2002 +0000
@@ -82,6 +82,7 @@
     (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 @@
   ;; 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 @@
       ;; 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)