From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 15 Oct 1997 23:48:01 +0000 (+0000)
Subject: (outline-back-to-heading): New arg INVISIBLE-OK.
X-Git-Tag: emacs-20.3~3011
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dafc511c1dd70baf6586a07b1374d721ca6cbcd3;p=emacs.git

(outline-back-to-heading): New arg INVISIBLE-OK.
(outline-on-heading-p):
(show-entry): If the heading is invisible, show it too.
(hide-other):
---

diff --git a/lisp/textmodes/outline.el b/lisp/textmodes/outline.el
index f9717798b3d..b15f3b9b75f 100644
--- a/lisp/textmodes/outline.el
+++ b/lisp/textmodes/outline.el
@@ -320,26 +320,27 @@ at the end of the buffer."
   "Non-nil if the character after point is visible."
   (not (get-char-property (point) 'invisible)))
 
-(defun outline-back-to-heading ()
+(defun outline-back-to-heading (&optional invisible-ok)
   "Move to previous heading line, or beg of this line if it's a heading.
-Only visible heading lines are considered."
+Only visible heading lines are considered, unless INVISIBLE-OK is non-nil."
   (beginning-of-line)
-  (or (outline-on-heading-p)
+  (or (outline-on-heading-p t)
       (let (found)
 	(save-excursion
 	  (while (not found)
 	    (or (re-search-backward (concat "^\\(" outline-regexp "\\)")
 				    nil t)
 		(error "before first heading"))
-	    (setq found (and (outline-visible) (point)))))
+	    (setq found (and (or invisible-ok (outline-visible)) (point)))))
 	(goto-char found)
 	found)))
 
-(defun outline-on-heading-p ()
-  "Return t if point is on a (visible) heading line."
+(defun outline-on-heading-p (&optional invisible-ok)
+  "Return t if point is on a (visible) heading line.
+If INVISIBLE-OK is non-nil, an invisible heading line is ok too."
   (save-excursion
     (beginning-of-line)
-    (and (bolp) (outline-visible)
+    (and (bolp) (or invisible-ok (outline-visible))
 	 (looking-at outline-regexp))))
 
 (defun outline-end-of-heading ()
@@ -455,10 +456,13 @@ If FLAG is nil then text is shown, while if FLAG is t the text is hidden."
    (outline-flag-region (point) (progn (outline-next-preface) (point)) t)))
 
 (defun show-entry ()
-  "Show the body directly following this heading."
+  "Show the body directly following this heading.
+Show the heading too, if it is currently invisible."
   (interactive)
   (save-excursion
-   (outline-flag-region (point) (progn (outline-next-preface) (point)) nil)))
+    (outline-back-to-heading t)
+    (outline-flag-region (1- (point))
+			 (progn (outline-next-preface) (point)) nil)))
 
 (defun hide-body ()
   "Hide all of buffer except headings."
@@ -526,22 +530,16 @@ If FLAG is nil then text is shown, while if FLAG is t the text is hidden."
 	(goto-char end)))))
 
 (defun hide-other ()
-  "Hide everything except for the current body and the parent headings."
+  "Hide everything except current body and parent and top-level headings."
   (interactive)
   (hide-sublevels 1)
-  (let ((last (point))
-	(pos (point)))
-    (while (save-excursion
-	     (and (end-of-line 0)
-		  (not (outline-visible))))
-      (save-excursion
-	(beginning-of-line)
-	(if (eq last (point))
-	    (progn
-	      (outline-next-heading)
-	      (outline-flag-region last (point) nil))
-	  (show-children)
-	  (setq last (point)))))))
+  (save-excursion
+    (outline-back-to-heading t)
+    (show-entry)
+    (while (condition-case nil (progn (outline-up-heading 1) t) (error nil))
+      (outline-flag-region (1- (point))
+			   (save-excursion (forward-line 1) (point))
+			   nil))))
 
 (defun outline-flag-subtree (flag)
   (save-excursion