diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-04-26 03:20:48 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-04-26 03:20:48 +0000 |
| commit | f8ac059ace902aa531d409fb0b74968567422f42 (patch) | |
| tree | bb37b48eab5cbf9f39a9a446ae6444273b227dea /lisp/button.el | |
| parent | 8a4d2dee8429756a8048686fd77a887c29ac56ed (diff) | |
| download | emacs-f8ac059ace902aa531d409fb0b74968567422f42.tar.gz emacs-f8ac059ace902aa531d409fb0b74968567422f42.tar.bz2 emacs-f8ac059ace902aa531d409fb0b74968567422f42.zip | |
(button): Use underline if supported, else fall back to color.
Diffstat (limited to 'lisp/button.el')
| -rw-r--r-- | lisp/button.el | 7 |
1 files changed, 4 insertions, 3 deletions
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) |