[Emacs-diffs] /srv/bzr/emacs/trunk r104974: * lisp/button.el (button): Inherit from link face.

[Chong Yidong]

------------------------------------------------------------
revno: 104974
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Tue 2011-07-05 16:44:55 -0400
message:
  * lisp/button.el (button): Inherit from link face.
  Suggested by Dan Nicolaescu.
modified:
  lisp/ChangeLog
  lisp/button.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-07-05 18:58:33 +0000
+++ b/lisp/ChangeLog    2011-07-05 20:44:55 +0000
@@ -1,3 +1,8 @@
+2011-07-05  Chong Yidong  <address@hidden>
+
+       * button.el (button): Inherit from link face.  Suggested by Dan
+       Nicolaescu.
+
 2011-07-05  Stefan Monnier  <address@hidden>
 
        * progmodes/gdb-mi.el: Fit in 80 columns.

=== modified file 'lisp/button.el'
--- a/lisp/button.el    2011-01-25 04:08:28 +0000
+++ b/lisp/button.el    2011-07-05 20:44:55 +0000
@@ -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)