From 3060662ffbcd0ac6a8b275138bfe13389336750b Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Wed, 25 Oct 2000 18:45:11 +0000 Subject: [PATCH] (custom-button-face, custom-button-pressed-face): Merge x w32 and mac definitions. --- lisp/cus-edit.el | 16 ++-------------- 1 file changed, 2 insertions(+), 14 deletions(-) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 9dc8ef02a13..0f697e10502 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -1705,13 +1705,7 @@ and `face'." ;;; The `custom' Widget. (defface custom-button-face - '((((type x) (class color)) ; Like default modeline - (:box (:line-width 2 :style released-button) - :background "lightgrey" :foreground "black")) - (((type w32) (class color)) ; Like default modeline - (:box (:line-width 2 :style released-button) - :background "lightgrey" :foreground "black")) - (((type mac) (class color)) ; Like default modeline + '((((type x w32 mac) (class color)) ; Like default modeline (:box (:line-width 2 :style released-button) :background "lightgrey" :foreground "black")) (t @@ -1721,13 +1715,7 @@ and `face'." :group 'custom-faces) (defface custom-button-pressed-face - '((((type x) (class color)) - (:box (:line-width 2 :style pressed-button) - :background "lightgrey" :foreground "black")) - (((type w32) (class color)) - (:box (:line-width 2 :style pressed-button) - :background "lightgrey" :foreground "black")) - (((type mac) (class color)) + '((((type x w32 mac) (class color)) (:box (:line-width 2 :style pressed-button) :background "lightgrey" :foreground "black")) (t -- 2.39.2