Mercurial > emacs
changeset 62779:c3dbcfe29c9e
(calendar-mode-line-format): Use mode-line-highlight as mouse-face.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Thu, 26 May 2005 20:48:37 +0000 |
| parents | 75fa29e46766 |
| children | 64854af11132 |
| files | lisp/calendar/calendar.el |
| diffstat | 1 files changed, 5 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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.