From 9cc59ffbbb2f20fbbf1c72d2e0c9dc47c7906a99 Mon Sep 17 00:00:00 2001 From: Paul Rankin Date: Fri, 30 Sep 2016 10:06:02 +0200 Subject: [PATCH] outline-invisible-p): Only return `t' for the 'outline property * lisp/outline.el (outline-invisible-p): Only return `t' for the 'outline property. --- lisp/outline.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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. -- 2.39.5