Fix `org-at-property-p'

* lisp/org.el (org-at-property-p): Return nil when at the beginning of
  the properties drawer.
This commit is contained in:
Nicolas Goaziou 2015-04-07 00:08:31 +02:00
parent 94c7619579
commit b4f9ee4eba
1 changed files with 3 additions and 1 deletions

View File

@ -15542,7 +15542,9 @@ See `org-property-re' for match data, if applicable."
(beginning-of-line)
(and (looking-at org-property-re)
(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 ()
"Do an action on properties."