diff options
| author | Paul Rankin <hello@paulwrankin.com> | 2016-09-30 10:06:02 +0200 |
|---|---|---|
| committer | Bastien <bzg@gnu.org> | 2016-09-30 10:06:02 +0200 |
| commit | 9cc59ffbbb2f20fbbf1c72d2e0c9dc47c7906a99 (patch) | |
| tree | d05f3b2b3be4f8b420ddab6b49b667652845ed0f /lisp/outline.el | |
| parent | 3c2c50260e19deff2a0a054882eaea4049f25a2f (diff) | |
| download | emacs-9cc59ffbbb2f20fbbf1c72d2e0c9dc47c7906a99.tar.gz | |
outline-invisible-p): Only return `t' for the 'outline property
* lisp/outline.el (outline-invisible-p): Only return `t' for
the 'outline property.
Diffstat (limited to 'lisp/outline.el')
| -rw-r--r-- | lisp/outline.el | 4 |
1 files 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. |