Mercurial > emacs

changeset 6080:2f02deab5b9e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(hide-sublevels): Doc fix. Rename arg.
author Richard M. Stallman <rms@gnu.org>
date Thu, 24 Feb 1994 23:43:30 +0000
parents 6617a69cece1
children 65adb7b035fd
files lisp/textmodes/ooutline.el
diffstat 1 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/ooutline.el	Thu Feb 24 23:20:12 1994 +0000
+++ b/lisp/textmodes/ooutline.el	Thu Feb 24 23:43:30 1994 +0000
@@ -351,20 +351,20 @@
   (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 ()