;ELC ;;; Compiled by kwzh@mescaline.gnu.org on Sat Jun 20 19:53:26 1998 ;;; from file /gnu/gd/gd/1/gnu/emacs/lisp/calendar/cal-move.el ;;; in Emacs version 20.2.96.1 ;;; with bytecomp version 2.46 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`cal-move.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'calendar) #@64 Reposition the calendar window so the current date is visible. (defalias 'calendar-goto-today #[nil "\301 \302!\204\303 \202\304 \210\305!)\207" [today calendar-current-date calendar-date-is-visible-p generate-calendar-window update-calendar-mode-line calendar-cursor-to-visible-date] 2 (#$ . 641) nil]) #@78 Move the cursor forward ARG months. Movement is backward if ARG is negative. (defalias 'calendar-forward-month #[(arg) "\306 \210\307\310!\211\211@)\211A@)\211AA@)\211\311_\n\\ \\\312\\\211\311\246T\311\245)\n\f\211\313U\203\\\f\211\314\246\315U\205T\f\316\246\315U?\206T\f\317\246\315U)\203\\\320\202`\321\nSH*\211 W\203l)\n \fE\322!\204\323\n\f\"\210\324!-\207" [cursor-date date month day year arg calendar-cursor-to-nearest-date calendar-cursor-to-date t 12 -1 2 4 0 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] calendar-date-is-visible-p calendar-other-month calendar-cursor-to-visible-date macro-y last new-cursor-date] 4 (#$ . 958) "p"]) #@80 Move the cursor forward by ARG years. Movement is backward if ARG is negative. (defalias 'calendar-forward-year #[(arg) "\301\302_!\207" [arg calendar-forward-month 12] 3 (#$ . 1650) "p"]) #@81 Move the cursor backward by ARG months. Movement is forward if ARG is negative. (defalias 'calendar-backward-month #[(arg) "\301[!\207" [arg calendar-forward-month] 2 (#$ . 1846) "p"]) #@77 Move the cursor backward ARG years. Movement is forward is ARG is negative. (defalias 'calendar-backward-year #[(arg) "\301\302_!\207" [arg calendar-forward-month -12] 3 (#$ . 2038) "p"]) #@199 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. (defalias 'scroll-calendar-left #[(arg) "\306 \210\307 \310 \n\311U?\205C \312_\f\\\n\\\313\\\211\312\246T \312\245)\314\f \"\210\315\316 !\2034 \202B\316!\203>\202B\f\317 E!*\207" [today old-date arg displayed-year displayed-month macro-y calendar-cursor-to-nearest-date calendar-cursor-to-date calendar-current-date 0 12 -1 generate-calendar-window calendar-cursor-to-visible-date calendar-date-is-visible-p 1] 5 (#$ . 2234) "p"]) #@206 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. (defalias 'scroll-calendar-right #[(arg) "\301[!\207" [arg scroll-calendar-left] 2 (#$ . 2884) "p"]) #@208 Scroll the displayed calendar window left by 3*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. (defalias 'scroll-calendar-left-three-months #[(arg) "\301\302_!\207" [arg scroll-calendar-left 3] 3 (#$ . 3198) "p"]) #@208 Scroll the displayed calendar window right by 3*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. (defalias 'scroll-calendar-right-three-months #[(arg) "\301\302_!\207" [arg scroll-calendar-left -3] 3 (#$ . 3532) "p"]) #@168 Move the cursor to the closest date. The position of the cursor is unchanged if it is already on a date. Returns the list (month day year) giving the cursor position. (defalias 'calendar-cursor-to-nearest-date #[nil "\302 i\211\203 \202]\303\304e`\"V\203\305\303!\210\306!\210\307\310!\204[\307\311!\204U\312W\204H\313V\203<\314W\204H\315V\203U\316W\203U\317\310\320\321#\210\322\323!\210\202[\324\310\320\321#\210\302 *\207" [column date calendar-cursor-to-date 3 count-lines goto-line move-to-column looking-at "[0-9]" " *$" 25 27 50 52 75 re-search-forward nil t backward-char 1 re-search-backward] 5 (#$ . 3868)]) #@70 Move the cursor forward ARG days. Moves backward if ARG is negative. (defalias 'calendar-forward-day #[(arg) "\306U?\205\277\307 \211\203 \202\306V\203S\310 \311 \211\211AA@)S\n\211\211@)\n\211A@)\n\211AA@) \fS\312_\\\f\313V\203\201\f\314_\315\\\316\245Z\211\314\246\306U\205x\317\246\306U?\206x\320\246\306U)\203\201T- \321_\\ \314\245\\ \317\245[\\ \320\245\\*\\!\211\211@)\211AA@)\322!\204\272\323\"\210\324!-\207" [arg cursor-date date prior-years month day 0 calendar-cursor-to-date calendar-cursor-to-nearest-date calendar-gregorian-from-absolute 31 2 4 23 10 100 400 365 calendar-date-is-visible-p calendar-other-month calendar-cursor-to-visible-date year day-of-year new-cursor-date new-display-month new-display-year] 7 (#$ . 4513) "p"]) #@66 Move the cursor back ARG days. Moves forward if ARG is negative. (defalias 'calendar-backward-day #[(arg) "\301[!\207" [arg calendar-forward-day] 2 (#$ . 5334) "p"]) #@71 Move the cursor forward ARG weeks. Moves backward if ARG is negative. (defalias 'calendar-forward-week #[(arg) "\301\302_!\207" [arg calendar-forward-day 7] 3 (#$ . 5507) "p"]) #@67 Move the cursor back ARG weeks. Moves forward if ARG is negative. (defalias 'calendar-backward-week #[(arg) "\301\302_!\207" [arg calendar-forward-day -7] 3 (#$ . 5691) "p"]) #@53 Move the cursor back ARG calendar-week-start-day's. (defalias 'calendar-beginning-of-week #[(arg) "\303 \210\304\305 !\306 U\203\n\307_\202 \310 Z\307\"\nS\307_\\!)\207" [day calendar-week-start-day arg calendar-cursor-to-nearest-date calendar-day-of-week calendar-cursor-to-date calendar-backward-day 7 mod] 4 (#$ . 5873) "p"]) #@58 Move the cursor forward ARG calendar-week-start-day+6's. (defalias 'calendar-end-of-week #[(arg) "\303 \210\304\305 !\306\307 S\310\"U\203\n\310_\202&\311\307 Z\310\"Z\nS\310_\\!)\207" [day calendar-week-start-day arg calendar-cursor-to-nearest-date calendar-day-of-week calendar-cursor-to-date calendar-forward-day mod 7 6] 5 (#$ . 6214) "p"]) #@48 Move the cursor backward ARG month beginnings. (defalias 'calendar-beginning-of-month #[(arg) "\305 \210\306 \211\211@)\211A@)\211AA@)\n\307U\203'\310\f!\2022\311 \307 E!\210\310\fS!,\207" [date month day year arg calendar-cursor-to-nearest-date calendar-cursor-to-date 1 calendar-backward-month calendar-cursor-to-visible-date] 5 (#$ . 6571) "p"]) #@41 Move the cursor forward ARG month ends. (defalias 'calendar-end-of-month #[(arg) "\306 \210\307 \211\211@)\211A@)\211AA@) \211\310U\203E \211\311\246\312U\205= \313\246\312U?\206= \314\246\312U)\203E\315\202I\316 SH*\n\fU\204[\317 \f E!\210 S \320_ \\ \\\321\\\211\320\246T\320\245) \211 \211\310U\203\234 \211\311\246\312U\205\224 \313\246\312U?\206\224 \314\246\312U)\203\234\315\202\240\316 SH* E\322\f!\204\261\323 \"\202\264\317\f!.\207" [date month day year last-day arg calendar-cursor-to-nearest-date calendar-cursor-to-date 2 4 0 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] calendar-cursor-to-visible-date 12 -1 calendar-date-is-visible-p calendar-other-month macro-y] 5 (#$ . 6937) "p"]) #@47 Move the cursor backward ARG year beginnings. (defalias 'calendar-beginning-of-year #[(arg) "\306 \210\307 \211\211@)\211A@)\211AA@)\310\211 E\n\310U\2034 \310U\2034\311 \312_!\202M \310U\203F\313\f!\203F\314\f!\202M\315\310 SZ\"-\207" [date month day year jan-first arg calendar-cursor-to-nearest-date calendar-cursor-to-date 1 calendar-backward-month 12 calendar-date-is-visible-p calendar-cursor-to-visible-date calendar-other-month] 5 (#$ . 7686) "p"]) #@46 Move the cursor forward ARG year beginnings. (defalias 'calendar-end-of-year #[(arg) "\306 \210\307 \211\211@)\211A@)\211AA@)\310\311 E\n\311U\2034 \310U\2034\312 \310_!\202U \313U\203F\314\f!\203F\315\f!\202U\316\310 SZ\"\210\315\310\311E!-\207" [date month day year dec-31 arg calendar-cursor-to-nearest-date calendar-cursor-to-date 12 31 calendar-forward-month 1 calendar-date-is-visible-p calendar-cursor-to-visible-date calendar-other-month displayed-year] 5 (#$ . 8166) "p"]) #@48 Move the cursor to DATE that is on the screen. (defalias 'calendar-cursor-to-visible-date #[(date) "\211@)\211A@)\211AA@)\306 \307 E!\310\n\311\306 \307 E! Z\312\"\\\313\\\312\245\314\\!\210\315\316 $T\317_\311\306! Z\312\"\314_\\\320\\!,\207" [date month day year first-of-month-weekday calendar-week-start-day calendar-day-of-week 1 goto-line mod 7 -1 3 move-to-column calendar-interval 25 6 displayed-month displayed-year] 8 (#$ . 8673)]) #@22 Move cursor to DATE. (defalias 'calendar-goto-date #[(date) "\211@)\211AA@)\303!\204)\304\n\305U\203% \305U\203%\306\202&\n \"\210*\307!\207" [date year month calendar-date-is-visible-p calendar-other-month 1 2 calendar-cursor-to-visible-date] 4 (#$ . 9137) (list (calendar-read-date))]) (provide 'cal-move)