From 6b3a1ce8d7426dea57b29067e1190799d65f74ae Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Thu, 14 Jan 2016 00:59:35 +0300 Subject: emacs: Fix heading face in "Package Info". MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Reported by Ludovic Courtès on #guix. This fixes a regression introduced in commit 7171d824. 'insert-text-button' procedure does not allow to override a button face, so a specialized button type should be used instead. * emacs/guix-ui-package.el (guix-package-heading): New button type. (guix-package-info-insert-heading): Use it. --- emacs/guix-ui-package.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/emacs/guix-ui-package.el b/emacs/guix-ui-package.el index 12bfaeef68..7cf1a7d07f 100644 --- a/emacs/guix-ui-package.el +++ b/emacs/guix-ui-package.el @@ -349,6 +349,10 @@ formatted with this string, an action button is inserted.") 'name (button-label btn)) 'add))) +(define-button-type 'guix-package-heading + :supertype 'guix-package-name + 'face 'guix-package-info-heading) + (define-button-type 'guix-package-source :supertype 'guix 'face 'guix-package-info-source @@ -362,8 +366,7 @@ formatted with this string, an action button is inserted.") "Insert package ENTRY heading (name specification) at point." (guix-insert-button (guix-package-entry->name-specification entry) - 'guix-package-name - 'face 'guix-package-info-heading)) + 'guix-package-heading)) (defun guix-package-info-insert-systems (systems entry) "Insert supported package SYSTEMS at point." -- cgit v1.2.3