From: Chong Yidong <cyd@stupidchicken.com>
Date: Tue, 5 Jul 2011 20:44:55 +0000 (-0400)
Subject: * lisp/button.el (button): Inherit from link face.
X-Git-Tag: emacs-pretest-24.0.90~104^2~419^2~25
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=605dd5bf4ddbe61a4843c5179a38870bb1788432;p=emacs.git

* lisp/button.el (button): Inherit from link face.
Suggested by Dan Nicolaescu.
---

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  <cyd@stupidchicken.com>
+
+	* button.el (button): Inherit from link face.  Suggested by Dan
+	Nicolaescu.
+
 2011-07-05  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* 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)