mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-03 08:30:03 +00:00
Code

Tiny refactoring

Browse Source 
* lisp/org.el (org-at-property-p): Tiny refactoring.  Improve docstring.
This commit is contained in:
Nicolas Goaziou 2014-05-26 18:06:20 +02:00
parent b11570c2f1
commit f574744aee
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/org.el
View File

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