# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 762133410 0
# Node ID 2f02deab5b9e7842ba9e55d15b00b9fe5b2006f7
# Parent  6617a69cece187046628a8bed18b3eb4d80c8e05
(hide-sublevels): Doc fix.  Rename arg.

diff -r 6617a69cece1 -r 2f02deab5b9e lisp/textmodes/ooutline.el
--- 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 ()