diff options
| -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. |