ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Small optimization 

* lisp/org.el (org-find-property): Small optimization.

Since VALUE is included in the regexp, it doesn't need to be found
again with `org-entry-get'.  However, we still need to make sure match
really is a node property.
This commit is contained in:
Nicolas Goaziou 2015-03-31 16:34:51 +02:00
parent 17752c379e
commit 33e2e375df
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/org.el
View File

@ -16341,7 +16341,7 @@ part of the buffer."
(re (org-re-property property nil (not value) value)))
(catch 'exit
(while (re-search-forward re nil t)
(when (if value (equal value (org-entry-get (point) property nil t))
(when (if value (org-at-property-p)
(org-entry-get (point) property nil t))
(throw 'exit (progn (org-back-to-heading t) (point)))))))))