(button): Use underline if supported, else fall back to color.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 64874322ebb67e8d1aeb0fef47bda109b2cdac7b..7faf9f3bac8bd2e35c18a5f605840ebdca5fcaaa 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-04-26  Glenn Morris  <rgm@gnu.org>
+
+       * button.el (button): Use underline if supported, else fall back
+       to color.
+
 2007-04-25  Richard Stallman  <rms@gnu.org>
 
        * hi-lock.el (hi-lock-file-patterns-policy): Default to `ask'.

diff --git a/lisp/button.el b/lisp/button.el
index 8c3681854e77c4fdbe1e1e0cfbe326b511aded9e..ebc078f81932b85e9a06d71ef75ef0742b7360c1 100644 (file)
--- a/lisp/button.el
+++ b/lisp/button.el
@@ -52,11 +52,12 @@
 ;; Globals
 
 ;; Use color for the MS-DOS port because it doesn't support underline.
-;; Also for the linux console.
+;; 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"))
-                 (((type tty)) (:inherit link))
-                 (t :underline t))
+                 (((supports :underline t)) :underline t)
+                 (t (:foreground "lightblue")))
   "Default face used for buttons."
   :group 'basic-faces)