diff options
| author | Paul Rankin | 2016-09-30 10:06:02 +0200 |
|---|---|---|
| committer | Bastien | 2016-09-30 10:06:02 +0200 |
| commit | 9cc59ffbbb2f20fbbf1c72d2e0c9dc47c7906a99 (patch) | |
| tree | d05f3b2b3be4f8b420ddab6b49b667652845ed0f | |
| parent | 3c2c50260e19deff2a0a054882eaea4049f25a2f (diff) | |
| download | emacs-9cc59ffbbb2f20fbbf1c72d2e0c9dc47c7906a99.tar.gz emacs-9cc59ffbbb2f20fbbf1c72d2e0c9dc47c7906a99.zip | |
outline-invisible-p): Only return `t' for the 'outline property
* lisp/outline.el (outline-invisible-p): Only return `t' for
the 'outline property.
| -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." | |||
| 388 | nil 'move)) | 388 | nil 'move)) |
| 389 | 389 | ||
| 390 | (defsubst outline-invisible-p (&optional pos) | 390 | (defsubst outline-invisible-p (&optional pos) |
| 391 | "Non-nil if the character after POS is invisible. | 391 | "Non-nil if the character after POS has outline invisible property. |
| 392 | If POS is nil, use `point' instead." | 392 | If POS is nil, use `point' instead." |
| 393 | (get-char-property (or pos (point)) 'invisible)) | 393 | (eq (get-char-property (or pos (point)) 'invisible) 'outline)) |
| 394 | 394 | ||
| 395 | (defun outline-back-to-heading (&optional invisible-ok) | 395 | (defun outline-back-to-heading (&optional invisible-ok) |
| 396 | "Move to previous heading line, or beg of this line if it's a heading. | 396 | "Move to previous heading line, or beg of this line if it's a heading. |