aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2008-03-08 20:26:18 +0000
committerGlenn Morris2008-03-08 20:26:18 +0000
commitdb940e42bfb52cb32fef61c5ebdf8b7ece8d2862 (patch)
tree2687372a08e5bcb9b6f7238318255f5948dcfbec
parent7d4005cc08853cbe0a21036827456a889ef7697c (diff)
downloademacs-db940e42bfb52cb32fef61c5ebdf8b7ece8d2862.tar.gz
emacs-db940e42bfb52cb32fef61c5ebdf8b7ece8d2862.zip
(calendar-scroll-left, calendar-scroll-right): Doc fix.
-rw-r--r--lisp/ChangeLog3
-rw-r--r--lisp/calendar/cal-move.el6
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0c82d64f7a9..3dbfdb43f6b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -32,6 +32,9 @@
32 32
33 * calendar/cal-iso.el (calendar-iso-read-args): Doc fix. 33 * calendar/cal-iso.el (calendar-iso-read-args): Doc fix.
34 34
35 * calendar/cal-move.el (calendar-scroll-left, calendar-scroll-right):
36 Doc fix.
37
35 * calendar/cal-persia.el (persian-calendar-month-name-array) 38 * calendar/cal-persia.el (persian-calendar-month-name-array)
36 (persian-calendar-epoch): Make constants. 39 (persian-calendar-epoch): Make constants.
37 40
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."
94(defun calendar-scroll-left (&optional arg event) 94(defun calendar-scroll-left (&optional arg event)
95 "Scroll the displayed calendar left by ARG months. 95 "Scroll the displayed calendar left by ARG months.
96If ARG is negative the calendar is scrolled right. Maintains the relative 96If ARG is negative the calendar is scrolled right. Maintains the relative
97position of the cursor with respect to the calendar as well as possible." 97position of the cursor with respect to the calendar as well as possible.
98EVENT is an event like `last-nonmenu-event'."
98 (interactive (list (prefix-numeric-value current-prefix-arg) 99 (interactive (list (prefix-numeric-value current-prefix-arg)
99 last-nonmenu-event)) 100 last-nonmenu-event))
100 (unless arg (setq arg 1)) 101 (unless arg (setq arg 1))
@@ -119,7 +120,8 @@ position of the cursor with respect to the calendar as well as possible."
119(defun calendar-scroll-right (&optional arg event) 120(defun calendar-scroll-right (&optional arg event)
120 "Scroll the displayed calendar window right by ARG months. 121 "Scroll the displayed calendar window right by ARG months.
121If ARG is negative the calendar is scrolled left. Maintains the relative 122If ARG is negative the calendar is scrolled left. Maintains the relative
122position of the cursor with respect to the calendar as well as possible." 123position of the cursor with respect to the calendar as well as possible.
124EVENT is an event like `last-nonmenu-event'."
123 (interactive (list (prefix-numeric-value current-prefix-arg) 125 (interactive (list (prefix-numeric-value current-prefix-arg)
124 last-nonmenu-event)) 126 last-nonmenu-event))
125 (calendar-scroll-left (- (or arg 1)) event)) 127 (calendar-scroll-left (- (or arg 1)) event))