From: Stefan Kangas <stefan@marxist.se>
Date: Sun, 25 Apr 2021 10:59:14 +0000 (+0200)
Subject: Don't hard-code face of "Install" button
X-Git-Tag: emacs-28.0.90~2735
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=34367cc8afb05cf32d5ed9659de92989b89898c8;p=emacs.git

Don't hard-code face of "Install" button

* lisp/emacs-lisp/package.el (package-make-button): Use the
'custom-button' face for the "Install" button.  (Bug#47944)
---

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 64d7d56019d..f2e83d3fda7 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -2696,9 +2696,9 @@ PROPERTIES are passed to `insert-text-button', for which this
 function is a convenience wrapper used by `describe-package-1'."
   (let ((button-text (if (display-graphic-p) text (concat "[" text "]")))
         (button-face (if (display-graphic-p)
-                         '(:box (:line-width 2 :color "dark grey")
-                                :background "light grey"
-                                :foreground "black")
+                         (progn
+                           (require 'cus-edit) ; for the custom-button face
+                           'custom-button)
                        'link)))
     (apply #'insert-text-button button-text 'face button-face 'follow-link t
            properties)))