emacs-diffs
[Top][All Lists]
Advanced

[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)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]