From 71d78000997f506af8b648cea924c09bdb59a0e1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 24 Feb 1994 23:43:30 +0000 Subject: [PATCH] (hide-sublevels): Doc fix. Rename arg. --- lisp/textmodes/ooutline.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/textmodes/ooutline.el b/lisp/textmodes/ooutline.el index 3064fb6df18..26f5e79c798 100644 --- a/lisp/textmodes/ooutline.el +++ b/lisp/textmodes/ooutline.el @@ -351,20 +351,20 @@ while if FLAG is `\\^M' (control-M) the text is hidden." (interactive) (outline-flag-subtree ?\n)) -(defun hide-sublevels (keep-levels) - "Hide everything except the first KEEP-LEVEL headers." +(defun hide-sublevels (levels) + "Hide everything except the top LEVELS levels of headers." (interactive "p") - (if (< keep-levels 1) + (if (< levels 1) (error "Must keep at least one level of headers")) - (setq keep-levels (1- keep-levels)) + (setq levels (1- levels)) (save-excursion (goto-char (point-min)) (hide-subtree) - (show-children keep-levels) + (show-children levels) (condition-case err (while (outline-get-next-sibling) (hide-subtree) - (show-children keep-levels)) + (show-children levels)) (error nil)))) (defun hide-other () -- 2.39.5