Mercurial > emacs
comparison lisp/outline.el @ 65214:aefa34357e06
(hide-entry, hide-leaves, outline-toggle-children):
Put outline-back-to-heading function call inside save-excursion.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Mon, 29 Aug 2005 20:49:01 +0000 |
| parents | 1dc0c9b5d66a |
| children | ecfa88bd9638 |
comparison
equal
deleted
inserted
replaced
| 65213:2670e0600335 | 65214:aefa34357e06 |
|---|---|
| 747 (show-entry)) | 747 (show-entry)) |
| 748 | 748 |
| 749 (defun hide-entry () | 749 (defun hide-entry () |
| 750 "Hide the body directly following this heading." | 750 "Hide the body directly following this heading." |
| 751 (interactive) | 751 (interactive) |
| 752 (outline-back-to-heading) | |
| 753 (save-excursion | 752 (save-excursion |
| 753 (outline-back-to-heading) | |
| 754 (outline-end-of-heading) | 754 (outline-end-of-heading) |
| 755 (outline-flag-region (point) (progn (outline-next-preface) (point)) t))) | 755 (outline-flag-region (point) (progn (outline-next-preface) (point)) t))) |
| 756 | 756 |
| 757 (defun show-entry () | 757 (defun show-entry () |
| 758 "Show the body directly following this heading. | 758 "Show the body directly following this heading. |
| 800 (outline-flag-subtree t)) | 800 (outline-flag-subtree t)) |
| 801 | 801 |
| 802 (defun hide-leaves () | 802 (defun hide-leaves () |
| 803 "Hide all body after this heading at deeper levels." | 803 "Hide all body after this heading at deeper levels." |
| 804 (interactive) | 804 (interactive) |
| 805 (outline-back-to-heading) | |
| 806 (save-excursion | 805 (save-excursion |
| 806 (outline-back-to-heading) | |
| 807 (outline-end-of-heading) | 807 (outline-end-of-heading) |
| 808 (hide-region-body (point) (progn (outline-end-of-subtree) (point))))) | 808 (hide-region-body (point) (progn (outline-end-of-subtree) (point))))) |
| 809 | 809 |
| 810 (defun show-subtree () | 810 (defun show-subtree () |
| 811 "Show everything after this heading at deeper levels." | 811 "Show everything after this heading at deeper levels." |
| 858 (run-hooks 'outline-view-change-hook)) | 858 (run-hooks 'outline-view-change-hook)) |
| 859 | 859 |
| 860 (defun outline-toggle-children () | 860 (defun outline-toggle-children () |
| 861 "Show or hide the current subtree depending on its current state." | 861 "Show or hide the current subtree depending on its current state." |
| 862 (interactive) | 862 (interactive) |
| 863 (outline-back-to-heading) | 863 (save-excursion |
| 864 (if (not (outline-invisible-p (line-end-position))) | 864 (outline-back-to-heading) |
| 865 (hide-subtree) | 865 (if (not (outline-invisible-p (line-end-position))) |
| 866 (show-children) | 866 (hide-subtree) |
| 867 (show-entry))) | 867 (show-children) |
| 868 (show-entry)))) | |
| 868 | 869 |
| 869 (defun outline-flag-subtree (flag) | 870 (defun outline-flag-subtree (flag) |
| 870 (save-excursion | 871 (save-excursion |
| 871 (outline-back-to-heading) | 872 (outline-back-to-heading) |
| 872 (outline-end-of-heading) | 873 (outline-end-of-heading) |