(calendar-mode-line-format): Use

make-mode-line-mouse-map instead of make-mode-line-mouse2-map.

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 29a23d45865379e7a1bf3ef2e547a97767b75bfc..3b22409e444bc1c6961655174a5ffcef54d8b680 100644 (file)
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -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 ()