From 6e32922db2eb001674aea51b4dd1ce59efe8a74d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 16 Oct 2004 15:33:59 +0000 Subject: [PATCH] (hide-other): Call outline-up-heading with INVISIBLE-OK=t. --- lisp/outline.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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." (save-excursion (outline-back-to-heading t) (show-entry) - (while (condition-case nil (progn (outline-up-heading 1) (not (bobp))) + (while (condition-case nil (progn (outline-up-heading 1 t) (not (bobp))) (error nil)) (outline-flag-region (1- (point)) (save-excursion (forward-line 1) (point)) -- 2.39.5