[Emacs-diffs] scratch/outline d262f73 06/15: lisp/outline.el (outline-hide-body): Rename from `hide-body'.

[Oleh Krehel]

branch: scratch/outline
commit d262f7348472d28a20c29861be55a99fad2454d2
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    lisp/outline.el (outline-hide-body): Rename from `hide-body'.
---
 lisp/ChangeLog  |    5 +++++
 lisp/outline.el |   11 +++++++----
 2 files changed, 12 insertions(+), 4 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c531368..c452b31 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2015-01-28  Oleh Krehel  <address@hidden>
 
+       * outline.el (outline-hide-body): Rename from `hide-body'.
+       (hide-body): Declare as obsolete.
+
+2015-01-28  Oleh Krehel  <address@hidden>
+
        * outline.el (outline-show-entry): Rename from `show-entry'.
        (show-entry): Declare as obsolete.
 
diff --git a/lisp/outline.el b/lisp/outline.el
index 8f3c5d9..cfc19a0 100644
--- a/lisp/outline.el
+++ b/lisp/outline.el
@@ -68,7 +68,7 @@ in the file it applies to.")
     (define-key map "\C-u" 'outline-up-heading)
     (define-key map "\C-f" 'outline-forward-same-level)
     (define-key map "\C-b" 'outline-backward-same-level)
-    (define-key map "\C-t" 'hide-body)
+    (define-key map "\C-t" 'outline-hide-body)
     (define-key map "\C-a" 'show-all)
     (define-key map "\C-c" 'outline-hide-entry)
     (define-key map "\C-e" 'outline-show-entry)
@@ -98,8 +98,8 @@ in the file it applies to.")
     (define-key map [hide outline-hide-entry]
       '(menu-item "Hide Entry" outline-hide-entry
         :help "Hide the body directly following this heading"))
-    (define-key map [hide hide-body]
-      '(menu-item "Hide Body" hide-body
+    (define-key map [hide outline-hide-body]
+      '(menu-item "Hide Body" outline-hide-body
         :help "Hide all body lines in buffer, leaving all headings visible"))
     (define-key map [hide hide-leaves]
       '(menu-item "Hide Leaves" hide-leaves
@@ -775,11 +775,14 @@ Show the heading too, if it is currently invisible."
 (define-obsolete-function-alias
     'show-entry 'outline-show-entry "25.1")
 
-(defun hide-body ()
+(defun outline-hide-body ()
   "Hide all body lines in buffer, leaving all headings visible."
   (interactive)
   (hide-region-body (point-min) (point-max)))
 
+(define-obsolete-function-alias
+    'hide-body 'outline-hide-body "25.1")
+
 (defun hide-region-body (start end)
   "Hide all body lines in the region, but not headings."
   ;; Nullify the hook to avoid repeated calls to `outline-flag-region'