[Emacs-diffs] Changes to emacs/lisp/calendar/calendar.el

[Richard M. Stallman]

Index: emacs/lisp/calendar/calendar.el
diff -c emacs/lisp/calendar/calendar.el:1.140 
emacs/lisp/calendar/calendar.el:1.141
*** emacs/lisp/calendar/calendar.el:1.140       Wed Apr  3 09:47:16 2002
--- emacs/lisp/calendar/calendar.el     Mon Sep  9 15:37:19 2002
***************
*** 2044,2050 ****
                "\\<calendar-mode-map>\\[scroll-calendar-left]")
               'help-echo "mouse-2: scroll left"
               'keymap (make-mode-line-mouse-map 'mouse-2
!                                                #'scroll-calendar-left))
     "Calendar"
     (concat
      (propertize
--- 2044,2050 ----
                "\\<calendar-mode-map>\\[scroll-calendar-left]")
               'help-echo "mouse-2: scroll left"
               'keymap (make-mode-line-mouse-map 'mouse-2
!                                                'mouse-scroll-calendar-left))
     "Calendar"
     (concat
      (propertize
***************
*** 2058,2068 ****
       "\\<calendar-mode-map>\\[calendar-other-month] other")
       'help-echo "mouse-2: choose another month"
       'keymap (make-mode-line-mouse-map
!             'mouse-2
!             (lambda ()
!               (interactive)
!               (call-interactively
!                'calendar-other-month))))
      "/"
      (propertize
       (substitute-command-keys
--- 2058,2064 ----
       "\\<calendar-mode-map>\\[calendar-other-month] other")
       'help-echo "mouse-2: choose another month"
       'keymap (make-mode-line-mouse-map
!             'mouse-2 'mouse-calendar-other-month))
      "/"
      (propertize
       (substitute-command-keys
***************
*** 2074,2080 ****
                "\\<calendar-mode-map>\\[scroll-calendar-right]")
               'help-echo "mouse-2: scroll right"
               'keymap (make-mode-line-mouse-map
!                       'mouse-2 #'scroll-calendar-right)))
    "The mode line of the calendar buffer.
  
  This must be a list of items that evaluate to strings--those strings are
--- 2070,2076 ----
                "\\<calendar-mode-map>\\[scroll-calendar-right]")
               'help-echo "mouse-2: scroll right"
               'keymap (make-mode-line-mouse-map
!                       'mouse-2 'mouse-scroll-calendar-right)))
    "The mode line of the calendar buffer.
  
  This must be a list of items that evaluate to strings--those strings are
***************
*** 2101,2106 ****
--- 2097,2127 ----
              (extract-calendar-year iso-date)))
         \"\"))
  ")
+ 
+ (defun mouse-scroll-calendar-left (event)
+   "Scroll the displayed calendar left by one month.
+ Maintains the relative position of the cursor
+ with respect to the calendar as well as possible."
+   (interactive "e")
+   (save-selected-window
+     (select-window (posn-window (event-start event)))
+     (scroll-calendar-left 1)))
+ 
+ (defun mouse-scroll-calendar-right (event)
+   "Scroll the displayed calendar right by one month.
+ Maintains the relative position of the cursor
+ with respect to the calendar as well as possible."
+   (interactive "e")
+   (save-selected-window
+     (select-window (posn-window (event-start event)))
+     (scroll-calendar-right 1)))
+ 
+ (defun mouse-calendar-other-month (event)
+   "Display a three-month calendar centered around a specified month and year."
+   (interactive "e")
+   (save-selected-window
+     (select-window (posn-window (event-start event)))
+     (call-interactively 'calendar-other-month)))
  
  (defun calendar-goto-info-node ()
    "Go to the info node for the calendar."