Mercurial > emacs
changeset 31670:4560c1d5e629
(scroll-calendar-left)
(scroll-calendar-right): Make arg optional (for active mode line).
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Sun, 17 Sep 2000 17:08:04 +0000 |
| parents | ec8ce5820488 |
| children | 83d51ddd6e3e |
| files | lisp/calendar/cal-move.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/cal-move.el Sun Sep 17 17:06:00 2000 +0000 +++ b/lisp/calendar/cal-move.el Sun Sep 17 17:08:04 2000 +0000 @@ -86,11 +86,12 @@ (interactive "p") (calendar-forward-month (* -12 arg))) -(defun scroll-calendar-left (arg) +(defun scroll-calendar-left (&optional arg) "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." (interactive "p") + (unless arg (setq arg 1)) (calendar-cursor-to-nearest-date) (let ((old-date (calendar-cursor-to-date)) (today (calendar-current-date))) @@ -106,12 +107,12 @@ (t (list month 1 year))))))) (run-hooks 'calendar-move-hook)) -(defun scroll-calendar-right (arg) +(defun scroll-calendar-right (&optional arg) "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." (interactive "p") - (scroll-calendar-left (- arg))) + (scroll-calendar-left (- (or arg 1)))) (defun scroll-calendar-left-three-months (arg) "Scroll the displayed calendar window left by 3*ARG months.