;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (require 'calendar)#@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 #[0 "\302 \206ni\303\304 \"A\3058\3068\307e`\" W\203&eb\210 Sy\210\310!\210\311\312!\2033\313`\314\"\204j\311\315!\204EV\203WW\203W\316\312\317\320#\203j\313`\314\"\203E\202j\321\312\317\320#\203g\313`S\314\"\203W\322u\210\302 \266\204\207" [calendar-month-edges calendar-first-date-row calendar-cursor-to-date assoc calendar-column-to-segment 2 3 count-lines move-to-column looking-at "[0-9]" get-text-property date " *$" re-search-backward nil t re-search-forward -1] 8 (#$ . 104)])#@59 Move the cursor to DATE that is on the screen. (fn DATE) (defalias 'calendar-cursor-to-visible-date #[257 "\211\211@\262\211A@\262\3068\262eb\210SS\307\310\311E! Z\312\"\\\312\245\\y\210\313\314\n S\f\315 \n $T_\307\310 ! Z\312\"_$!\207" [calendar-first-date-row calendar-week-start-day calendar-left-margin calendar-day-digit-width calendar-month-width displayed-month 2 mod calendar-day-of-week 1 7 move-to-column + calendar-interval displayed-year calendar-column-width] 14 (#$ . 824)])#@64 Reposition the calendar window so the current date is visible. (defalias 'calendar-goto-today #[0 "\300 \301!\204\302 \266\202\303 \210\304!\266\305\306!\207" [calendar-current-date calendar-date-is-visible-p calendar-generate-window calendar-update-mode-line calendar-cursor-to-visible-date run-hooks calendar-move-hook] 3 (#$ . 1339) nil])#@88 Move the cursor forward ARG months. Movement is backward if ARG is negative. (fn ARG) (defalias 'calendar-forward-month #[257 "\300 \210\301\302!\211\211@\262\211A@\262\3038\262\304\305W\203\"T\262\306\307_\310 $\262\311\307\"T\262\211\307\245\262\211\305W\203I\312V\203IS\262\312W\203SS\262\210\303U\203\212\211\211\305W\203i\313!S\262\211\314\246\305U\205\211\315\246\305U?\206\211\316\246\305U\262\203\212\266\317\202\220\320SH\266\202\211^E\321!\204\243\322\"\210\323!\266\324\325!\207" [calendar-cursor-to-nearest-date calendar-cursor-to-date t 2 nil 0 + 12 -1 mod 1 abs 4 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 run-hooks calendar-move-hook] 11 (#$ . 1694) "p"])#@90 Move the cursor forward by ARG years. Movement is backward if ARG is negative. (fn ARG) (defalias 'calendar-forward-year #[257 "\300\301_!\207" [calendar-forward-month 12] 4 (#$ . 2511) "p"])#@91 Move the cursor backward by ARG months. Movement is forward if ARG is negative. (fn ARG) (defalias 'calendar-backward-month #[257 "\300[!\207" [calendar-forward-month] 3 (#$ . 2710) "p"])#@87 Move the cursor backward ARG years. Movement is forward is ARG is negative. (fn ARG) (defalias 'calendar-backward-year #[257 "\300\301_!\207" [calendar-forward-month -12] 4 (#$ . 2905) "p"])#@270 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. EVENT is an event like `last-nonmenu-event'. (fn &optional ARG EVENT) (defalias 'calendar-scroll-left #[512 "\204\302\262\303 r\304\305\"\216\306!\211\262\203 \307\211@\262!\210\310 \210\311U\204\215\312 \313  \314\311W\203:T\262\315\316_\317 $\262\320\316\"T\262\211\316\245\262\211\311W\203a\302V\203aS\262\302W\203kS\262\210\321\"\210\322\323!\203|\202\212\323!\203\206\202\212\302E!\266\324\325!*\207" [displayed-month displayed-year 1 internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] event-start select-window calendar-cursor-to-nearest-date 0 calendar-cursor-to-date calendar-current-date nil + 12 -1 mod calendar-generate-window calendar-cursor-to-visible-date calendar-date-is-visible-p run-hooks calendar-move-hook] 13 (#$ . 3104) (byte-code "\302! D\207" [current-prefix-arg last-nonmenu-event prefix-numeric-value] 2)])#@277 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. EVENT is an event like `last-nonmenu-event'. (fn &optional ARG EVENT) (defalias 'calendar-scroll-right #[512 "\300\206\301[\"\207" [calendar-scroll-left 1] 5 (#$ . 4254) (byte-code "\302! D\207" [current-prefix-arg last-nonmenu-event prefix-numeric-value] 2)])#@279 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. EVENT is an event like `last-nonmenu-event'. (fn ARG &optional EVENT) (defalias 'calendar-scroll-left-three-months #[513 "\300\301_\"\207" [calendar-scroll-left 3] 5 (#$ . 4732) (byte-code "\302! D\207" [current-prefix-arg last-nonmenu-event prefix-numeric-value] 2)])#@79 Function to scroll the calendar after a toolkit scroll-bar click. (fn EVENT) (defalias 'calendar-scroll-toolkit-scroll #[257 "\300\301!8\211\302\267\202\303\304\"\207\305\304\"\207\304\207" [4 event-end #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (above-handle 11 up 11 top 11 below-handle 16 down 16 bottom 16)) calendar-scroll-right nil calendar-scroll-left] 5 (#$ . 5217) "e"])#@279 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. EVENT is an event like `last-nonmenu-event'. (fn ARG &optional EVENT) (defalias 'calendar-scroll-right-three-months #[513 "\300\301_\"\207" [calendar-scroll-left -3] 5 (#$ . 5651) (byte-code "\302! D\207" [current-prefix-arg last-nonmenu-event prefix-numeric-value] 2)])#@80 Move the cursor forward ARG days. Moves backward if ARG is negative. (fn ARG) (defalias 'calendar-forward-day #[257 "\211\300U\204\321\301 \206\211\300V\203\211S\262\302 \303\211\3048\262\305\300U\203.\306\307!\266\203\202l\300V\203\244S\262\310\211\211@\262\211A@\262\3048\262\311S_\\\304V\203\217\211\312\313_\\\314\245Z\262\211\300W\203p\315!S\262\211\313\246\300U\205\206\211\316\246\300U?\206\206\211\317\246\300U\262\203\217\211T\262\266\204\320_\313\245\316\245[\317\245%\266\203\202l\315T!\262\321\211\211@\262\211A@\262\3048\262\311S_\\\304V\203\211\312\313_\\\314\245Z\262\211\300W\203\342\315!S\262\211\313\246\300U\205\370\211\316\246\300U?\206\370\211\317\246\300U\262\203\211T\262\266\204\320_\313\245\316\245[\317\245\322\211\211@\262\211A@\262\3048\262\311S_\\\304V\203f\211\312\313_\\\314\245Z\262\211\300W\203G\315!S\262\211\313\246\300U\205]\211\316\246\300U?\206]\211\317\246\300U\262\203f\211T\262\266\204&\266\203\\!\211\211@\262\3048\262\323!\204\314\305\300W\203\213T\262\310\324_\325 \300W\203\234\326\202\235\325$\262\327\324\"T\262\211\324\245\262\211\300W\203\274\326V\203\274S\262\326W\203\306S\262\210\330\"\210\331!\266\332\333!\207" [0 calendar-cursor-to-date calendar-cursor-to-nearest-date calendar-gregorian-from-absolute 2 nil user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-date-is-visible-p 12 -1 1 mod calendar-other-month calendar-cursor-to-visible-date run-hooks calendar-move-hook] 21 (#$ . 6138) "p"])#@76 Move the cursor back ARG days. Moves forward if ARG is negative. (fn ARG) (defalias 'calendar-backward-day #[257 "\300[!\207" [calendar-forward-day] 3 (#$ . 7759) "p"])#@81 Move the cursor forward ARG weeks. Moves backward if ARG is negative. (fn ARG) (defalias 'calendar-forward-week #[257 "\300\301_!\207" [calendar-forward-day 7] 4 (#$ . 7935) "p"])#@77 Move the cursor back ARG weeks. Moves forward if ARG is negative. (fn ARG) (defalias 'calendar-backward-week #[257 "\300\301_!\207" [calendar-forward-day -7] 4 (#$ . 8122) "p"])#@63 Move the cursor back ARG calendar-week-start-day's. (fn ARG) (defalias 'calendar-beginning-of-week #[257 "\301 \210\302\303 !\304U\203\305_\202\306Z\305\"\305S_\\!\207" [calendar-week-start-day calendar-cursor-to-nearest-date calendar-day-of-week calendar-cursor-to-date calendar-backward-day 7 mod] 6 (#$ . 8307) "p"])#@68 Move the cursor forward ARG calendar-week-start-day+6's. (fn ARG) (defalias 'calendar-end-of-week #[257 "\301 \210\302\303 !\304\305S\306\"U\203\306_\202%\307\305Z\306\"Z\306S_\\!\207" [calendar-week-start-day calendar-cursor-to-nearest-date calendar-day-of-week calendar-cursor-to-date calendar-forward-day mod 7 6] 7 (#$ . 8643) "p"])#@58 Move the cursor backward ARG month beginnings. (fn ARG) (defalias 'calendar-beginning-of-month #[257 "\300 \210\301 \211\211@\262\211A@\262\3028\262\303U\203 \304!\207\305\303E!\210\304S!\207" [calendar-cursor-to-nearest-date calendar-cursor-to-date 2 1 calendar-backward-month calendar-cursor-to-visible-date] 9 (#$ . 8995) "p"])#@51 Move the cursor forward ARG month ends. (fn ARG) (defalias 'calendar-end-of-month #[257 "\300 \210\301 \211\211@\262\211A@\262\3028\262\302U\203L\211\211\303W\203+\304!S\262\211\305\246\303U\205A\211\306\246\303U?\206A\211\307\246\303U\262\203L\266\310\202R\311SH\266\202U\204c\312E!\210S\262\313\303W\203nT\262\314\315_\316\n$\262\317\315\"T\262\211\315\245\262\211\303W\203\226\320V\203\226S\262\320W\203\240S\262\210\211\302U\203\330\211\211\303W\203\267\304!S\262\211\305\246\303U\205\315\211\306\246\303U?\206\315\211\307\246\303U\262\203\330\266\310\202\336\311SH\266\202E\321!\204\357\322\"\266\202\364\312!\266\323\324!\207" [calendar-cursor-to-nearest-date calendar-cursor-to-date 2 0 abs 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] calendar-cursor-to-visible-date nil + 12 -1 mod 1 calendar-date-is-visible-p calendar-other-month run-hooks calendar-move-hook] 12 (#$ . 9344) "p"])#@57 Move the cursor backward ARG year beginnings. (fn ARG) (defalias 'calendar-beginning-of-year #[257 "\302 \210\303 \211\211@\262\211A@\262\3048\262\305\211E\306\305U\2032\305U\2032\307\310_!\210\202U\305U\203E\311!\203E\312!\210\202U\313\305SZ\"\210\312\305\211 E!\210)\266\314\300!\207" [calendar-move-hook displayed-year calendar-cursor-to-nearest-date calendar-cursor-to-date 2 1 nil calendar-backward-month 12 calendar-date-is-visible-p calendar-cursor-to-visible-date calendar-other-month run-hooks] 10 (#$ . 10320) "p"])#@56 Move the cursor forward ARG year beginnings. (fn ARG) (defalias 'calendar-end-of-year #[257 "\302 \210\303 \211\211@\262\211A@\262\3048\262\305\306E\307\306U\2032\305U\2032\310\305_!\210\202U\311U\203E\312!\203E\313!\210\202U\314\305S\\\"\210\313\305\306 E!\210)\266\315\300!\207" [calendar-move-hook displayed-year calendar-cursor-to-nearest-date calendar-cursor-to-date 2 12 31 nil calendar-forward-month 1 calendar-date-is-visible-p calendar-cursor-to-visible-date calendar-other-month run-hooks] 10 (#$ . 10877) "p"])#@33 Move cursor to DATE. (fn DATE) (defalias 'calendar-goto-date #[257 "\211\211@\262\3008\262\301!\204&\302\303U\203\"\303U\203\"\300\202#\"\210\266\304!\210\305\306!\207" [2 calendar-date-is-visible-p calendar-other-month 1 calendar-cursor-to-visible-date run-hooks calendar-move-hook] 6 (#$ . 11430) (byte-code "\300 C\207" [calendar-read-date] 1)])#@200 Move cursor to YEAR, DAY number; echo DAY/YEAR unless NOECHO is non-nil. Negative DAY counts backward from end of year. Interactively, prompt for YEAR and DAY number. (fn YEAR DAY &optional NOECHO) (defalias 'calendar-goto-day-of-year #[770 "\300\301\302W\203fS\303\211E\211\3048\262\305\302U\203$\306\307!\266\203\202b\302V\203\232S\262\310\211\211@\262\211A@\262\3048\262\311S_\\\304V\203\205\211\312\313_\\\314\245Z\262\211\302W\203f\315!S\262\211\313\246\302U\205|\211\316\246\302U?\206|\211\317\246\302U\262\203\205\211T\262\266\204\320_\313\245\316\245[\317\245%\266\203\202b\315T!\262\321\211\211@\262\211A@\262\3048\262\311S_\\\304V\203\367\211\312\313_\\\314\245Z\262\211\302W\203\330\315!S\262\211\313\246\302U\205\356\211\316\246\302U?\206\356\211\317\246\302U\262\203\367\211T\262\266\204\320_\313\245\316\245[\317\245\322\211\211@\262\211A@\262\3048\262\311S_\\\304V\203\\\211\312\313_\\\314\245Z\262\211\302W\203=\315!S\262\211\313\246\302U\205S\211\316\246\302U?\206S\211\317\246\302U\262\203\\\211T\262\266\204&\266\203\\\202\301T\323\311E\211\3048\262\305\302U\203\202\306\307!\266\203\202\300\302V\203\370S\262\310\211\211@\262\211A@\262\3048\262\311S_\\\304V\203\343\211\312\313_\\\314\245Z\262\211\302W\203\304\315!S\262\211\313\246\302U\205\332\211\316\246\302U?\206\332\211\317\246\302U\262\203\343\211T\262\266\204\320_\313\245\316\245[\317\245%\266\203\202\300\315T!\262\321\211\211@\262\211A@\262\3048\262\311S_\\\304V\203U\211\312\313_\\\314\245Z\262\211\302W\2036\315!S\262\211\313\246\302U\205L\211\316\246\302U?\206L\211\317\246\302U\262\203U\211T\262\266\204\320_\313\245\316\245[\317\245\322\211\211@\262\211A@\262\3048\262\311S_\\\304V\203\272\211\312\313_\\\314\245Z\262\211\302W\203\233\315!S\262\211\313\246\302U\205\261\211\316\246\302U?\206\261\211\317\246\302U\262\203\272\211T\262\266\204&\266\203\\!!\210\211\206\312\324 \207" [calendar-goto-date calendar-gregorian-from-absolute 0 1 2 nil user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 12 calendar-print-day-of-year] 24 (#$ . 11801) (byte-code "\300\301\302\303 \3048\262#\211\211\305W\203\306!S\262\211\307\246\305U\205.\211\310\246\305U?\206.\211\311\246\305U\262\2037\312\2028\313\300\314\315\316\"\303 \211\211@\262\211A@\262\3048\262\317S_\\\304V\203\225\211\320\307_\\\321\245Z\262\211\305W\203v\306!S\262\211\307\246\305U\205\214\211\310\246\305U?\206\214\211\311\246\305U\262\203\225\211T\262\266\204$D\207" [calendar-read-sexp "Year (>0)" #[257 "\211\300V\207" [0] 3 "\n\n(fn X)"] calendar-current-date 2 0 abs 4 100 400 366 365 "Day number (+/- 1-%d)" make-closure #[257 "\301\302!X\205 \302!\300X\207" [V0 1 abs] 4 "\n\n(fn X)"] 31 23 10] 14)]) (provide 'cal-move)