From: Luc Teirlinck Date: Thu, 26 May 2005 20:48:37 +0000 (+0000) Subject: (calendar-mode-line-format): Use mode-line-highlight as mouse-face. X-Git-Tag: emacs-pretest-22.0.90~9512 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a9dd908b16ab37812c703d447774fb90d65de706;p=emacs.git (calendar-mode-line-format): Use mode-line-highlight as mouse-face. --- diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index 45754110319..fdf565c7923 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -2335,6 +2335,7 @@ movement commands will not work correctly." (propertize (substitute-command-keys "\\\\[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 @@ movement commands will not work correctly." (substitute-command-keys "\\\\[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-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 @@ movement commands will not work correctly." (substitute-command-keys "\\\\[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 "\\\\[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.