mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
Add event handling, for when called from menus with the calendar
buffer not current.
This commit is contained in:
Glenn Morris 2009-01-10 22:01:32 +00:00
parent dc67263ca3
commit 3309a9ee3f
2 changed files with 22 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/ChangeLog
View file

@ -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.

20
lisp/calendar/cal-move.el
View file

@ -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")