From f8ac059ace902aa531d409fb0b74968567422f42 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 26 Apr 2007 03:20:48 +0000 Subject: [PATCH] (button): Use underline if supported, else fall back to color. --- lisp/ChangeLog | 5 +++++ lisp/button.el | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 64874322ebb..7faf9f3bac8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-04-26 Glenn Morris + + * button.el (button): Use underline if supported, else fall back + to color. + 2007-04-25 Richard Stallman * hi-lock.el (hi-lock-file-patterns-policy): Default to `ask'. diff --git a/lisp/button.el b/lisp/button.el index 8c3681854e7..ebc078f8193 100644 --- 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) -- 2.39.2