diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-03-13 00:38:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-03-13 00:38:48 +0000 |
| commit | 93da9e092cf0dcecfa77c1c8a40f0f66221472dd (patch) | |
| tree | 4fe778d9a64a4f24b3cf5712b8f02da1081b140b /lisp | |
| parent | 2490f7d5302d3cd0d82d83cc610b4c0cd4b7c770 (diff) | |
| download | emacs-93da9e092cf0dcecfa77c1c8a40f0f66221472dd.tar.gz | |
(hide-other, hide-sublevels): Renamed from outline-...
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/textmodes/ooutline.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/textmodes/ooutline.el b/lisp/textmodes/ooutline.el index 88d4c595ecc..17845d8d4d1 100644 --- a/lisp/textmodes/ooutline.el +++ b/lisp/textmodes/ooutline.el @@ -71,16 +71,16 @@ in the file it applies to.") (define-key outline-mode-map "\C-c\C-e" 'show-entry) (define-key outline-mode-map "\C-c\C-l" 'hide-leaves) (define-key outline-mode-map "\C-c\C-k" 'show-branches) - (define-key outline-mode-map "\C-c\C-q" 'outline-hide-sublevels) - (define-key outline-mode-map "\C-c\C-o" 'outline-hide-other) + (define-key outline-mode-map "\C-c\C-q" 'hide-sublevels) + (define-key outline-mode-map "\C-c\C-o" 'hide-other) (define-key outline-mode-map [menu-bar hide] (cons "Hide" (make-sparse-keymap "Hide"))) - (define-key outline-mode-map [menu-bar hide outline-hide-other] - '("Hide Other" . outline-hide-other)) - (define-key outline-mode-map [menu-bar hide outline-hide-sublevels] - '("Hide Sublevels" . outline-hide-sublevels)) + (define-key outline-mode-map [menu-bar hide hide-other] + '("Hide Other" . hide-other)) + (define-key outline-mode-map [menu-bar hide hide-sublevels] + '("Hide Sublevels" . hide-sublevels)) (define-key outline-mode-map [menu-bar hide hide-subtree] '("Hide Subtree" . hide-subtree)) (define-key outline-mode-map [menu-bar hide hide-entry] @@ -364,7 +364,7 @@ while if FLAG is `\\^M' (control-M) the text is hidden." (interactive) (outline-flag-subtree ?\n)) -(defun outline-hide-sublevels (levels) +(defun hide-sublevels (levels) "Hide everything except the top LEVELS levels of headers." (interactive "p") (if (< levels 1) @@ -382,10 +382,10 @@ while if FLAG is `\\^M' (control-M) the text is hidden." (show-children levels)) (error nil)))) -(defun outline-hide-other () +(defun hide-other () "Hide everything except for the current body and the parent headings." (interactive) - (outline-hide-sublevels 1) + (hide-sublevels 1) (let ((last (point)) (pos (point))) (while (save-excursion |