Mercurial > emacs
comparison lisp/calendar/calendar.el @ 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 | a7e02ef1e3d6 |
| children | 6e968f79cfbc 01137c1fdbe9 |
comparison
equal
deleted
inserted
replaced
| 62778:75fa29e46766 | 62779:c3dbcfe29c9e |
|---|---|
| 2333 (defvar calendar-mode-line-format | 2333 (defvar calendar-mode-line-format |
| 2334 (list | 2334 (list |
| 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" |
| 2341 (concat | 2342 (concat |
| 2342 (propertize | 2343 (propertize |
| 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 "/" |
| 2355 (propertize | 2358 (propertize |
| 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. |
| 2367 | 2372 |
| 2368 This must be a list of items that evaluate to strings--those strings are | 2373 This must be a list of items that evaluate to strings--those strings are |