mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-26 16:51:46 -07:00
Code Issues Projects Releases Wiki Activity

(calendar-mode-line-format): Use

Browse source 
make-mode-line-mouse-map instead of make-mode-line-mouse2-map.
This commit is contained in:
Gerd Moellmann 2001-08-09 14:21:12 +00:00
parent 1ebfdece8e
commit d0b56ec54a
1 changed files with 12 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lisp/calendar/calendar.el
View file

@ -2040,34 +2040,38 @@ the inserted text. Value is always t."
(propertize (substitute-command-keys
"\\<calendar-mode-map>\\[scroll-calendar-left]")
'help-echo "mouse-2: scroll left"
'keymap (make-mode-line-mouse2-map #'scroll-calendar-left))
'keymap (make-mode-line-mouse-map 'mouse-2
#'scroll-calendar-left))
"Calendar"
(concat
(propertize
(substitute-command-keys
"\\<calendar-mode-map>\\[calendar-goto-info-node] info")
'help-echo "mouse-2: read Info on Calendar"
'keymap (make-mode-line-mouse2-map #'calendar-goto-info-node))
'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"
'keymap (make-mode-line-mouse2-map (lambda ()
(interactive)
(call-interactively
'calendar-other-month))))
'keymap (make-mode-line-mouse-map
'mouse-2
(lambda ()
(interactive)
(call-interactively
'calendar-other-month))))
"/"
(propertize
(substitute-command-keys
"\\<calendar-mode-map>\\[calendar-goto-today] today")
'help-echo "mouse-2: go to today's date"
'keymap (make-mode-line-mouse2-map #'calendar-goto-today)))
'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"
'keymap (make-mode-line-mouse2-map #'scroll-calendar-right)))
'keymap (make-mode-line-mouse-map
'mouse-2 #'scroll-calendar-right)))
"The mode line of the calendar buffer.")
(defun calendar-goto-info-node ()