diff options
| author | Richard M. Stallman | 2006-01-19 17:51:38 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2006-01-19 17:51:38 +0000 |
| commit | d8b5b5d578053abfef46335e090b28ddf669f50d (patch) | |
| tree | 7bb7cf6cf70d66189bf604e079e5d3e89ca28e30 | |
| parent | 0ae859606e998b744c199394dbbe59f58507dd96 (diff) | |
| download | emacs-d8b5b5d578053abfef46335e090b28ddf669f50d.tar.gz emacs-d8b5b5d578053abfef46335e090b28ddf669f50d.zip | |
(hide-leaves): Don't call outline-end-of-heading.
Fixes bug reported in Nov 2005.
| -rw-r--r-- | lisp/outline.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/outline.el b/lisp/outline.el index 8a05aaf0cd9..8baa9f102ea 100644 --- a/lisp/outline.el +++ b/lisp/outline.el | |||
| @@ -803,11 +803,11 @@ Show the heading too, if it is currently invisible." | |||
| 803 | (outline-flag-subtree t)) | 803 | (outline-flag-subtree t)) |
| 804 | 804 | ||
| 805 | (defun hide-leaves () | 805 | (defun hide-leaves () |
| 806 | "Hide all body after this heading at deeper levels." | 806 | "Hide the body after this heading and at deeper levels." |
| 807 | (interactive) | 807 | (interactive) |
| 808 | (save-excursion | 808 | (save-excursion |
| 809 | (outline-back-to-heading) | 809 | (outline-back-to-heading) |
| 810 | (outline-end-of-heading) | 810 | ;; (outline-end-of-heading) |
| 811 | (hide-region-body (point) (progn (outline-end-of-subtree) (point))))) | 811 | (hide-region-body (point) (progn (outline-end-of-subtree) (point))))) |
| 812 | 812 | ||
| 813 | (defun show-subtree () | 813 | (defun show-subtree () |