aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Kangas2021-04-25 12:59:14 +0200
committerStefan Kangas2021-04-25 13:00:29 +0200
commit34367cc8afb05cf32d5ed9659de92989b89898c8 (patch)
tree2cb5f4948e1db3b034865e73ab86f786140ab8eb
parent33ba69cd7698f9f25139a57c25172f3354f6579a (diff)
downloademacs-34367cc8afb05cf32d5ed9659de92989b89898c8.tar.gz
emacs-34367cc8afb05cf32d5ed9659de92989b89898c8.zip
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)
-rw-r--r--lisp/emacs-lisp/package.el6
1 files changed, 3 insertions, 3 deletions
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
2696function is a convenience wrapper used by `describe-package-1'." 2696function is a convenience wrapper used by `describe-package-1'."
2697 (let ((button-text (if (display-graphic-p) text (concat "[" text "]"))) 2697 (let ((button-text (if (display-graphic-p) text (concat "[" text "]")))
2698 (button-face (if (display-graphic-p) 2698 (button-face (if (display-graphic-p)
2699 '(:box (:line-width 2 :color "dark grey") 2699 (progn
2700 :background "light grey" 2700 (require 'cus-edit) ; for the custom-button face
2701 :foreground "black") 2701 'custom-button)
2702 'link))) 2702 'link)))
2703 (apply #'insert-text-button button-text 'face button-face 'follow-link t 2703 (apply #'insert-text-button button-text 'face button-face 'follow-link t
2704 properties))) 2704 properties)))