diff options
| author | Richard M. Stallman | 1994-02-24 23:43:30 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-02-24 23:43:30 +0000 |
| commit | 71d78000997f506af8b648cea924c09bdb59a0e1 (patch) | |
| tree | 0c0ec37af2322c59e8599f7a8263c21bcbdf40f1 | |
| parent | a9d3e9172fbdd219b3d49124a7f1fb9c191278c0 (diff) | |
| download | emacs-71d78000997f506af8b648cea924c09bdb59a0e1.tar.gz emacs-71d78000997f506af8b648cea924c09bdb59a0e1.zip | |
(hide-sublevels): Doc fix. Rename arg.
| -rw-r--r-- | lisp/textmodes/ooutline.el | 12 |
1 files 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." | |||
| 351 | (interactive) | 351 | (interactive) |
| 352 | (outline-flag-subtree ?\n)) | 352 | (outline-flag-subtree ?\n)) |
| 353 | 353 | ||
| 354 | (defun hide-sublevels (keep-levels) | 354 | (defun hide-sublevels (levels) |
| 355 | "Hide everything except the first KEEP-LEVEL headers." | 355 | "Hide everything except the top LEVELS levels of headers." |
| 356 | (interactive "p") | 356 | (interactive "p") |
| 357 | (if (< keep-levels 1) | 357 | (if (< levels 1) |
| 358 | (error "Must keep at least one level of headers")) | 358 | (error "Must keep at least one level of headers")) |
| 359 | (setq keep-levels (1- keep-levels)) | 359 | (setq levels (1- levels)) |
| 360 | (save-excursion | 360 | (save-excursion |
| 361 | (goto-char (point-min)) | 361 | (goto-char (point-min)) |
| 362 | (hide-subtree) | 362 | (hide-subtree) |
| 363 | (show-children keep-levels) | 363 | (show-children levels) |
| 364 | (condition-case err | 364 | (condition-case err |
| 365 | (while (outline-get-next-sibling) | 365 | (while (outline-get-next-sibling) |
| 366 | (hide-subtree) | 366 | (hide-subtree) |
| 367 | (show-children keep-levels)) | 367 | (show-children levels)) |
| 368 | (error nil)))) | 368 | (error nil)))) |
| 369 | 369 | ||
| 370 | (defun hide-other () | 370 | (defun hide-other () |