[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 739ccf6cbf: org--batch-store-agenda-views: Fix trea
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 739ccf6cbf: org--batch-store-agenda-views: Fix treatment of lambda functions |
Date: |
Thu, 9 Feb 2023 05:57:58 -0500 (EST) |
branch: externals/org
commit 739ccf6cbf7fca5bc2c241a3d6d93b508ec8c159
Author: Aaron L. Zeng <me@bcc32.com>
Commit: Ihor Radchenko <yantar92@posteo.net>
org--batch-store-agenda-views: Fix treatment of lambda functions
* org-agenda.el (org--batch-store-agenda-views): Fix treatment of
lambda functions used as custom agenda commands.
`org-agenda-custom-commands' entries may specify a custom function
instead of a symbol like `tags-todo'. `org--batch-store-agenda-views'
behaved differently from `org-agenda' when that custom function was
defined as a lambda rather than a symbol, incorrectly treating the
lambda form as a list of agenda commands. Instead, use the same test
as `org-agenda' does to determine whether the command is a series.
TINYCHANGE
---
lisp/org-agenda.el | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 1d1f2271b1..127503af0f 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -3525,7 +3525,8 @@ This ensures the export commands can easily use it."
(let ((cmds (org-agenda-normalize-custom-commands
org-agenda-custom-commands))
(pop-up-frames nil)
(dir default-directory)
- cmd thiscmdkey thiscmdcmd match files opts cmd-or-set bufname)
+ cmd thiscmdkey thiscmdcmd match files opts cmd-or-set
+ seriesp bufname)
(save-window-excursion
(while cmds
(setq cmd (pop cmds)
@@ -3537,9 +3538,12 @@ This ensures the export commands can easily use it."
(format "*Org Agenda(%s:%s)*" thiscmdkey
match))
(format "*Org Agenda(%s)*" thiscmdkey))
org-agenda-buffer-name)
+ ;; series: (0:key 1:desc 2:(cmd1 cmd2 ...)
3:general-settings 4:files)
+ ;; non-series: (0:key 1:desc 2:type 3:match 4:settings
5:files)
cmd-or-set (nth 2 cmd)
- opts (nth (if (listp cmd-or-set) 3 4) cmd)
- files (nth (if (listp cmd-or-set) 4 5) cmd))
+ seriesp (not (or (symbolp cmd-or-set) (functionp cmd-or-set)))
+ opts (nth (if seriesp 3 4) cmd)
+ files (nth (if seriesp 4 5) cmd))
(if (stringp files) (setq files (list files)))
(when files
(let* ((opts (append org-agenda-exporter-settings opts))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/org 739ccf6cbf: org--batch-store-agenda-views: Fix treatment of lambda functions,
ELPA Syncer <=