[Emacs-diffs] Changes to emacs/lisp/calendar/calendar.el

[Luc Teirlinck]

Index: emacs/lisp/calendar/calendar.el
diff -c emacs/lisp/calendar/calendar.el:1.169 
emacs/lisp/calendar/calendar.el:1.170
*** emacs/lisp/calendar/calendar.el:1.169       Mon May 16 11:11:48 2005
--- emacs/lisp/calendar/calendar.el     Thu May 26 20:48:37 2005
***************
*** 2335,2340 ****
--- 2335,2341 ----
     (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,2354 ****
--- 2344,2357 ----
       (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,2366 ****
--- 2359,2371 ----
       (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.