(custom-button-pressed): Default to inverse-video.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 82cab3b8dc1c430b08d45983a6fef026f9f9456c..8925dd43b91202f26dc5e130caa6f675e3914587 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2008-09-05  Eli Zaretskii  <eliz@gnu.org>
 
+       * 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 29152e12ce8b6f3ad1013a77a1fd9a193b56a98e..0c810879a88a9f2fbe2e464220876ca87150e604 100644 (file)
--- 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"