Minor patch from Greg Chernov for xemacs/noutline.

This commit is contained in:
Carsten Dominik 2008-04-19 19:07:40 +02:00
parent 4d98decbac
commit 684d959759
2 changed files with 6 additions and 1 deletions

View File

@ -1,3 +1,8 @@
2008-04-19 Carsten Dominik <dominik@science.uva.nl>
* xemacs/noutline.el (outline-invisible-p): Require that
invisibility is from outline.
2008-04-18 Carsten Dominik <dominik@science.uva.nl>
* lisp/org-clock.el (org-clock): New customization group.

View File

@ -416,7 +416,7 @@ at the end of the buffer."
(defsubst outline-invisible-p (&optional pos)
"Non-nil if the character after point is invisible."
(get-char-property (or pos (point)) 'invisible))
(eq 'outline (get-char-property (or pos (point)) 'invisible)))
(defun outline-visible ()
(not (outline-invisible-p)))