From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bastien Subject: Re: [BUG] Hotkeys defined in org-tag-alist repeated in agenda filter dispatcher Date: Wed, 24 Apr 2013 11:46:46 +0200 Message-ID: <87obd4clbt.fsf@bzg.ath.cx> References: <20130422015030.GB7821@cartman> <87li8aapbq.fsf@bzg.ath.cx> <20130422120132.GF7821@cartman> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([208.118.235.92]:60423) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UUwHr-0003MA-Gj for emacs-orgmode@gnu.org; Wed, 24 Apr 2013 05:46:53 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UUwHq-0005eD-9O for emacs-orgmode@gnu.org; Wed, 24 Apr 2013 05:46:51 -0400 Received: from mail-we0-x232.google.com ([2a00:1450:400c:c03::232]:52839) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UUwHp-0005e2-W9 for emacs-orgmode@gnu.org; Wed, 24 Apr 2013 05:46:50 -0400 Received: by mail-we0-f178.google.com with SMTP id z53so1462853wey.37 for ; Wed, 24 Apr 2013 02:46:49 -0700 (PDT) In-Reply-To: <20130422120132.GF7821@cartman> (Viktor Rosenfeld's message of "Mon, 22 Apr 2013 14:01:32 +0200") 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: Viktor Rosenfeld Cc: emacs-orgmode@gnu.org --=-=-= Content-Type: text/plain Hi Viktor, thanks for the patient and detailed debugging. I don't have time to test the attached patch myself, but given your description it should be okay. Can you test it and report? Otherwise I will test this myself later on. Thanks! --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=org.el.patch diff --git a/lisp/org.el b/lisp/org.el index c76ddd0..d75f6c2 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -17985,9 +17985,8 @@ When a buffer is unmodified, it is just killed. When modified, it is saved (append org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq org-drawers-for-agenda (append org-drawers-for-agenda org-drawers)) - (unless (equal org-tag-alist-for-agenda org-tag-alist) - (setq org-tag-alist-for-agenda - (append org-tag-alist-for-agenda org-tag-alist))) + (setq org-tag-alist-for-agenda + (org-uniquify (append org-tag-alist-for-agenda org-tag-alist))) (if org-group-tags (setq org-tag-groups-alist-for-agenda (org-uniquify-alist --=-=-= Content-Type: text/plain -- Bastien --=-=-=--