(hide-other): Call outline-up-heading with INVISIBLE-OK=t.

diff --git a/lisp/outline.el b/lisp/outline.el
index 0f7d3b627b05be5e4ec015e6f3f6d52222b93ee9..2d2663b12f293addc8b50283acd461cf5ea16235 100644 (file)
--- 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))