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

org: remove useless computed value in org-make-tags-matcher 

* org.el (org-make-tags-matcher): Remove useless cat-p value.

Signed-off-by: Julien Danjou <julien@danjou.info>
This commit is contained in:
Julien Danjou 2010-12-09 18:30:22 +00:00 committed by Carsten Dominik
parent 8c2f37270d
commit 330721f406
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/org.el
View File

@ -12381,7 +12381,7 @@ also TODO lines."
minus tag mm minus tag mm
tagsmatch todomatch tagsmatcher todomatcher kwd matcher tagsmatch todomatch tagsmatcher todomatcher kwd matcher
orterms term orlist re-p str-p level-p level-op time-p orterms term orlist re-p str-p level-p level-op time-p
prop-p pn pv po cat-p gv rest) prop-p pn pv po gv rest)
(if (string-match "/+" match) (if (string-match "/+" match)
;; match contains also a todo-matching request ;; match contains also a todo-matching request
(progn (progn
@ -12421,7 +12421,6 @@ also TODO lines."
(setq pn (match-string 5 term) (setq pn (match-string 5 term)
po (match-string 6 term) po (match-string 6 term)
pv (match-string 7 term) pv (match-string 7 term)
cat-p (equal pn "CATEGORY")
re-p (equal (string-to-char pv) ?{) re-p (equal (string-to-char pv) ?{)
str-p (equal (string-to-char pv) ?\") str-p (equal (string-to-char pv) ?\")
time-p (save-match-data time-p (save-match-data