diff options
| author | Stefan Kangas | 2021-04-25 12:59:14 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2021-04-25 13:00:29 +0200 |
| commit | 34367cc8afb05cf32d5ed9659de92989b89898c8 (patch) | |
| tree | 2cb5f4948e1db3b034865e73ab86f786140ab8eb | |
| parent | 33ba69cd7698f9f25139a57c25172f3354f6579a (diff) | |
| download | emacs-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.el | 6 |
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 | |||
| 2696 | function is a convenience wrapper used by `describe-package-1'." | 2696 | function 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))) |