Browse Source

Fix `org-at-property-p'

* lisp/org.el (org-at-property-p): Return nil when at the beginning of
  the properties drawer.
Nicolas Goaziou 10 years ago
parent
commit
b4f9ee4eba
1 changed files with 3 additions and 1 deletions
  1. 3 1
      lisp/org.el

+ 3 - 1
lisp/org.el

@@ -15542,7 +15542,9 @@ See `org-property-re' for match data, if applicable."
     (beginning-of-line)
     (beginning-of-line)
     (and (looking-at org-property-re)
     (and (looking-at org-property-re)
 	 (let ((property-drawer (save-match-data (org-get-property-block))))
 	 (let ((property-drawer (save-match-data (org-get-property-block))))
-	   (and property-drawer (< (point) (cdr property-drawer)))))))
+	   (and property-drawer
+		(> (point) (car property-drawer))
+		(< (point) (cdr property-drawer)))))))
 
 
 (defun org-property-action ()
 (defun org-property-action ()
   "Do an action on properties."
   "Do an action on properties."