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

[Miles Bader]

Index: emacs/lisp/outline.el
diff -c emacs/lisp/outline.el:1.4.2.4 emacs/lisp/outline.el:1.4.2.5
*** emacs/lisp/outline.el:1.4.2.4       Mon Oct 25 04:22:23 2004
--- emacs/lisp/outline.el       Fri Nov 12 04:21:14 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)