01/01: emacs: Fix heading face in "Package Info".

[Alex Kost]

alezost pushed a commit to branch master
in repository guix.

commit 6b3a1ce8d7426dea57b29067e1190799d65f74ae
Author: Alex Kost <address@hidden>
Date:   Thu Jan 14 00:59:35 2016 +0300

    emacs: Fix heading face in "Package Info".
    
    Reported by Ludovic Courtès <address@hidden> 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 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/emacs/guix-ui-package.el b/emacs/guix-ui-package.el
index 12bfaee..7cf1a7d 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."