Mercurial > emacs
comparison lisp/outline.el @ 90286:5b7d410e31f9
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-7
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 4-14)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (base, patch 1-7)
- tag of miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-187
- Update from CVS
- Merge from emacs--devo--0
* miles@gnu.org--gnu-2005/gnus--rel--5.10 (patch 187)
- Update from CVS
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 25 Jan 2006 07:10:04 +0000 |
| parents | aa89c814f853 fae5d0cc2b1d |
| children | c5406394f567 |
comparison
equal
deleted
inserted
replaced
| 90285:5251b70632c4 | 90286:5b7d410e31f9 |
|---|---|
| 801 "Hide everything after this heading at deeper levels." | 801 "Hide everything after this heading at deeper levels." |
| 802 (interactive) | 802 (interactive) |
| 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 ;; Turned off to fix bug reported by Otto Maddox on 22 Nov 2005. |
| 811 ;; (outline-end-of-heading) | |
| 811 (hide-region-body (point) (progn (outline-end-of-subtree) (point))))) | 812 (hide-region-body (point) (progn (outline-end-of-subtree) (point))))) |
| 812 | 813 |
| 813 (defun show-subtree () | 814 (defun show-subtree () |
| 814 "Show everything after this heading at deeper levels." | 815 "Show everything after this heading at deeper levels." |
| 815 (interactive) | 816 (interactive) |