]> code.delx.au - gnu-emacs/blobdiff - lisp/button.el
* lisp/international/mule-diag.el (mule-diag): Insert a newline after
[gnu-emacs] / lisp / button.el
index 2e485547745b3e7f5fcb39278715390affd61549..6ef79532ae76238b1167f463cb5174b3931baca5 100644 (file)
 ;; 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)