浏览代码

Make testing for headline independent of visibility

Carsten Dominik 15 年之前
父节点
当前提交
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>
 
+	* 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
 	before the old, to avoid problems with invisibility at the end of
 	the line.

+ 5 - 2
lisp/org.el

@@ -16781,8 +16781,11 @@ interactive command with similar behavior."
   (save-excursion
     (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 ()
   (or (org-on-heading-p) (org-at-item-p)))