From 2fa0aa69ea524662e2434642ded8c0848455a8f1 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Thu, 22 Mar 2012 01:18:52 +0100 Subject: [PATCH] org-agenda.el: Fix incorrect custom option definition. * org-agenda.el (org-agenda-custom-commands-local-options): Fix incorrect custom option definition. Thanks to Joe Vornehm Jr. for this patch. See http://patchwork.newartisans.com/patch/1231/ --- lisp/org-agenda.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 2825ee538..f03ba3643 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -304,11 +304,13 @@ you can \"misuse\" it to also add other text to the header. However, (string :tag "+tag or -tag")))) (list :tag "Set daily/weekly entry types" (const org-agenda-entry-types) - (set :greedy t :value (:deadline :scheduled :timestamp :sexp) - (const :deadline) - (const :scheduled) - (const :timestamp) - (const :sexp))) + (list + (const :format "" quote) + (set :greedy t :value (:deadline :scheduled :timestamp :sexp) + (const :deadline) + (const :scheduled) + (const :timestamp) + (const :sexp)))) (list :tag "Standard skipping condition" :value (org-agenda-skip-function '(org-agenda-skip-entry-if)) (const org-agenda-skip-function)