* lisp/button.el (button): Inherit from link face.

Suggested by Dan Nicolaescu.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 21187d82d4b7687efb1185a3a7ba06aa8bdfd195..32423da9afe193e3f1561729e26adcc484348aed 100644 (file)
--- 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 2e485547745b3e7f5fcb39278715390affd61549..6ef79532ae76238b1167f463cb5174b3931baca5 100644 (file)
--- 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)