[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog calendar/cal-move.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog calendar/cal-move.el |
Date: |
Sat, 10 Jan 2009 22:01:37 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/01/10 22:01:36
Modified files:
lisp : ChangeLog
lisp/calendar : cal-move.el
Log message:
(calendar-scroll-left-three-months, calendar-scroll-right-three-months):
Add event handling, for when called from menus with the calendar
buffer not current.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15084&r2=1.15085
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/calendar/cal-move.el?cvsroot=emacs&r1=1.34&r2=1.35
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15084
retrieving revision 1.15085
diff -u -b -r1.15084 -r1.15085
--- ChangeLog 10 Jan 2009 17:21:08 -0000 1.15084
+++ ChangeLog 10 Jan 2009 22:01:32 -0000 1.15085
@@ -1,3 +1,13 @@
+2009-01-10 Glenn Morris <address@hidden>
+
+ * 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 <address@hidden>
* diff-mode.el (diff-show-trailing-whitespaces): Remove function.
Index: calendar/cal-move.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-move.el,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -b -r1.34 -r1.35
--- calendar/cal-move.el 5 Jan 2009 03:20:36 -0000 1.34
+++ calendar/cal-move.el 10 Jan 2009 22:01:36 -0000 1.35
@@ -190,23 +190,27 @@
'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")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog calendar/cal-move.el,
Glenn Morris <=