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:
parent
33ba69cd76
commit
34367cc8af
1 changed files with 3 additions and 3 deletions
|
@ -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)))
|
||||
|
|
Loading…
Add table
Reference in a new issue