;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:37:12 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/calendar/cal-move.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; 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 \210\202\304 \210\305!\210)\306\307!\207" [today calendar-current-date calendar-date-is-visible-p generate-calendar-window update-calendar-mode-line calendar-cursor-to-visible-date run-hooks calendar-move-hook] 2 (#$ . 647) 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\203F\314\f!\203F\315\202J\316\nSH*\211 W\203V)\n \fE\317!\204i\320\n\f\"\210\321!\210-\322\323!\207" [cursor-date date month day year arg calendar-cursor-to-nearest-date calendar-cursor-to-date t 12 -1 2 calendar-leap-year-p 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 run-hooks calendar-move-hook macro-y last new-cursor-date] 4 (#$ . 1010) "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 (#$ . 1695) "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 (#$ . 1891) "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 (#$ . 2083) "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 #[(&optional arg) "\204\306\307 \210\310 \311 \312U\204U \f \313_\\\\\314\\\211\313\246T\313\245)\315 \"\210\316\317\n!\203C\n\202R\317 !\203M \202R\306 E!\210**\320\321!\207" [arg today old-date displayed-month displayed-year year 1 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 run-hooks calendar-move-hook month macro-y] 5 (#$ . 2279) "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 #[(&optional arg) "\301\206\302[!\207" [arg scroll-calendar-left 1] 2 (#$ . 3013) "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 (#$ . 3349) "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 (#$ . 3683) "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!\204Z\307\311!\204T\312W\204H\313V\203<\314W\204H\315V\203T\316W\203T\317\310\320\321#\210\322u\210\202Z\323\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 -1 re-search-backward] 5 (#$ . 4019)]) #@70 Move the cursor forward ARG days. Moves backward if ARG is negative. (defalias 'calendar-forward-day #[(arg) "\306U\204^\307 \211\203 \202\306V\203S\310 \311 \312\n!S\313\n!\314 _\\ \315\245\\ \316\245[\\ \317\245\\*\\!\211\211@)\f\211AA@)\320\f!\204Y\321 \"\210\322\f!\210-\323\324!\207" [arg cursor-date date prior-years new-cursor-date new-display-month 0 calendar-cursor-to-date calendar-cursor-to-nearest-date calendar-gregorian-from-absolute extract-calendar-year calendar-day-number 365 4 100 400 calendar-date-is-visible-p calendar-other-month calendar-cursor-to-visible-date run-hooks calendar-move-hook new-display-year] 5 (#$ . 4648) "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 (#$ . 5330) "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 (#$ . 5503) "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 (#$ . 5687) "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 (#$ . 5869) "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 (#$ . 6210) "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 (#$ . 6567) "p"]) #@41 Move the cursor forward ARG month ends. (defalias 'calendar-end-of-month #[(arg) "\306 \210\307 \211\211@)\211A@)\211AA@) \211\310U\203/\311 !\203/\312\2023\313 SH*\n\fU\204E\314 \f E!\210 S \315_ \\ \\\316\\\211\315\246T\315\245) \211 \211\310U\203p\311 !\203p\312\202t\313 SH* E\317\f!\204\206\320 \"\210\202\212\314\f!\210.\321\322!\207" [date month day year last-day arg calendar-cursor-to-nearest-date calendar-cursor-to-date 2 calendar-leap-year-p 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 run-hooks calendar-move-hook macro-y] 5 (#$ . 6933) "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\311\n\310U\2038 \310U\2038\312\313_!\210\202U\310U\203L\314\f!\203L\315\f!\210\202U\316\310 SZ\"\210.\317\305!\207" [date month day year jan-first calendar-move-hook calendar-cursor-to-nearest-date calendar-cursor-to-date 1 nil calendar-backward-month 12 calendar-date-is-visible-p calendar-cursor-to-visible-date calendar-other-month run-hooks arg] 5 (#$ . 7612) "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\312\n\311U\2038 \310U\2038\313\310_!\210\202]\314U\203L\315\f!\203L\316\f!\210\202]\317\310 SZ\"\210\316\310\311E!\210.\320\305!\207" [date month day year dec-31 calendar-move-hook calendar-cursor-to-nearest-date calendar-cursor-to-date 12 31 nil calendar-forward-month 1 calendar-date-is-visible-p calendar-cursor-to-visible-date calendar-other-month run-hooks arg displayed-year] 5 (#$ . 8155) "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 (#$ . 8725)]) #@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!\210\310\311!\207" [date year month calendar-date-is-visible-p calendar-other-month 1 2 calendar-cursor-to-visible-date run-hooks calendar-move-hook] 4 (#$ . 9189) (list (calendar-read-date))]) (provide 'cal-move)