# HG changeset patch # User Glenn Morris # Date 1204947927 0 # Node ID 8ef3d53554021d3a13bae282a750b8e75194172c # Parent c11e81a389cfcb6c8d1cc563d0cace9399a9cb9e Unquote lambda functions. Add autoload cookies to functions formerly autoloaded in calendar.el. Set `generated-autoload-file' to "cal-loaddefs.el". diff -r c11e81a389cf -r 8ef3d5355402 lisp/calendar/cal-move.el --- a/lisp/calendar/cal-move.el Sat Mar 08 03:44:51 2008 +0000 +++ b/lisp/calendar/cal-move.el Sat Mar 08 03:45:27 2008 +0000 @@ -37,6 +37,7 @@ (require 'calendar) +;;;###autoload (defun calendar-goto-today () "Reposition the calendar window so the current date is visible." (interactive) @@ -47,6 +48,7 @@ (calendar-cursor-to-visible-date today))) (run-hooks 'calendar-move-hook)) +;;;###autoload (defun calendar-forward-month (arg) "Move the cursor forward ARG months. Movement is backward if ARG is negative." @@ -67,24 +69,28 @@ (calendar-cursor-to-visible-date new-cursor-date))) (run-hooks 'calendar-move-hook)) +;;;###autoload (defun calendar-forward-year (arg) "Move the cursor forward by ARG years. Movement is backward if ARG is negative." (interactive "p") (calendar-forward-month (* 12 arg))) +;;;###autoload (defun calendar-backward-month (arg) "Move the cursor backward by ARG months. Movement is forward if ARG is negative." (interactive "p") (calendar-forward-month (- arg))) +;;;###autoload (defun calendar-backward-year (arg) "Move the cursor backward ARG years. Movement is forward is ARG is negative." (interactive "p") (calendar-forward-month (* -12 arg))) +;;;###autoload (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 @@ -109,6 +115,7 @@ (t (list month 1 year))))))) (run-hooks 'calendar-move-hook))) +;;;###autoload (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 @@ -117,6 +124,7 @@ last-nonmenu-event)) (calendar-scroll-left (- (or arg 1)) event)) +;;;###autoload (defun calendar-scroll-left-three-months (arg) "Scroll the displayed calendar window left by 3*ARG months. If ARG is negative the calendar is scrolled right. Maintains the relative @@ -124,6 +132,7 @@ (interactive "p") (calendar-scroll-left (* 3 arg))) +;;;###autoload (defun calendar-scroll-right-three-months (arg) "Scroll the displayed calendar window right by 3*ARG months. If ARG is negative the calendar is scrolled left. Maintains the relative @@ -131,6 +140,7 @@ (interactive "p") (calendar-scroll-left (* -3 arg))) +;;;###autoload (defun calendar-cursor-to-nearest-date () "Move the cursor to the closest date. The position of the cursor is unchanged if it is already on a date. @@ -156,6 +166,7 @@ (re-search-backward "[0-9]" nil t))) (calendar-cursor-to-date)))) +;;;###autoload (defun calendar-forward-day (arg) "Move the cursor forward ARG days. Moves backward if ARG is negative." @@ -178,24 +189,28 @@ (calendar-cursor-to-visible-date new-cursor-date))) (run-hooks 'calendar-move-hook)) +;;;###autoload (defun calendar-backward-day (arg) "Move the cursor back ARG days. Moves forward if ARG is negative." (interactive "p") (calendar-forward-day (- arg))) +;;;###autoload (defun calendar-forward-week (arg) "Move the cursor forward ARG weeks. Moves backward if ARG is negative." (interactive "p") (calendar-forward-day (* arg 7))) +;;;###autoload (defun calendar-backward-week (arg) "Move the cursor back ARG weeks. Moves forward if ARG is negative." (interactive "p") (calendar-forward-day (* arg -7))) +;;;###autoload (defun calendar-beginning-of-week (arg) "Move the cursor back ARG calendar-week-start-day's." (interactive "p") @@ -207,6 +222,7 @@ (+ (mod (- day calendar-week-start-day) 7) (* 7 (1- arg))))))) +;;;###autoload (defun calendar-end-of-week (arg) "Move the cursor forward ARG calendar-week-start-day+6's." (interactive "p") @@ -218,6 +234,7 @@ (+ (- 6 (mod (- day calendar-week-start-day) 7)) (* 7 (1- arg))))))) +;;;###autoload (defun calendar-beginning-of-month (arg) "Move the cursor backward ARG month beginnings." (interactive "p") @@ -231,6 +248,7 @@ (calendar-cursor-to-visible-date (list month 1 year)) (calendar-backward-month (1- arg))))) +;;;###autoload (defun calendar-end-of-month (arg) "Move the cursor forward ARG month ends." (interactive "p") @@ -254,6 +272,7 @@ (calendar-cursor-to-visible-date last-day)))) (run-hooks 'calendar-move-hook)) +;;;###autoload (defun calendar-beginning-of-year (arg) "Move the cursor backward ARG year beginnings." (interactive "p") @@ -273,6 +292,7 @@ (calendar-cursor-to-visible-date (list 1 1 displayed-year))))) (run-hooks 'calendar-move-hook)) +;;;###autoload (defun calendar-end-of-year (arg) "Move the cursor forward ARG year beginnings." (interactive "p") @@ -292,6 +312,7 @@ (calendar-cursor-to-visible-date (list 12 31 displayed-year))))) (run-hooks 'calendar-move-hook)) +;;;###autoload (defun calendar-cursor-to-visible-date (date) "Move the cursor to DATE that is on the screen." (let* ((month (extract-calendar-month date)) @@ -313,7 +334,7 @@ (- (calendar-day-of-week date) calendar-week-start-day) 7)))))) - +;;;###autoload (defun calendar-goto-date (date) "Move cursor to DATE." (interactive (list (calendar-read-date))) @@ -328,6 +349,7 @@ (calendar-cursor-to-visible-date date) (run-hooks 'calendar-move-hook)) +;;;###autoload (defun calendar-goto-day-of-year (year day &optional noecho) "Move cursor to YEAR, DAY number; echo DAY/YEAR unless NOECHO is t. Negative DAY counts backward from end of year." @@ -340,7 +362,7 @@ (last (if (calendar-leap-year-p year) 366 365)) (day (calendar-read (format "Day number (+/- 1-%d): " last) - '(lambda (x) (and (<= 1 (abs x)) (<= (abs x) last)))))) + (lambda (x) (and (<= 1 (abs x)) (<= (abs x) last)))))) (list year day))) (calendar-goto-date (calendar-gregorian-from-absolute @@ -361,5 +383,9 @@ (provide 'cal-move) +;; Local Variables: +;; generated-autoload-file: "cal-loaddefs.el" +;; End: + ;; arch-tag: d0883c46-7e16-4914-8ff8-8f67e699b781 ;;; cal-move.el ends here