From 33e2e375df2bfafca32b1aa0823d7abd9964f70f Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Tue, 31 Mar 2015 16:34:51 +0200 Subject: [PATCH] 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. --- lisp/org.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index d5608765d..b94b18061 100755 --- a/lisp/org.el +++ b/lisp/org.el @@ -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))))))))) -- 2.11.4.GIT