mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-22 07:09:47 +00:00
Code

Minor patch from Greg Chernov for xemacs/noutline.

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog
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> 2008-04-18 Carsten Dominik <dominik@science.uva.nl>
* lisp/org-clock.el (org-clock): New customization group. * lisp/org-clock.el (org-clock): New customization group.

2
xemacs/noutline.el
View File

@ -416,7 +416,7 @@ at the end of the buffer."
(defsubst outline-invisible-p (&optional pos) (defsubst outline-invisible-p (&optional pos)
"Non-nil if the character after point is invisible." "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 () (defun outline-visible ()
(not (outline-invisible-p))) (not (outline-invisible-p)))