mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-22 08:40:45 +00:00
Code Releases Activity

(org-scan-tags): Optimize a bit the regexp search.

Browse source
This commit is contained in:
Bastien Guerry 2011-02-02 19:27:51 +01:00
parent 7b72c57e15
commit 0b7ce5f47d
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/org.el
View file

@ -12229,10 +12229,10 @@ MATCHER is a Lisp form to be evaluated, testing if a given set of tags
qualifies a headline for inclusion. When TODO-ONLY is non-nil,
only lines with a TODO keyword are included in the output."
(require 'org-agenda)
(let* ((re (concat "^" outline-regexp " *\\(\\<\\("
(mapconcat 'regexp-quote org-todo-keywords-1 "\\|")
(org-re
"\\>\\)\\)? *\\(.*?\\)\\(:[[:alnum:]_@#%:]+:\\)?[ \t]*$")))
(let* ((re (concat "^" outline-regexp " *"
(when todo-only
(concat "\\(" (regexp-opt org-todo-keywords-1) "\\)"))
(org-re " *\\(.*?\\)\\(\\(:[[:alnum:]_@#%:]+:\\)\\)?[ \t]*$")))
(props (list 'face 'default
'done-face 'org-agenda-done
'undone-face 'default
@ -12259,8 +12259,9 @@ only lines with a TODO keyword are included in the output."
(org-remove-occur-highlights))
(while (re-search-forward re nil t)
(catch :skip
(setq todo (if (match-end 1) (org-match-string-no-properties 2))
tags (if (match-end 4) (org-match-string-no-properties 4)))
(when todo-only (setq todo (org-match-string-no-properties 1)))
(setq tags (or (org-match-string-no-properties 4)
(org-match-string-no-properties 3)))
(goto-char (setq lspos (match-beginning 0)))
(setq level (org-reduced-level (funcall outline-level))
category (org-get-category))