diff options
Diffstat (limited to 'lisp/button.el')
| -rw-r--r-- | lisp/button.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/button.el b/lisp/button.el index 423aef5f78f..ebc078f8193 100644 --- a/lisp/button.el +++ b/lisp/button.el @@ -52,9 +52,12 @@ ;; Globals ;; 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")) - (t :underline t)) + (((supports :underline t)) :underline t) + (t (:foreground "lightblue"))) "Default face used for buttons." :group 'basic-faces) |