소스 검색

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