diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2011-07-05 16:44:55 -0400 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2011-07-05 16:44:55 -0400 |
| commit | 605dd5bf4ddbe61a4843c5179a38870bb1788432 (patch) | |
| tree | f5237db42c9395561373ad53d420ef727ef6e089 /lisp/button.el | |
| parent | 3db614b0e4cd241383432122b41a8e47f3b821af (diff) | |
| download | emacs-605dd5bf4ddbe61a4843c5179a38870bb1788432.tar.gz emacs-605dd5bf4ddbe61a4843c5179a38870bb1788432.tar.bz2 emacs-605dd5bf4ddbe61a4843c5179a38870bb1788432.zip | |
* lisp/button.el (button): Inherit from link face.
Suggested by Dan Nicolaescu.
Diffstat (limited to 'lisp/button.el')
| -rw-r--r-- | lisp/button.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/button.el b/lisp/button.el index 2e485547745..6ef79532ae7 100644 --- a/lisp/button.el +++ b/lisp/button.el @@ -54,10 +54,7 @@ ;; 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")) - (((supports :underline t)) :underline t) - (t (:foreground "lightblue"))) +(defface button '((t :inherit link)) "Default face used for buttons." :group 'basic-faces) |