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

Revert "Tags scan: Also find the first line in a buffer" 

This reverts commit 1fbe1f7f50.
This commit is contained in:
Carsten Dominik 2009-04-03 19:17:36 +02:00
parent f2cbe79383
commit b1c6a40772
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org.el
View File

@ -9967,7 +9967,7 @@ 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, qualifies a headline for inclusion. When TODO-ONLY is non-nil,
only lines with a TODO keyword are included in the output." only lines with a TODO keyword are included in the output."
(require 'org-agenda) (require 'org-agenda)
(let* ((re (concat "^" outline-regexp " *\\(\\<\\(" (let* ((re (concat "[\n\r]" outline-regexp " *\\(\\<\\("
(mapconcat 'regexp-quote org-todo-keywords-1 "\\|") (mapconcat 'regexp-quote org-todo-keywords-1 "\\|")
(org-re (org-re
"\\>\\)\\)? *\\(.*?\\)\\(:[[:alnum:]_@:]+:\\)?[ \t]*$"))) "\\>\\)\\)? *\\(.*?\\)\\(:[[:alnum:]_@:]+:\\)?[ \t]*$")))
@ -9999,7 +9999,7 @@ only lines with a TODO keyword are included in the output."
(catch :skip (catch :skip
(setq todo (if (match-end 1) (org-match-string-no-properties 2)) (setq todo (if (match-end 1) (org-match-string-no-properties 2))
tags (if (match-end 4) (org-match-string-no-properties 4))) tags (if (match-end 4) (org-match-string-no-properties 4)))
(goto-char (setq lspos (match-beginning 0))) (goto-char (setq lspos (1+ (match-beginning 0))))
(setq level (org-reduced-level (funcall outline-level)) (setq level (org-reduced-level (funcall outline-level))
category (org-get-category)) category (org-get-category))
(setq i llast llast level) (setq i llast llast level)