# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 763519128 0
# Node ID 799e5e721233a3087e22175da67b822ad3787604
# Parent  63bf78eadcfe4ff31e152cedfe89f847394ef2ac
(hide-other, hide-sublevels): Renamed from outline-...

diff -r 63bf78eadcfe -r 799e5e721233 lisp/textmodes/ooutline.el
--- a/lisp/textmodes/ooutline.el	Sun Mar 13 00:36:52 1994 +0000
+++ b/lisp/textmodes/ooutline.el	Sun Mar 13 00:38:48 1994 +0000
@@ -71,16 +71,16 @@
   (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 @@
   (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 @@
 	(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