From 19758b9562a0cb7325aeae1d99b347a4fbb18e46 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 5 Sep 2008 15:08:34 +0000 Subject: [PATCH] (custom-button-pressed): Default to inverse-video. --- lisp/ChangeLog | 2 ++ lisp/cus-edit.el | 5 ++++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 82cab3b8dc1..8925dd43b91 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2008-09-05 Eli Zaretskii + * cus-edit.el (custom-button-pressed): Default to inverse-video. + * term/pc-win.el (msdos-face-setup): Setup faces for all frames, not just for terminal-frame. diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 29152e12ce8..0c810879a88 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -2073,7 +2073,7 @@ and `face'." (:box (:line-width 2 :style released-button) :background "grey90" :foreground "black")) (t - nil)) + (:inverse-video t))) "Mouse face for custom buffer buttons if `custom-raised-buttons' is non-nil." :version "22.1" :group 'custom-faces) @@ -2095,6 +2095,9 @@ and `face'." (:box (:line-width 2 :style pressed-button) :background "lightgrey" :foreground "black")) (t + ;; This is for text terminals that support mouse, like GPM mouse + ;; or the MS-DOS terminal: inverse-video makes the button stand + ;; out on mouse-over. (:inverse-video t))) "Face for pressed custom buttons if `custom-raised-buttons' is non-nil." :version "21.1" -- 2.39.5