From 00958fa2aa6b521f820b5baf3f3fc71176af8789 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 6 Nov 2004 12:10:38 +0000 Subject: [PATCH] (hide-body): Don't hide lines at the top of the file that precede the first header line. --- lisp/outline.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/outline.el b/lisp/outline.el index 2d2663b12f2..89e9e193e9c 100644 --- a/lisp/outline.el +++ b/lisp/outline.el @@ -723,7 +723,7 @@ Show the heading too, if it is currently invisible." (progn (outline-next-preface) (point)) nil))) (defun hide-body () - "Hide all of buffer except headings." + "Hide all body lines in buffer, leaving all headings visible." (interactive) (hide-region-body (point-min) (point-max))) @@ -738,7 +738,8 @@ Show the heading too, if it is currently invisible." (narrow-to-region start end) (goto-char (point-min)) (if (outline-on-heading-p) - (outline-end-of-heading)) + (outline-end-of-heading) + (outline-next-preface)) (while (not (eobp)) (outline-flag-region (point) (progn (outline-next-preface) (point)) t) -- 2.39.2