outline-invisible-p): Only return `t' for the 'outline property

* lisp/outline.el (outline-invisible-p): Only return `t' for
the 'outline property.

diff --git a/lisp/outline.el b/lisp/outline.el
index 2001cdf27b12c3def73373e9c90a93680cecb837..f6ab1e4953082dad273559f3034fddd765ceca97 100644 (file)
--- a/lisp/outline.el
+++ b/lisp/outline.el
@@ -388,9 +388,9 @@ at the end of the buffer."
                      nil 'move))
 
 (defsubst outline-invisible-p (&optional pos)
-  "Non-nil if the character after POS is invisible.
+  "Non-nil if the character after POS has outline invisible property.
 If POS is nil, use `point' instead."
-  (get-char-property (or pos (point)) 'invisible))
+  (eq (get-char-property (or pos (point)) 'invisible) 'outline))
 
 (defun outline-back-to-heading (&optional invisible-ok)
   "Move to previous heading line, or beg of this line if it's a heading.