diff lisp/textmodes/ooutline.el @ 6080:2f02deab5b9e

(hide-sublevels): Doc fix. Rename arg.

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