[Emacs-diffs] Changes to emacs/lisp/outline.el

[Eli Zaretskii]

Index: emacs/lisp/outline.el
diff -c emacs/lisp/outline.el:1.8 emacs/lisp/outline.el:1.9
*** emacs/lisp/outline.el:1.8   Sat Oct 16 15:33:59 2004
--- emacs/lisp/outline.el       Sat Nov  6 12:10:38 2004
***************
*** 723,729 ****
                         (progn (outline-next-preface) (point)) nil)))
  
  (defun hide-body ()
!   "Hide all of buffer except headings."
    (interactive)
    (hide-region-body (point-min) (point-max)))
  
--- 723,729 ----
                         (progn (outline-next-preface) (point)) nil)))
  
  (defun hide-body ()
!   "Hide all body lines in buffer, leaving all headings visible."
    (interactive)
    (hide-region-body (point-min) (point-max)))
  
***************
*** 738,744 ****
        (narrow-to-region start end)
        (goto-char (point-min))
        (if (outline-on-heading-p)
!           (outline-end-of-heading))
        (while (not (eobp))
          (outline-flag-region (point)
                               (progn (outline-next-preface) (point)) t)
--- 738,745 ----
        (narrow-to-region start end)
        (goto-char (point-min))
        (if (outline-on-heading-p)
!           (outline-end-of-heading)
!         (outline-next-preface))
        (while (not (eobp))
          (outline-flag-region (point)
                               (progn (outline-next-preface) (point)) t)