From f574744aee1d202608c14e2c67f93aefbc077b4b Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Mon, 26 May 2014 18:06:20 +0200 Subject: [PATCH] Tiny refactoring * lisp/org.el (org-at-property-p): Tiny refactoring. Improve docstring. --- lisp/org.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 430d4bda9..4ef9146a6 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -15363,10 +15363,11 @@ When INCREMENT is non-nil, set the property to the next allowed value." (message "%s is now %s" prop val))) (defun org-at-property-p () - "Is cursor inside a property drawer?" - (save-excursion - (when (equal 'node-property (car (org-element-at-point))) - (beginning-of-line 1) + "Non-nil when point is inside a property drawer. +See `org-property-re' for match data, if applicable." + (when (eq (org-element-type (org-element-at-point)) 'node-property) + (save-excursion + (beginning-of-line) (looking-at org-property-re)))) (defun org-get-property-block (&optional beg end force)