Mercurial > emacs

changeset 38756:aa185d4220dd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calendar-mode-line-format): Use make-mode-line-mouse-map instead of make-mode-line-mouse2-map.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 09 Aug 2001 14:21:12 +0000
parents 2fa1afcedab9
children 75666bd5d498
files lisp/calendar/calendar.el
diffstat 1 files changed, 12 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/calendar.el	Thu Aug 09 14:06:54 2001 +0000
+++ b/lisp/calendar/calendar.el	Thu Aug 09 14:21:12 2001 +0000
@@ -2040,34 +2040,38 @@
    (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 ()