# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1117140517 0
# Node ID c3dbcfe29c9e3425414bf5b9bfc58c0a453a802b
# Parent  75fa29e46766e1b663c078772b38a2e558d78565
(calendar-mode-line-format): Use mode-line-highlight as mouse-face.

diff -r 75fa29e46766 -r c3dbcfe29c9e lisp/calendar/calendar.el
--- a/lisp/calendar/calendar.el	Thu May 26 20:43:39 2005 +0000
+++ b/lisp/calendar/calendar.el	Thu May 26 20:48:37 2005 +0000
@@ -2335,6 +2335,7 @@
    (propertize (substitute-command-keys
 		"\\<calendar-mode-map>\\[scroll-calendar-left]")
 	       'help-echo "mouse-2: scroll left"
+	       'mouse-face 'mode-line-highlight
 	       'keymap (make-mode-line-mouse-map 'mouse-2
 						 'mouse-scroll-calendar-left))
    "Calendar"
@@ -2343,12 +2344,14 @@
      (substitute-command-keys
       "\\<calendar-mode-map>\\[calendar-goto-info-node] info")
      'help-echo "mouse-2: read Info on Calendar"
+     'mouse-face 'mode-line-highlight
      'keymap (make-mode-line-mouse-map 'mouse-2 'calendar-goto-info-node))
     "/"
     (propertize
      (substitute-command-keys
      "\\<calendar-mode-map>\\[calendar-other-month] other")
      'help-echo "mouse-2: choose another month"
+     'mouse-face 'mode-line-highlight
      'keymap (make-mode-line-mouse-map
 	      'mouse-2 'mouse-calendar-other-month))
     "/"
@@ -2356,11 +2359,13 @@
      (substitute-command-keys
      "\\<calendar-mode-map>\\[calendar-goto-today] today")
      'help-echo "mouse-2: go to today's date"
+     'mouse-face 'mode-line-highlight
      'keymap (make-mode-line-mouse-map 'mouse-2 #'calendar-goto-today)))
    '(calendar-date-string (calendar-current-date) t)
    (propertize (substitute-command-keys
 		"\\<calendar-mode-map>\\[scroll-calendar-right]")
 	       'help-echo "mouse-2: scroll right"
+	       'mouse-face 'mode-line-highlight
 	       'keymap (make-mode-line-mouse-map
 			'mouse-2 'mouse-scroll-calendar-right)))
   "The mode line of the calendar buffer.