From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bastien Subject: Re: Standard skipping conditions have no effect Date: Mon, 02 Jun 2014 13:30:38 +0200 Message-ID: <87zjhvczvl.fsf@bzg.ath.cx> References: <874n04usgy.fsf@azha.ziiuu.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:34258) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WrQS7-0000nY-Pf for emacs-orgmode@gnu.org; Mon, 02 Jun 2014 07:31:01 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WrQS1-0003ql-NQ for emacs-orgmode@gnu.org; Mon, 02 Jun 2014 07:30:55 -0400 Received: from mail-s76.mailgun.info ([184.173.153.204]:38242) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WrQS1-0003qa-8a for emacs-orgmode@gnu.org; Mon, 02 Jun 2014 07:30:49 -0400 In-Reply-To: <874n04usgy.fsf@azha.ziiuu.com> (Thomas Morgan's message of "Sun, 01 Jun 2014 19:21:01 -0400") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Thomas Morgan Cc: emacs-orgmode@gnu.org --=-=-= Content-Type: text/plain Hi Thomas, thanks for this bug report. Can you try the attached patch and report if it works for you? There are still some glitches with the customization types I want to check before applying the patch. Thanks in advance, --=-=-= Content-Type: text/x-diff Content-Disposition: attachment; filename=fix-agenda-customization.patch diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 84b75a9..2833fca 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -390,32 +390,36 @@ the daily/weekly agenda, see `org-agenda-skip-function'.") (repeat :inline t :tag "Conditions for skipping" (choice :tag "Condition type" - (list :tag "Regexp matches" :inline t (const :format "" regexp) (regexp)) - (list :tag "Regexp does not match" :inline t (const :format "" notregexp) (regexp)) + (list :tag "Regexp matches" :inline t + (const :format "" 'regexp) + (regexp)) + (list :tag "Regexp does not match" :inline t + (const :format "" 'notregexp) + (regexp)) (list :tag "TODO state is" :inline t - (const todo) + (const 'todo) (choice - (const :tag "any not-done state" todo) - (const :tag "any done state" done) - (const :tag "any state" any) + (const :tag "Any not-done state" 'todo) + (const :tag "Any done state" 'done) + (const :tag "Any state" 'any) (list :tag "Keyword list" (const :format "" quote) (repeat (string :tag "Keyword"))))) (list :tag "TODO state is not" :inline t - (const nottodo) + (const 'nottodo) (choice - (const :tag "any not-done state" todo) - (const :tag "any done state" done) - (const :tag "any state" any) + (const :tag "Any not-done state" 'todo) + (const :tag "Any done state" 'done) + (const :tag "Any state" 'any) (list :tag "Keyword list" (const :format "" quote) (repeat (string :tag "Keyword"))))) - (const :tag "scheduled" scheduled) - (const :tag "not scheduled" notscheduled) - (const :tag "deadline" deadline) - (const :tag "no deadline" notdeadline) - (const :tag "timestamp" timestamp) - (const :tag "no timestamp" nottimestamp)))))) + (const :tag "scheduled" 'scheduled) + (const :tag "not scheduled" 'notscheduled) + (const :tag "deadline" 'deadline) + (const :tag "no deadline" 'notdeadline) + (const :tag "timestamp" 'timestamp) + (const :tag "no timestamp" 'nottimestamp)))))) (list :tag "Non-standard skipping condition" :value (org-agenda-skip-function) (const org-agenda-skip-function) --=-=-= Content-Type: text/plain -- Bastien --=-=-=--