/[emacs]/emacs/lisp/outline.el
ViewVC logotype

Diff of /emacs/lisp/outline.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4.2.4 by miles, Mon Oct 25 04:22:23 2004 UTC revision 1.4.2.5 by miles, Fri Nov 12 04:21:14 2004 UTC
# Line 723  Show the heading too, if it is currently Line 723  Show the heading too, if it is currently
723                           (progn (outline-next-preface) (point)) nil)))                           (progn (outline-next-preface) (point)) nil)))
724    
725  (defun hide-body ()  (defun hide-body ()
726    "Hide all of buffer except headings."    "Hide all body lines in buffer, leaving all headings visible."
727    (interactive)    (interactive)
728    (hide-region-body (point-min) (point-max)))    (hide-region-body (point-min) (point-max)))
729    
# Line 738  Show the heading too, if it is currently Line 738  Show the heading too, if it is currently
738          (narrow-to-region start end)          (narrow-to-region start end)
739          (goto-char (point-min))          (goto-char (point-min))
740          (if (outline-on-heading-p)          (if (outline-on-heading-p)
741              (outline-end-of-heading))              (outline-end-of-heading)
742              (outline-next-preface))
743          (while (not (eobp))          (while (not (eobp))
744            (outline-flag-region (point)            (outline-flag-region (point)
745                                 (progn (outline-next-preface) (point)) t)                                 (progn (outline-next-preface) (point)) t)

Legend:
Removed from v.1.4.2.4  
changed lines
  Added in v.1.4.2.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26