Mercurial > emacs

changeset 77498:9db4aaa87823

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(button): Use underline if supported, else fall back to color.
author Glenn Morris <rgm@gnu.org>
date Thu, 26 Apr 2007 03:19:13 +0000
parents 4d6451d8270d
children 058b4c54c710
files lisp/button.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/button.el	Thu Apr 26 03:18:37 2007 +0000
+++ b/lisp/button.el	Thu Apr 26 03:19:13 2007 +0000
@@ -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)