Commit d8b5b5d5 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

Fixes bug reported in Nov 2005.
parent 0ae85960
...@@ -803,11 +803,11 @@ Show the heading too, if it is currently invisible." ...@@ -803,11 +803,11 @@ Show the heading too, if it is currently invisible."
(outline-flag-subtree t)) (outline-flag-subtree t))
(defun hide-leaves () (defun hide-leaves ()
"Hide all body after this heading at deeper levels." "Hide the body after this heading and at deeper levels."
(interactive) (interactive)
(save-excursion (save-excursion
(outline-back-to-heading) (outline-back-to-heading)
(outline-end-of-heading) ;; (outline-end-of-heading)
(hide-region-body (point) (progn (outline-end-of-subtree) (point))))) (hide-region-body (point) (progn (outline-end-of-subtree) (point)))))
(defun show-subtree () (defun show-subtree ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment