mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

Evaluate the MATCH parameter in org-agenda-custom-commands

This commit is contained in:
Carsten Dominik 2009-10-30 08:16:00 +01:00
parent 38ad9f081f
commit ca3d96d98d
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2009-10-30 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-agenda, org-run-agenda-series): Evaluate
MATCH.
2009-10-29 Carsten Dominik <carsten.dominik@gmail.com>
* org.el ("abbrev"): Work with abbrev tables only after they have

5
lisp/org-agenda.el
View File

@ -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