From mboxrd@z Thu Jan 1 00:00:00 1970 From: Renato Ferreira Subject: Re: [PATCH] org-agenda.el Correct :inherit on org-agenda-fontify-priorities Date: Fri, 04 Nov 2016 10:53:11 -0200 Message-ID: <87fun7qudk.fsf@gmail.com> References: <8760o3k19z.fsf@gmail.com> <87vaw3behn.fsf@nicolasgoaziou.fr> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:60656) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1c2dzL-0003EG-Vi for emacs-orgmode@gnu.org; Fri, 04 Nov 2016 08:52:59 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1c2dzI-0004wn-T2 for emacs-orgmode@gnu.org; Fri, 04 Nov 2016 08:52:56 -0400 Received: from mail-qt0-x242.google.com ([2607:f8b0:400d:c0d::242]:34797) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1c2dzI-0004vZ-M5 for emacs-orgmode@gnu.org; Fri, 04 Nov 2016 08:52:52 -0400 Received: by mail-qt0-x242.google.com with SMTP id l20so2858139qta.1 for ; Fri, 04 Nov 2016 05:52:52 -0700 (PDT) Received: from note (179-96-150-135.life.com.br. [179.96.150.135]) by smtp.gmail.com with ESMTPSA id c76sm7417873qke.0.2016.11.04.05.52.49 for (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Fri, 04 Nov 2016 05:52:50 -0700 (PDT) In-Reply-To: <87vaw3behn.fsf@nicolasgoaziou.fr> (Nicolas Goaziou's message of "Fri, 04 Nov 2016 13:45:24 +0100") 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" To: emacs-orgmode@gnu.org Fixes "Invalid face attribute/reference" errors * lisp/org-agenda.el (org-agenda-fontify-priorities): generates correct :inherit face property. --- lisp/org-agenda.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 7ee721a..68e82cb 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -3837,11 +3837,11 @@ FILTER-ALIST is an alist of filters we need to apply when ov 'face (let ((special-face (cond ((org-face-from-face-or-color - 'priority nil + 'priority 'org-priority (cdr (assoc p org-priority-faces)))) ((and (listp org-agenda-fontify-priorities) (org-face-from-face-or-color - 'priority nil + 'priority 'org-priority (cdr (assoc p org-agenda-fontify-priorities))))) ((equal p l) 'italic) ((equal p h) 'bold)))) --