mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(scroll-calendar-left)

Browse Source 
(scroll-calendar-right): Make arg optional (for active mode line).
This commit is contained in:
Dave Love 2000-09-17 17:08:04 +00:00
parent d4ff5db9b4
commit f7b37bae63
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/calendar/cal-move.el
View File

@ -86,11 +86,12 @@ Movement is forward is ARG is negative."
(interactive "p") (interactive "p")
(calendar-forward-month (* -12 arg))) (calendar-forward-month (* -12 arg)))
(defun scroll-calendar-left (arg) (defun scroll-calendar-left (&optional arg)
"Scroll the displayed calendar left by ARG months. "Scroll the displayed calendar left by ARG months.
If ARG is negative the calendar is scrolled right. Maintains the relative 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."
(interactive "p") (interactive "p")
(unless arg (setq arg 1))
(calendar-cursor-to-nearest-date) (calendar-cursor-to-nearest-date)
(let ((old-date (calendar-cursor-to-date)) (let ((old-date (calendar-cursor-to-date))
(today (calendar-current-date))) (today (calendar-current-date)))
@ -106,12 +107,12 @@ position of the cursor with respect to the calendar as well as possible."
(t (list month 1 year))))))) (t (list month 1 year)))))))
(run-hooks 'calendar-move-hook)) (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. "Scroll the displayed calendar window right by ARG months.
If ARG is negative the calendar is scrolled left. Maintains the relative 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."
(interactive "p") (interactive "p")
(scroll-calendar-left (- arg))) (scroll-calendar-left (- (or arg 1))))
(defun scroll-calendar-left-three-months (arg) (defun scroll-calendar-left-three-months (arg)
"Scroll the displayed calendar window left by 3*ARG months. "Scroll the displayed calendar window left by 3*ARG months.