Mercurial > emacs
changeset 7312:102e78c0fb9a
(hide-sublevels): No need for condition-case.
Don't call show-children if levels is 0.
No need to check eob in while condition.
Delete spurious setq of `first'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 04 May 1994 05:48:53 +0000 |
| parents | b4ef2060b171 |
| children | 68d20ebaf64e |
| files | lisp/textmodes/ooutline.el |
| diffstat | 1 files changed, 11 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/ooutline.el Wed May 04 05:15:26 1994 +0000 +++ b/lisp/textmodes/ooutline.el Wed May 04 05:48:53 1994 +0000 @@ -372,20 +372,17 @@ (setq levels (1- levels)) (save-excursion (goto-char (point-min)) - (condition-case nil - ;; Keep advancing to the next top-level heading. - (while (progn (or (and (bobp) (outline-on-heading-p)) - (outline-next-heading)) - (not (eobp))) - (setq first nil) - (let ((end (save-excursion (outline-end-of-subtree) (point)))) - ;; Hide everything under that. - (outline-flag-region (point) end ?\^M) - ;; Show the first LEVELS levels under that. - (show-children levels) - ;; Move to the next, since we already found it. - (goto-char end))) - (error nil)))) + ;; Keep advancing to the next top-level heading. + (while (or (and (bobp) (outline-on-heading-p)) + (outline-next-heading)) + (let ((end (save-excursion (outline-end-of-subtree) (point)))) + ;; Hide everything under that. + (outline-flag-region (point) end ?\^M) + ;; Show the first LEVELS levels under that. + (if (> levels 1) + (show-children levels)) + ;; Move to the next, since we already found it. + (goto-char end))))) (defun hide-other () "Hide everything except for the current body and the parent headings."