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)
This commit is contained in:
Stefan Kangas 2021-04-25 12:59:14 +02:00
parent 33ba69cd76
commit 34367cc8af

View file

@ -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)))