From 605dd5bf4ddbe61a4843c5179a38870bb1788432 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 5 Jul 2011 16:44:55 -0400 Subject: [PATCH] * lisp/button.el (button): Inherit from link face. Suggested by Dan Nicolaescu. --- lisp/ChangeLog | 5 +++++ lisp/button.el | 5 +---- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 21187d82d4b..32423da9afe 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-07-05 Chong Yidong + + * button.el (button): Inherit from link face. Suggested by Dan + Nicolaescu. + 2011-07-05 Stefan Monnier * progmodes/gdb-mi.el: Fit in 80 columns. diff --git a/lisp/button.el b/lisp/button.el index 2e485547745..6ef79532ae7 100644 --- a/lisp/button.el +++ b/lisp/button.el @@ -54,10 +54,7 @@ ;; Use color for the MS-DOS port because it doesn't support underline. ;; FIXME if MS-DOS correctly answers the (supports) question, it need ;; no longer be a special case. -(defface button '((((type pc) (class color)) - (:foreground "lightblue")) - (((supports :underline t)) :underline t) - (t (:foreground "lightblue"))) +(defface button '((t :inherit link)) "Default face used for buttons." :group 'basic-faces) -- 2.39.2