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 |
|
|
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) |