From: Glenn Morris <rgm@gnu.org>
Date: Sat, 10 Jan 2009 22:01:32 +0000 (+0000)
Subject: (calendar-scroll-left-three-months, calendar-scroll-right-three-months):
X-Git-Tag: emacs-pretest-23.0.90~544
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3309a9ee3f196146ecc1651da0bf1d3449a48411;p=emacs.git

(calendar-scroll-left-three-months, calendar-scroll-right-three-months):
Add event handling, for when called from menus with the calendar
buffer not current.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a94006499ad..519ca5d847f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2009-01-10  Glenn Morris  <rgm@gnu.org>
+
+	* calendar/cal-move.el (calendar-scroll-left-three-months)
+	(calendar-scroll-right-three-months):
+	* calendar/holidays.el (calendar-list-holidays)
+	(calendar-mark-holidays):
+	* calendar/lunar.el (calendar-lunar-phases):
+	Add event handling, for when called from menus with the calendar buffer
+	not current.
+
 2009-01-10  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* diff-mode.el (diff-show-trailing-whitespaces): Remove function.
diff --git a/lisp/calendar/cal-move.el b/lisp/calendar/cal-move.el
index e262bd0b77b..749fe9f8c97 100644
--- a/lisp/calendar/cal-move.el
+++ b/lisp/calendar/cal-move.el
@@ -190,23 +190,27 @@ EVENT is an event like `last-nonmenu-event'."
   'scroll-calendar-right 'calendar-scroll-right "23.1")
 
 ;;;###cal-autoload
-(defun calendar-scroll-left-three-months (arg)
+(defun calendar-scroll-left-three-months (arg &optional event)
   "Scroll the displayed calendar window left by 3*ARG months.
 If ARG is negative the calendar is scrolled right.  Maintains the relative
-position of the cursor with respect to the calendar as well as possible."
-  (interactive "p")
-  (calendar-scroll-left (* 3 arg)))
+position of the cursor with respect to the calendar as well as possible.
+EVENT is an event like `last-nonmenu-event'."
+  (interactive (list (prefix-numeric-value current-prefix-arg)
+                     last-nonmenu-event))
+  (calendar-scroll-left (* 3 arg) event))
 
 (define-obsolete-function-alias 'scroll-calendar-left-three-months
   'calendar-scroll-left-three-months "23.1")
 
 ;;;###cal-autoload
-(defun calendar-scroll-right-three-months (arg)
+(defun calendar-scroll-right-three-months (arg &optional event)
   "Scroll the displayed calendar window right by 3*ARG months.
 If ARG is negative the calendar is scrolled left.  Maintains the relative
-position of the cursor with respect to the calendar as well as possible."
-  (interactive "p")
-  (calendar-scroll-left (* -3 arg)))
+position of the cursor with respect to the calendar as well as possible.
+EVENT is an event like `last-nonmenu-event'."
+  (interactive (list (prefix-numeric-value current-prefix-arg)
+                     last-nonmenu-event))
+  (calendar-scroll-left (* -3 arg) event))
 
 (define-obsolete-function-alias 'scroll-calendar-right-three-months
   'calendar-scroll-right-three-months "23.1")