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

* lisp/outline.el (outline-invisible-p): Only return `t' for
the 'outline property.
This commit is contained in:
Paul Rankin 2016-09-30 10:06:02 +02:00 committed by Bastien
parent 3c2c50260e
commit 9cc59ffbbb

View file

@ -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.