Bläddra i källkod

Minor patch from Greg Chernov for xemacs/noutline.

Carsten Dominik 17 år sedan
förälder
incheckning
684d959759
2 ändrade filer med 6 tillägg och 1 borttagningar
  1. 5 0
      ChangeLog
  2. 1 1
      xemacs/noutline.el

+ 5 - 0
ChangeLog

@@ -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.

+ 1 - 1
xemacs/noutline.el

@@ -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)))