From 34367cc8afb05cf32d5ed9659de92989b89898c8 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Sun, 25 Apr 2021 12:59:14 +0200 Subject: [PATCH] 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 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 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))) -- 2.39.5