From: Paul Rankin <hello@paulwrankin.com>
Date: Fri, 30 Sep 2016 08:06:02 +0000 (+0200)
Subject: outline-invisible-p): Only return `t' for the 'outline property
X-Git-Tag: emacs-26.0.90~1533
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9cc59ffbbb2f20fbbf1c72d2e0c9dc47c7906a99;p=emacs.git

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 2001cdf27b1..f6ab1e49530 100644
--- 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.