Commit 3309a9ee authored by Glenn Morris's avatar Glenn Morris
Browse files

(calendar-scroll-left-three-months, calendar-scroll-right-three-months):

Add event handling, for when called from menus with the calendar
buffer not current.
parent dc67263c
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> 2009-01-10 Dan Nicolaescu <dann@ics.uci.edu>
   
* diff-mode.el (diff-show-trailing-whitespaces): Remove function. * diff-mode.el (diff-show-trailing-whitespaces): Remove function.
......
...@@ -190,23 +190,27 @@ EVENT is an event like `last-nonmenu-event'." ...@@ -190,23 +190,27 @@ EVENT is an event like `last-nonmenu-event'."
'scroll-calendar-right 'calendar-scroll-right "23.1") 'scroll-calendar-right 'calendar-scroll-right "23.1")
;;;###cal-autoload ;;;###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. "Scroll the displayed calendar window left by 3*ARG months.
If ARG is negative the calendar is scrolled right. Maintains the relative 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." position of the cursor with respect to the calendar as well as possible.
(interactive "p") EVENT is an event like `last-nonmenu-event'."
(calendar-scroll-left (* 3 arg))) (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 (define-obsolete-function-alias 'scroll-calendar-left-three-months
'calendar-scroll-left-three-months "23.1") 'calendar-scroll-left-three-months "23.1")
;;;###cal-autoload ;;;###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. "Scroll the displayed calendar window right by 3*ARG months.
If ARG is negative the calendar is scrolled left. Maintains the relative 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." position of the cursor with respect to the calendar as well as possible.
(interactive "p") EVENT is an event like `last-nonmenu-event'."
(calendar-scroll-left (* -3 arg))) (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 (define-obsolete-function-alias 'scroll-calendar-right-three-months
'calendar-scroll-right-three-months "23.1") 'calendar-scroll-right-three-months "23.1")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment