Mercurial > emacs
comparison lisp/outline.el @ 57527:21785c190853
(hide-other): Call outline-up-heading with INVISIBLE-OK=t.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 16 Oct 2004 15:33:59 +0000 |
| parents | 8362eef794e3 |
| children | be8ba6e58a49 f3ec05478165 |
comparison
equal
deleted
inserted
replaced
| 57526:d0bca414ad07 | 57527:21785c190853 |
|---|---|
| 806 (hide-sublevels 1) | 806 (hide-sublevels 1) |
| 807 (let (outline-view-change-hook) | 807 (let (outline-view-change-hook) |
| 808 (save-excursion | 808 (save-excursion |
| 809 (outline-back-to-heading t) | 809 (outline-back-to-heading t) |
| 810 (show-entry) | 810 (show-entry) |
| 811 (while (condition-case nil (progn (outline-up-heading 1) (not (bobp))) | 811 (while (condition-case nil (progn (outline-up-heading 1 t) (not (bobp))) |
| 812 (error nil)) | 812 (error nil)) |
| 813 (outline-flag-region (1- (point)) | 813 (outline-flag-region (1- (point)) |
| 814 (save-excursion (forward-line 1) (point)) | 814 (save-excursion (forward-line 1) (point)) |
| 815 nil)))) | 815 nil)))) |
| 816 (run-hooks 'outline-view-change-hook)) | 816 (run-hooks 'outline-view-change-hook)) |