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> 2009-10-29 Carsten Dominik <carsten.dominik@gmail.com>
* org.el ("abbrev"): Work with abbrev tables only after they have * 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)) ((setq entry (assoc keys org-agenda-custom-commands))
(if (or (symbolp (nth 2 entry)) (functionp (nth 2 entry))) (if (or (symbolp (nth 2 entry)) (functionp (nth 2 entry)))
(progn (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) (put 'org-agenda-redo-command 'org-lprops lprops)
(cond (cond
((eq type 'agenda) ((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! match ;; The byte compiler incorrectly complains about this. Keep it!
cmd type lprops) cmd type lprops)
(while (setq cmd (pop cmds)) (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 (cond
((eq type 'agenda) ((eq type 'agenda)
(org-let2 gprops lprops (org-let2 gprops lprops