%PDF- %PDF- Mini Shell
Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/calendar/
Current File : //usr/local/share/emacs/27.2/lisp/calendar/cal-move.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(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 #[nil "\306 \206qi\307\310 	\"A\311\n8\312\n8\313e`\"
W\203*eb\210
Sy\210\314!\210\315\316!\2037\317`\320\"\204n\315\321!\204IV\203[\fW\203[\322\316\323\324#\203n\317`\320\"\203I\202n\325\316\323\324#\203k\317`S\320\"\203[\326u\210\306 ,\207" [col calendar-month-edges edges last right 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] 4 (#$ . 429)])
#@48 Move the cursor to DATE that is on the screen.
(defalias 'calendar-cursor-to-visible-date #[(date) "\211@\262\211A@\262\3068\262eb\210\307\f\310\307\n\310\311\312\313	E!
Z\314\"#\314\245#y\210\315\307S\316	$T_\311\312!
Z\314\"_$!+\207" [date year day month calendar-first-date-row calendar-week-start-day 2 + -1 mod calendar-day-of-week 1 7 move-to-column calendar-interval calendar-left-margin calendar-day-digit-width calendar-month-width displayed-month displayed-year calendar-column-width] 11 (#$ . 1173)])
#@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 calendar-generate-window calendar-update-mode-line calendar-cursor-to-visible-date run-hooks calendar-move-hook] 2 (#$ . 1716) 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@\262\211A@\262\3118\262\312\313\314W\203(T\315
_	\316$\317\f
\"T\f
\245\f\314W\203K	\320V\203KS\320W\203TS*	\311U\203\213\211\211\314W\203j\321!S\262\211\322\246\314U\205\200\211\323\246\314U?\206\200\211\324\246\314U\262\203\213\325\266\202\202\221\326SH\266\202\211\n^	\nE\327!\204\251\330	\"\210\331!\210.\332\333!\207" [cursor-date month day year macro-y nmonths calendar-cursor-to-nearest-date calendar-cursor-to-date t 2 12 nil 0 + -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 arg last new-cursor-date] 6 (#$ . 2080) "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 (#$ . 2945) "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 (#$ . 3141) "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 (#$ . 3333) "p"])
#@244 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'.
(defalias 'calendar-scroll-left #[(&optional arg event) "\204\306\307 r\310\216\311\n!\211\203\312\n\211@\262!\210\313 \210\314U\204\236\315 \316 \f\317\320
\314W\203A
T\321
_\322$\323\"T\245\314W\203m\306V\203m
S
\306W\203v
S*\324
\"\210\325\326!\203\212\202\233\326!\203\226\202\233\306
E!\210,\327\330!+\207" [arg save-selected-window--state event displayed-month displayed-year year 1 internal--before-save-selected-window #[nil "\301!\207" [save-selected-window--state internal--after-save-selected-window] 2] event-start select-window calendar-cursor-to-nearest-date 0 calendar-cursor-to-date calendar-current-date 12 nil + -1 mod calendar-generate-window calendar-cursor-to-visible-date calendar-date-is-visible-p run-hooks calendar-move-hook month today old-date macro-y nmonths] 5 (#$ . 3529) (list (prefix-numeric-value current-prefix-arg) last-nonmenu-event)])
#@251 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'.
(defalias 'calendar-scroll-right #[(&optional arg event) "\302\206\303[	\"\207" [arg event calendar-scroll-left 1] 3 (#$ . 4720) (list (prefix-numeric-value current-prefix-arg) last-nonmenu-event)])
#@253 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'.
(defalias 'calendar-scroll-left-three-months #[(arg &optional event) "\302\303_	\"\207" [arg event calendar-scroll-left 3] 3 (#$ . 5179) (list (prefix-numeric-value current-prefix-arg) last-nonmenu-event)])
#@67 Function to scroll the calendar after a toolkit scroll-bar click.
(defalias 'calendar-scroll-toolkit-scroll #[(event) "\302\303!8\211\304\267\202\305\306\"\202\307\306\"\202\306)\207" [event part 4 event-end #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (above-handle 12 up 12 top 12 below-handle 19 down 19 bottom 19)) calendar-scroll-right nil calendar-scroll-left] 4 (#$ . 5645) "e"])
#@253 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'.
(defalias 'calendar-scroll-right-three-months #[(arg &optional event) "\302\303_	\"\207" [arg event calendar-scroll-left -3] 3 (#$ . 6089) (list (prefix-numeric-value current-prefix-arg) last-nonmenu-event)])
#@70 Move the cursor forward ARG days.
Moves backward if ARG is negative.
(defalias 'calendar-forward-day #[(arg) "\306U\204\320\307 \206\306V\203S\310 \311	\211\3128\262\313\306U\203,\314\315!\202f\306V\203\240S\262\316\211\211@\262\211A@\262\3128\262\317S_\\\312V\203\215\211\320\321_\\\322\245Z\262\211\306W\203n\323!S\262\211\321\246\306U\205\204\211\324\246\306U?\206\204\211\325\246\306U\262\203\215\211T\262\266\204\326_\321\245\324\245[\325\245%\202f\323T!\262\327\211\211@\262\211A@\262\3128\262\317S_\\\312V\203\375\211\320\321_\\\322\245Z\262\211\306W\203\336\323!S\262\211\321\246\306U\205\364\211\324\246\306U?\206\364\211\325\246\306U\262\203\375\211T\262\266\204\326_\321\245\324\245[\325\245\330\211\211@\262\211A@\262\3128\262\317S_\\\312V\203b\211\320\321_\\\322\245Z\262\211\306W\203C\323!S\262\211\321\246\306U\205Y\211\324\246\306U?\206Y\211\325\246\306U\262\203b\211T\262\266\204&\266\203\\!\211\211@\262\n\3128\262\331\n!\204\313\332\313\"\f\306W\203\215\fT\316\f\"_\333\306W\203\236\334\202\237\333$\335
\"\"T
\"\245
\306W\203\274\334V\203\274\fS\f\334W\203\305\fS*\336\f\"\210\337\n!\210,\340\341!\207" [arg cursor-date new-cursor-date new-display-month new-display-year macro-y 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 nmonths] 20 (#$ . 6557) "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 (#$ . 8216) "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 (#$ . 8389) "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 (#$ . 8573) "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\307\n_\202 \310	Z\307\"\307\nS_\\!)\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 (#$ . 8755) "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\310\n_\202&\311\307	Z\310\"Z\310\nS_\\!)\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 (#$ . 9096) "p"])
#@48 Move the cursor backward ARG month beginnings.
(defalias 'calendar-beginning-of-month #[(arg) "\305 \210\306 \211\211@\262\211A@\262\3078\262\n\310U\203&\311\f!\2021\312	\310E!\210\311\fS!,\207" [date month day year arg calendar-cursor-to-nearest-date calendar-cursor-to-date 2 1 calendar-backward-month calendar-cursor-to-visible-date] 5 (#$ . 9453) "p"])
#@41 Move the cursor forward ARG month ends.
(defalias 'calendar-end-of-month #[(arg) "\306 \210\307 \211\211@\262\211A@\262\3108\262	\310U\203P\211\211\311W\203/\312!S\262\211\313\246\311U\205E\211\314\246\311U?\206E\211\315\246\311U\262\203P\316\266\202\202V\317SH\266\202\n\fU\204g\320	\fE!\210
S\321\322\311W\203vT\323_	\324
$\325\"T\245\311W\203\237	\326V\203\237S\326W\203\250S*	\211\310U\203\340\211\211\311W\203\277\312!S\262\211\313\246\311U\205\325\211\314\246\311U?\206\325\211\315\246\311U\262\203\340\316\266\202\202\346\317SH\266\202E\327\f!\204\367\330	\"\210\202\373\320\f!\210.\331\332!\207" [date month day year last-day arg 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 12 nil + -1 mod 1 calendar-date-is-visible-p calendar-other-month run-hooks calendar-move-hook macro-y nmonths] 7 (#$ . 9829) "p"])
#@47 Move the cursor backward ARG year beginnings.
(defalias 'calendar-beginning-of-year #[(arg) "\306 \210\307 \211\211@\262\211A@\262\3108\262\311\211E\312\n\311U\2037	\311U\2037\313\314_!\210\202\\\311U\203K\315\f!\203K\316\f!\210\202\\\317\311SZ\"\210\316\311\211E!\210.\320\305!\207" [date month day year jan-first calendar-move-hook 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 arg displayed-year] 5 (#$ . 10829) "p"])
#@46 Move the cursor forward ARG year beginnings.
(defalias 'calendar-end-of-year #[(arg) "\306 \210\307 \211\211@\262\211A@\262\3108\262\311\312E\313\n\312U\2037	\311U\2037\314\311_!\210\202\\\315U\203K\316\f!\203K\317\f!\210\202\\\320\311S\\\"\210\317\311\312E!\210.\321\305!\207" [date month day year dec-31 calendar-move-hook 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 arg displayed-year] 5 (#$ . 11420) "p"])
#@22 Move cursor to DATE.
(defalias 'calendar-goto-date #[(date) "\211@\262\3038\262\304!\204(\305\n\306U\203$	\306U\203$\303\202%\n	\"\210*\307!\210\310\311!\207" [date year month 2 calendar-date-is-visible-p calendar-other-month 1 calendar-cursor-to-visible-date run-hooks calendar-move-hook] 4 (#$ . 12004) (list (calendar-read-date))])
#@121 Move cursor to YEAR, DAY number; echo DAY/YEAR unless NOECHO is non-nil.
Negative DAY counts backward from end of year.
(defalias 'calendar-goto-day-of-year #[(year day &optional noecho) "\303\304\305W\203b\306\307\310\211	E\211\3118\262\312\305U\203\"\313\314!\202\\\305V\203\226S\262\306\211\211@\262\211A@\262\3118\262\315S_\\\311V\203\203\211\316\317_\\\320\245Z\262\211\305W\203d\321!S\262\211\317\246\305U\205z\211\322\246\305U?\206z\211\323\246\305U\262\203\203\211T\262\266\204\324_\317\245\322\245[\323\245%\202\\\321T!\262\325\211\211@\262\211A@\262\3118\262\315S_\\\311V\203\363\211\316\317_\\\320\245Z\262\211\305W\203\324\321!S\262\211\317\246\305U\205\352\211\322\246\305U?\206\352\211\323\246\305U\262\203\363\211T\262\266\204\324_\317\245\322\245[\323\245\326\211\211@\262\211A@\262\3118\262\315S_\\\311V\203X\211\316\317_\\\320\245Z\262\211\305W\2039\321!S\262\211\317\246\305U\205O\211\322\246\305U?\206O\211\323\246\305U\262\203X\211T\262\266\204&\266\203#\202\271\306\310\327\315	E\211\3118\262\312\305U\203|\313\314!\202\266\305V\203\360S\262\306\211\211@\262\211A@\262\3118\262\315S_\\\311V\203\335\211\316\317_\\\320\245Z\262\211\305W\203\276\321!S\262\211\317\246\305U\205\324\211\322\246\305U?\206\324\211\323\246\305U\262\203\335\211T\262\266\204\324_\317\245\322\245[\323\245%\202\266\321T!\262\325\211\211@\262\211A@\262\3118\262\315S_\\\311V\203M\211\316\317_\\\320\245Z\262\211\305W\203.\321!S\262\211\317\246\305U\205D\211\322\246\305U?\206D\211\323\246\305U\262\203M\211T\262\266\204\324_\317\245\322\245[\323\245\326\211\211@\262\211A@\262\3118\262\315S_\\\311V\203\262\211\316\317_\\\320\245Z\262\211\305W\203\223\321!S\262\211\317\246\305U\205\251\211\322\246\305U?\206\251\211\323\246\305U\262\203\262\211T\262\266\204&\266\203#!!\210\n\206\302\330 \207" [day year noecho calendar-goto-date calendar-gregorian-from-absolute 0 + -1 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] 23 (#$ . 12359) (let* ((year (calendar-read "Year (>0): " #'(lambda (x) (> x 0)) (number-to-string (calendar-extract-year (calendar-current-date))))) (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)))))) (list year day))])
(provide 'cal-move)
Zerion Mini Shell 1.0