فهرست منبع

Make testing for headline independent of visibility

Carsten Dominik 16 سال پیش
والد
کامیت
525b0148c5
2فایلهای تغییر یافته به همراه8 افزوده شده و 2 حذف شده
  1. 3 0
      lisp/ChangeLog
  2. 5 2
      lisp/org.el

+ 3 - 0
lisp/ChangeLog

@@ -1,5 +1,8 @@
 2009-09-18  Carsten Dominik  <carsten.dominik@gmail.com>
 2009-09-18  Carsten Dominik  <carsten.dominik@gmail.com>
 
 
+	* org.el (org-on-heading-p, org-at-heading-p): Make sure these are
+	always with `invisible-ok'.
+
 	* org-list.el (org-update-checkbox-count): Insert changed cookie
 	* org-list.el (org-update-checkbox-count): Insert changed cookie
 	before the old, to avoid problems with invisibility at the end of
 	before the old, to avoid problems with invisibility at the end of
 	the line.
 	the line.

+ 5 - 2
lisp/org.el

@@ -16781,8 +16781,11 @@ interactive command with similar behavior."
   (save-excursion
   (save-excursion
     (null (re-search-backward "^\\*+ " nil t))))
     (null (re-search-backward "^\\*+ " nil t))))
 
 
-(defalias 'org-on-heading-p 'outline-on-heading-p)
-(defalias 'org-at-heading-p 'outline-on-heading-p)
+(defun org-on-heading-p ()
+  (outline-on-heading-p t))
+(defun org-at-heading-p ()
+  (outline-on-heading-p t))
+
 (defun org-at-heading-or-item-p ()
 (defun org-at-heading-or-item-p ()
   (or (org-on-heading-p) (org-at-item-p)))
   (or (org-on-heading-p) (org-at-item-p)))