From ca3d96d98d99b88c809e974b865f7739f63eadb6 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Fri, 30 Oct 2009 08:16:00 +0100 Subject: [PATCH] Evaluate the MATCH parameter in org-agenda-custom-commands --- lisp/ChangeLog | 5 +++++ lisp/org-agenda.el | 5 +++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d6ecb1099..9e025287a 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-10-30 Carsten Dominik + + * org-agenda.el (org-agenda, org-run-agenda-series): Evaluate + MATCH. + 2009-10-29 Carsten Dominik * org.el ("abbrev"): Work with abbrev tables only after they have diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 7c62e90cd..de8923e98 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -1805,7 +1805,8 @@ Pressing `<' twice means to restrict to the current subtree or region ((setq entry (assoc keys org-agenda-custom-commands)) (if (or (symbolp (nth 2 entry)) (functionp (nth 2 entry))) (progn - (setq type (nth 2 entry) match (nth 3 entry) lprops (nth 4 entry)) + (setq type (nth 2 entry) match (eval (nth 3 entry)) + lprops (nth 4 entry)) (put 'org-agenda-redo-command 'org-lprops lprops) (cond ((eq type 'agenda) @@ -2048,7 +2049,7 @@ s Search for keywords C Configure custom agenda commands match ;; The byte compiler incorrectly complains about this. Keep it! cmd type lprops) (while (setq cmd (pop cmds)) - (setq type (car cmd) match (nth 1 cmd) lprops (nth 2 cmd)) + (setq type (car cmd) match (eval (nth 1 cmd)) lprops (nth 2 cmd)) (cond ((eq type 'agenda) (org-let2 gprops lprops