[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 34367cc: Don't hard-code face of "Install" button
From: |
Stefan Kangas |
Subject: |
master 34367cc: Don't hard-code face of "Install" button |
Date: |
Sun, 25 Apr 2021 07:01:44 -0400 (EDT) |
branch: master
commit 34367cc8afb05cf32d5ed9659de92989b89898c8
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
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)
---
lisp/emacs-lisp/package.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 64d7d56..f2e83d3 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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 34367cc: Don't hard-code face of "Install" button,
Stefan Kangas <=