From mboxrd@z Thu Jan 1 00:00:00 1970 From: Julien Danjou Subject: [PATCH] org-agenda: fix org-agenda-category-icon-alist defcustom type Date: Fri, 5 Nov 2010 15:43:45 +0100 Message-ID: <1288968225-10023-1-git-send-email-julien@danjou.info> Return-path: Received: from [140.186.70.92] (port=41737 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PENWt-0005qj-OL for emacs-orgmode@gnu.org; Fri, 05 Nov 2010 10:45:21 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PENW9-0006MG-Aa for emacs-orgmode@gnu.org; Fri, 05 Nov 2010 10:44:32 -0400 Received: from coquelicot-s.easter-eggs.com ([213.215.37.94]:36572) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PENW9-0006Lj-5d for emacs-orgmode@gnu.org; Fri, 05 Nov 2010 10:43:49 -0400 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Cc: Julien Danjou * list/org-agenda.el (org-agenda-category-icon-alist): Fix defcustom type. Signed-off-by: Julien Danjou --- lisp/org-agenda.el | 15 +++++++-------- 1 files changed, 7 insertions(+), 8 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 9dbda4d..68aaa86 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -1463,14 +1463,13 @@ category, you can use: (\"Emacs\" '(space . (:width (16))))" :group 'org-agenda-line-format - :type '(list :tag "Category icons" - (repeat - (list - (string :tag "Category regexp") - (string :tag "File or data") - (string :tag "Type") - (boolean :tag "Data?") - (list :tag "Properties"))))) + :type '(alist :key-type (string :tag "Regexp matching category") + :value-type (choice (list :tag "Icon" + (string :tag "File or data") + (symbol :tag "Type") + (boolean :tag "Data?") + (repeat :tag "Extra image properties" :inline t symbol)) + (list :tag "Display properties" sexp)))) (defgroup org-agenda-column-view nil "Options concerning column view in the agenda." -- 1.7.2.3