Mercurial > emacs
comparison lisp/button.el @ 77556:674c5ccdb880
(button): Use underline if supported, else fall back to color.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 26 Apr 2007 03:19:53 +0000 |
| parents | fa273fd354c2 |
| children | 9355f9b7bbff 92c344270c8a |
comparison
equal
deleted
inserted
replaced
| 77555:761c9f895b08 | 77556:674c5ccdb880 |
|---|---|
| 50 | 50 |
| 51 | 51 |
| 52 ;; Globals | 52 ;; Globals |
| 53 | 53 |
| 54 ;; Use color for the MS-DOS port because it doesn't support underline. | 54 ;; Use color for the MS-DOS port because it doesn't support underline. |
| 55 ;; Also for the linux console. | 55 ;; FIXME if MS-DOS correctly answers the (supports) question, it need |
| 56 ;; no longer be a special case. | |
| 56 (defface button '((((type pc) (class color)) | 57 (defface button '((((type pc) (class color)) |
| 57 (:foreground "lightblue")) | 58 (:foreground "lightblue")) |
| 58 (((type tty)) (:inherit link)) | 59 (((supports :underline t)) :underline t) |
| 59 (t :underline t)) | 60 (t (:foreground "lightblue"))) |
| 60 "Default face used for buttons." | 61 "Default face used for buttons." |
| 61 :group 'basic-faces) | 62 :group 'basic-faces) |
| 62 | 63 |
| 63 ;;;###autoload | 64 ;;;###autoload |
| 64 (defvar button-map | 65 (defvar button-map |