summaryrefslogtreecommitdiff
path: root/lisp/button.el
diff options
context:
space:
mode:
authorChong Yidong <cyd@stupidchicken.com>2011-07-05 16:44:55 -0400
committerChong Yidong <cyd@stupidchicken.com>2011-07-05 16:44:55 -0400
commit605dd5bf4ddbe61a4843c5179a38870bb1788432 (patch)
treef5237db42c9395561373ad53d420ef727ef6e089 /lisp/button.el
parent3db614b0e4cd241383432122b41a8e47f3b821af (diff)
downloademacs-605dd5bf4ddbe61a4843c5179a38870bb1788432.tar.gz
* lisp/button.el (button): Inherit from link face.
Suggested by Dan Nicolaescu.
Diffstat (limited to 'lisp/button.el')
-rw-r--r--lisp/button.el5
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)