From: Glenn Morris Date: Sat, 8 Mar 2008 20:26:18 +0000 (+0000) Subject: (calendar-scroll-left, calendar-scroll-right): Doc fix. X-Git-Tag: emacs-pretest-23.0.90~7349 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=db940e42bfb52cb32fef61c5ebdf8b7ece8d2862;p=emacs.git (calendar-scroll-left, calendar-scroll-right): Doc fix. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0c82d64f7a9..3dbfdb43f6b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -32,6 +32,9 @@ * calendar/cal-iso.el (calendar-iso-read-args): Doc fix. + * calendar/cal-move.el (calendar-scroll-left, calendar-scroll-right): + Doc fix. + * calendar/cal-persia.el (persian-calendar-month-name-array) (persian-calendar-epoch): Make constants. diff --git a/lisp/calendar/cal-move.el b/lisp/calendar/cal-move.el index 020d6a05530..ec01ef9ca21 100644 --- a/lisp/calendar/cal-move.el +++ b/lisp/calendar/cal-move.el @@ -94,7 +94,8 @@ Movement is forward is ARG is negative." (defun calendar-scroll-left (&optional arg event) "Scroll the displayed calendar left by 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." +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)) (unless arg (setq arg 1)) @@ -119,7 +120,8 @@ position of the cursor with respect to the calendar as well as possible." (defun calendar-scroll-right (&optional arg event) "Scroll the displayed calendar window right by 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." +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 (- (or arg 1)) event))