mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-14 07:20:35 -08:00
Code Issues Projects Releases Wiki Activity

(calendar-scroll-left, calendar-scroll-right): Doc fix.

Browse source
This commit is contained in:
Glenn Morris 2008-03-08 20:26:18 +00:00
parent 7d4005cc08
commit db940e42bf
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

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

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

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