diff options
| author | Luc Teirlinck | 2005-05-26 20:48:37 +0000 |
|---|---|---|
| committer | Luc Teirlinck | 2005-05-26 20:48:37 +0000 |
| commit | a9dd908b16ab37812c703d447774fb90d65de706 (patch) | |
| tree | 1697f4456728cf815eba99b67c23b7d56c91a475 /lisp | |
| parent | 3a02b63eb53a4f0508a6a0d5470635ad6ce6c606 (diff) | |
| download | emacs-a9dd908b16ab37812c703d447774fb90d65de706.tar.gz emacs-a9dd908b16ab37812c703d447774fb90d65de706.zip | |
(calendar-mode-line-format): Use mode-line-highlight as mouse-face.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/calendar/calendar.el | 5 |
1 files changed, 5 insertions, 0 deletions
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." | |||
| 2335 | (propertize (substitute-command-keys | 2335 | (propertize (substitute-command-keys |
| 2336 | "\\<calendar-mode-map>\\[scroll-calendar-left]") | 2336 | "\\<calendar-mode-map>\\[scroll-calendar-left]") |
| 2337 | 'help-echo "mouse-2: scroll left" | 2337 | 'help-echo "mouse-2: scroll left" |
| 2338 | 'mouse-face 'mode-line-highlight | ||
| 2338 | 'keymap (make-mode-line-mouse-map 'mouse-2 | 2339 | 'keymap (make-mode-line-mouse-map 'mouse-2 |
| 2339 | 'mouse-scroll-calendar-left)) | 2340 | 'mouse-scroll-calendar-left)) |
| 2340 | "Calendar" | 2341 | "Calendar" |
| @@ -2343,12 +2344,14 @@ movement commands will not work correctly." | |||
| 2343 | (substitute-command-keys | 2344 | (substitute-command-keys |
| 2344 | "\\<calendar-mode-map>\\[calendar-goto-info-node] info") | 2345 | "\\<calendar-mode-map>\\[calendar-goto-info-node] info") |
| 2345 | 'help-echo "mouse-2: read Info on Calendar" | 2346 | 'help-echo "mouse-2: read Info on Calendar" |
| 2347 | 'mouse-face 'mode-line-highlight | ||
| 2346 | 'keymap (make-mode-line-mouse-map 'mouse-2 'calendar-goto-info-node)) | 2348 | 'keymap (make-mode-line-mouse-map 'mouse-2 'calendar-goto-info-node)) |
| 2347 | "/" | 2349 | "/" |
| 2348 | (propertize | 2350 | (propertize |
| 2349 | (substitute-command-keys | 2351 | (substitute-command-keys |
| 2350 | "\\<calendar-mode-map>\\[calendar-other-month] other") | 2352 | "\\<calendar-mode-map>\\[calendar-other-month] other") |
| 2351 | 'help-echo "mouse-2: choose another month" | 2353 | 'help-echo "mouse-2: choose another month" |
| 2354 | 'mouse-face 'mode-line-highlight | ||
| 2352 | 'keymap (make-mode-line-mouse-map | 2355 | 'keymap (make-mode-line-mouse-map |
| 2353 | 'mouse-2 'mouse-calendar-other-month)) | 2356 | 'mouse-2 'mouse-calendar-other-month)) |
| 2354 | "/" | 2357 | "/" |
| @@ -2356,11 +2359,13 @@ movement commands will not work correctly." | |||
| 2356 | (substitute-command-keys | 2359 | (substitute-command-keys |
| 2357 | "\\<calendar-mode-map>\\[calendar-goto-today] today") | 2360 | "\\<calendar-mode-map>\\[calendar-goto-today] today") |
| 2358 | 'help-echo "mouse-2: go to today's date" | 2361 | 'help-echo "mouse-2: go to today's date" |
| 2362 | 'mouse-face 'mode-line-highlight | ||
| 2359 | 'keymap (make-mode-line-mouse-map 'mouse-2 #'calendar-goto-today))) | 2363 | 'keymap (make-mode-line-mouse-map 'mouse-2 #'calendar-goto-today))) |
| 2360 | '(calendar-date-string (calendar-current-date) t) | 2364 | '(calendar-date-string (calendar-current-date) t) |
| 2361 | (propertize (substitute-command-keys | 2365 | (propertize (substitute-command-keys |
| 2362 | "\\<calendar-mode-map>\\[scroll-calendar-right]") | 2366 | "\\<calendar-mode-map>\\[scroll-calendar-right]") |
| 2363 | 'help-echo "mouse-2: scroll right" | 2367 | 'help-echo "mouse-2: scroll right" |
| 2368 | 'mouse-face 'mode-line-highlight | ||
| 2364 | 'keymap (make-mode-line-mouse-map | 2369 | 'keymap (make-mode-line-mouse-map |
| 2365 | 'mouse-2 'mouse-scroll-calendar-right))) | 2370 | 'mouse-2 'mouse-scroll-calendar-right))) |
| 2366 | "The mode line of the calendar buffer. | 2371 | "The mode line of the calendar buffer. |