* simple.el (current-kill): Clarify what `interprogram-paste-function' does.

[bpt/emacs.git] / lisp / button.el

diff --git a/lisp/button.el b/lisp/button.el
index 2e48554..6ef7953 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)