diff options
| author | Richard M. Stallman | 2004-10-16 15:33:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-10-16 15:33:59 +0000 |
| commit | 6e32922db2eb001674aea51b4dd1ce59efe8a74d (patch) | |
| tree | 317fe69d9abc7ed3b97375143858cff8dd4b87e5 | |
| parent | 1fc075d8b7ffb954223427f854f3a82180bf564b (diff) | |
| download | emacs-6e32922db2eb001674aea51b4dd1ce59efe8a74d.tar.gz emacs-6e32922db2eb001674aea51b4dd1ce59efe8a74d.zip | |
(hide-other): Call outline-up-heading with INVISIBLE-OK=t.
| -rw-r--r-- | lisp/outline.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/outline.el b/lisp/outline.el index 0f7d3b627b0..2d2663b12f2 100644 --- a/lisp/outline.el +++ b/lisp/outline.el | |||
| @@ -808,7 +808,7 @@ Show the heading too, if it is currently invisible." | |||
| 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)) |