diff options
| author | Glenn Morris | 2008-03-08 20:26:18 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-03-08 20:26:18 +0000 |
| commit | db940e42bfb52cb32fef61c5ebdf8b7ece8d2862 (patch) | |
| tree | 2687372a08e5bcb9b6f7238318255f5948dcfbec | |
| parent | 7d4005cc08853cbe0a21036827456a889ef7697c (diff) | |
| download | emacs-db940e42bfb52cb32fef61c5ebdf8b7ece8d2862.tar.gz emacs-db940e42bfb52cb32fef61c5ebdf8b7ece8d2862.zip | |
(calendar-scroll-left, calendar-scroll-right): Doc fix.
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/calendar/cal-move.el | 6 |
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. |
| 96 | If ARG is negative the calendar is scrolled right. Maintains the relative | 96 | If ARG is negative the calendar is scrolled right. Maintains the relative |
| 97 | position of the cursor with respect to the calendar as well as possible." | 97 | position of the cursor with respect to the calendar as well as possible. |
| 98 | EVENT 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. |
| 121 | If ARG is negative the calendar is scrolled left. Maintains the relative | 122 | If ARG is negative the calendar is scrolled left. Maintains the relative |
| 122 | position of the cursor with respect to the calendar as well as possible." | 123 | position of the cursor with respect to the calendar as well as possible. |
| 124 | EVENT 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)) |