HOME

Mini Shell 1.0
DIR:/usr/share/emacs/26.1/lisp/calendar/
Current File : //usr/share/emacs/26.1/lisp/calendar/cal-move.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; 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@)\211A@)\3068)eb\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] 12 (#$ . 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 (#$ . 1707) 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@)\311	8)\312\313\f\314W\203)\fT\315\f_\n\316$\317
\"T
\245
\314W\203O\n\320V\203O\fS\f\320W\203X\fS*\n\f\211\311U\203\216\f\211\314W\203p\321\f!S\f\322\246\314U\205\206\f\323\246\314U?\206\206\f\324\246\314U)\203\216\325\202\222\326\nSH*\211^\n\fE\327!\204\253\330\n\f\"\210\331!\210.\332\333!\207" [cursor-date date month day year macro-y 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 nmonths arg last new-cursor-date] 6 (#$ . 2071) "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 (#$ . 2922) "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 (#$ . 3118) "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 (#$ . 3310) "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 (#$ . 3506) (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 (#$ . 4697) (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 (#$ . 5156) (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>\203\305\306\"\202	\307>\205\310\306\")\207" [event part 4 event-end (above-handle up top) calendar-scroll-right nil (below-handle down bottom) calendar-scroll-left] 4 (#$ . 5622) "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 (#$ . 5963) (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\307 \206\306V\203S\310 \311	\211\312\n8)\313\211\306U\203/\314\315!\202\202\f\306V\203\253\fS\316\n\211\211@)\n\211A@)\"\n\312\n8)\"
S\317_\\#
\312V\203\227#\320
\321_\\\322\245Z#\f\211\306W\203x\323\f!S\f\321\246\306U\205\216\f\324\246\306U?\206\216\f\325\246\306U)\203\227#T##-\326_\321\245\324\245[\325\245%\202\202\323\fT!\327\n\211\211@)\n\211A@)\"\n\312\n8)\"
S\317_\\#
\312V\203#\320
\321_\\\322\245Z#\f\211\306W\203\360\323\f!S\f\321\246\306U\205\f\324\246\306U?\206\f\325\246\306U)\203#T##-\326_\321\245\324\245[\325\245\330\211\330@)\n\211A@)\"\n\312\n8)\"
S\317_\\#
\312V\203}#\320
\321_\\\322\245Z#\f\211\306W\203^\323\f!S\f\321\246\306U\205t\f\324\246\306U?\206t\f\325\246\306U)\203}#T##-&+\\!\211$\211@)%$\312\n8)&\331$!\204\377\332\313'(&\306W\203\261&T&\316&(_%\333\306W\203\304\334\202\305\333$'\335'(\"T%'(\245&'\306W\203\353%\334V\203\353&S&&\334W\203\367&S&*\336%&\"\210\337$!\210,\340\341!\207" [arg cursor-date date offset-years year month 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 day day-of-year new-cursor-date new-display-month new-display-year macro-y nmonths] 12 (#$ . 6431) "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 (#$ . 8058) "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 (#$ . 8231) "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 (#$ . 8415) "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 (#$ . 8597) "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 (#$ . 8938) "p"])
#@48 Move the cursor backward ARG month beginnings.
(defalias 'calendar-beginning-of-month #[(arg) "\305 \210\306 \211\211@)\211A@)\3078)\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 (#$ . 9295) "p"])
#@41 Move the cursor forward ARG month ends.
(defalias 'calendar-end-of-month #[(arg) "\306 \210\307 \211\211@)\211A@)\3108)	\211\310U\203O\211\311W\2031\312!S\313\246\311U\205G\314\246\311U?\206G\315\246\311U)\203O\316\202S\317	SH*\n\fU\204e\320	\fE!\210
S\321\322\311W\203tT\323_	\324
$\325\"T\245\311W\203\235	\326V\203\235S\326W\203\246S*	\211\211\310U\203\335\211\311W\203\277\312!S\313\246\311U\205\325\314\246\311U?\206\325\315\246\311U)\203\335\316\202\341\317	SH*E\327\f!\204\363\330	\"\210\202\367\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] 6 (#$ . 9662) "p"])
#@47 Move the cursor backward ARG year beginnings.
(defalias 'calendar-beginning-of-year #[(arg) "\306 \210\307 \211\211@)\211A@)\3108)\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 (#$ . 10595) "p"])
#@46 Move the cursor forward ARG year beginnings.
(defalias 'calendar-end-of-year #[(arg) "\306 \210\307 \211\211@)\211A@)\3108)\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 (#$ . 11177) "p"])
#@22 Move cursor to DATE.
(defalias 'calendar-goto-date #[(date) "\211@)\3038)\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 (#$ . 11752) (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) "\306\307\310W\203e\311\312\313\211	E\211\314\n8)\315\211\310U\203%\316\317!\202`	\310V\203\231	S\311\n\211\211@)\n\211A@)\n\314\n8)\fS\320_\\\f\314V\203\206
\321\f\322_\\\323\245Z	\211\310W\203i\324	!S	\322\246\310U\205	\325\246\310U?\206	\326\246\310U)\203\206
T
-\327_\322\245\325\245[\326\245%\202`\324	T!\330\n\211\211@)\n\211A@)\n\314\n8)\fS\320_\\\f\314V\203\366
\321\f\322_\\\323\245Z	\211\310W\203\331\324	!S	\322\246\310U\205\357	\325\246\310U?\206\357	\326\246\310U)\203\366
T
-\327_\322\245\325\245[\326\245\331\211\331@)\n\211A@)\n\314\n8)\fS\320_\\\f\314V\203\\
\321\f\322_\\\323\245Z	\211\310W\203?\324	!S	\322\246\310U\205U	\325\246\310U?\206U	\326\246\310U)\203\\
T
-&+#\202\277\311\313\332\320	E\211\314\n8)\315\211\310U\203\202\316\317!\202\275	\310V\203\366	S\311\n\211\211@)\n\211A@)\n\314\n8)\fS\320_\\\f\314V\203\343
\321\f\322_\\\323\245Z	\211\310W\203\306\324	!S	\322\246\310U\205\334	\325\246\310U?\206\334	\326\246\310U)\203\343
T
-\327_\322\245\325\245[\326\245%\202\275\324	T!\330\n\211\211@)\n\211A@)\n\314\n8)\fS\320_\\\f\314V\203S
\321\f\322_\\\323\245Z	\211\310W\2036\324	!S	\322\246\310U\205L	\325\246\310U?\206L	\326\246\310U)\203S
T
-\327_\322\245\325\245[\326\245\331\211\331@)\n\211A@)\n\314\n8)\fS\320_\\\f\314V\203\271
\321\f\322_\\\323\245Z	\211\310W\203\234\324	!S	\322\246\310U\205\262	\325\246\310U?\206\262	\326\246\310U)\203\271
T
-&+#!!\210\206\311\333 \207" [day year date offset-years month day-of-year 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 noecho] 16 (#$ . 12101) (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)