(hide-leaves): Don't call outline-end-of-heading.

Fixes bug reported in Nov 2005.

diff --git a/lisp/outline.el b/lisp/outline.el
index 8a05aaf..8baa9f1 100644 (file)
--- a/lisp/outline.el
+++ b/lisp/outline.el
@@ -803,11 +803,11 @@ Show the heading too, if it is currently invisible."
   (outline-flag-subtree t))
 
 (defun hide-leaves ()
-  "Hide all body after this heading at deeper levels."
+  "Hide the body after this heading and at deeper levels."
   (interactive)
   (save-excursion
     (outline-back-to-heading)
-    (outline-end-of-heading)
+;;    (outline-end-of-heading)
     (hide-region-body (point) (progn (outline-end-of-subtree) (point)))))
 
 (defun show-subtree ()