;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:29 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calendar/cal-move.el
;;; in Emacs version 24.3.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 (#$ . 581)])
#@48 Move the cursor to DATE that is on the screen.
(defalias 'calendar-cursor-to-visible-date #[(date) "\211@)\211\211A@*\3068)eb\210\307
\310\307\310\311\312\f\313\nE!Z\314\"#\314\245#y\210\315\307S\316\f\n$T_\311\312!Z\314\"_$!+\207" [date x year day month calendar-first-date-row 2 + -1 mod calendar-day-of-week 1 7 move-to-column calendar-interval calendar-week-start-day calendar-left-margin calendar-day-digit-width calendar-month-width displayed-month displayed-year calendar-column-width] 12 (#$ . 1325)])
#@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 (#$ . 1870) 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@)\211\211A@*\311	8)\312\313
\314W\203,
T\315
_\n\316$\317\"T\245\314W\203V\n\320V\203V
S
\320W\203_
S*\n
\211\311U\203\225
\211\314W\203w\321
!S\322
\323\246!\205\215\322
\324\246!?\206\215\322
\325\246!)\203\225\326\202\231\327\nSH*\211 \f^\n\f
E!\330!!\204\262\331\n
\"\210\332!!\210.\333\334!\207" [cursor-date date month x day year calendar-cursor-to-nearest-date calendar-cursor-to-date t 2 12 nil 0 + -1 mod 1 abs zerop 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 macro-y nmonths arg last new-cursor-date] 6 (#$ . 2234) "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 (#$ . 3091) "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 (#$ . 3287) "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 (#$ . 3479) "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@)!\210\313 \210\314!\204\253\315 \316 \f
\317\320\321W\203ET\322_\323$\324\"T\245\321W\203u\306V\203uS\306W\203\201S*\325\"\210\326\327!\203\226\202\250\327!\203\242\202\250\306E!\210,\330\331!+\207" [arg save-selected-window--state event position displayed-month displayed-year 1 internal--before-save-selected-window ((internal--after-save-selected-window save-selected-window--state)) event-start select-window calendar-cursor-to-nearest-date zerop calendar-cursor-to-date calendar-current-date 12 nil 0 + -1 mod calendar-generate-window calendar-cursor-to-visible-date calendar-date-is-visible-p run-hooks calendar-move-hook year month today old-date macro-y nmonths] 6 (#$ . 3675) (list (prefix-numeric-value current-prefix-arg) last-nonmenu-event)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias scroll-calendar-left calendar-scroll-left nil make-obsolete "23.1"] 4)
#@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 (#$ . 5011) (list (prefix-numeric-value current-prefix-arg) last-nonmenu-event)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias scroll-calendar-right calendar-scroll-right nil make-obsolete "23.1"] 4)
#@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 (#$ . 5609) (list (prefix-numeric-value current-prefix-arg) last-nonmenu-event)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias scroll-calendar-left-three-months calendar-scroll-left-three-months nil make-obsolete "23.1"] 4)
#@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 (#$ . 6238) "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 (#$ . 6579) (list (prefix-numeric-value current-prefix-arg) last-nonmenu-event)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias scroll-calendar-right-three-months calendar-scroll-right-three-months nil make-obsolete "23.1"] 4)
#@70 Move the cursor forward ARG days.
Moves backward if ARG is negative.
(defalias 'calendar-forward-day #[(arg) "\306!\204\307 \206\310V\203S\311 \312	\211\313\n8)\314\306\f!\203/\315\316!\202\213
\f\310V\203\256\fS\317\n\211\211@)\n\211\211#A@*$\n\313\n8)$
S\320_\\%
\313V\203\232%\321
\322_\\\323\245Z%\f\211\310W\203{\324\f!S\306\f\322\246!\205\221\306\f\325\246!?\206\221\306\f\326\246!)\203\232%T%%-\327_\322\245\325\245[\326\245%\202\213
\324\fT!\330\n\211\211@)\n\211\211#A@*$\n\313\n8)$
S\320_\\%
\313V\203
%\321
\322_\\\323\245Z%\f\211\310W\203\366\324\f!S\306\f\322\246!\205\f
\306\f\325\246!?\206\f
\306\f\326\246!)\203
%T%%-\327_\322\245\325\245[\326\245\331\211\331@)\n\211\211#A@*$\n\313\n8)$
S\320_\\%
\313V\203\206
%\321
\322_\\\323\245Z%\f\211\310W\203g
\324\f!S\306\f\322\246!\205}
\306\f\325\246!?\206}
\306\f\326\246!)\203\206
%T%%-&+\\!\211&\211@)'&\313\n8)(\332&!\204\333\314)*(\310W\203\272
(T(\317(*_'\334\310W\203\315
\335\202\316
\334$)\336)*\"T')*\245()\310W\203\364
'\335V\203\364
(S((\335W\203(S(*\337'(\"\210\340&!\210,\341\342!\207" [arg cursor-date date offset-years year month zerop calendar-cursor-to-date 0 calendar-cursor-to-nearest-date calendar-gregorian-from-absolute 2 nil 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 x day day-of-year new-cursor-date new-display-month new-display-year macro-y nmonths] 12 (#$ . 7212) "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 (#$ . 8854) "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 (#$ . 9027) "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 (#$ . 9211) "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 (#$ . 9393) "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 (#$ . 9734) "p"])
#@48 Move the cursor backward ARG month beginnings.
(defalias 'calendar-beginning-of-month #[(arg) "\306 \210\307 \211\211@)\211\211A@*\3108)\311U\203(\312
!\2023\313	\311\fE!\210\312
S!,\207" [date month x day year arg calendar-cursor-to-nearest-date calendar-cursor-to-date 2 1 calendar-backward-month calendar-cursor-to-visible-date] 5 (#$ . 10091) "p"])
#@41 Move the cursor forward ARG month ends.
(defalias 'calendar-end-of-month #[(arg) "\306 \210\307 \211\211@)\211\211A@*\3108)	\f\211\310U\203Q\f\211\311W\2033\312\f!S\313\f\314\246!\205I\313\f\315\246!?\206I\313\f\316\246!)\203Q\317\202U\320	SH*
U\204i\321	
\fE!\210S\322\323\f\311W\203x\fT\324\f_	\325$\326\"T\245\311W\203\242	\327V\203\242\fS\f\327W\203\253\fS*	\211\f\211\310U\203\342\f\211\311W\203\304\312\f!S\313\f\314\246!\205\332\313\f\315\246!?\206\332\313\f\316\246!)\203\342\317\202\346\320	SH*\fE\330
!\204\370\331	\f\"\210\202\374\321
!\210.\332\333!\207" [date month x day year last-day calendar-cursor-to-nearest-date calendar-cursor-to-date 2 0 abs zerop 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 arg macro-y nmonths] 6 (#$ . 10464) "p"])
#@47 Move the cursor backward ARG year beginnings.
(defalias 'calendar-beginning-of-year #[(arg) "\306 \210\307 \211\211@)\211\211A@*\3108)\311\211\fE\312\311U\203:	\311U\203:\313\314_!\210\202_\311U\203N\315
!\203N\316
!\210\202_\317\311\fSZ\"\210\316\311\211E!\210.\320\321!\207" [date month x day year jan-first 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 calendar-move-hook arg displayed-year] 5 (#$ . 11430) "p"])
#@46 Move the cursor forward ARG year beginnings.
(defalias 'calendar-end-of-year #[(arg) "\306 \210\307 \211\211@)\211\211A@*\3108)\311\312\fE\313\312U\203:	\311U\203:\314\311_!\210\202_\315U\203N\316
!\203N\317
!\210\202_\320\311\fS\\\"\210\317\311\312E!\210.\321\322!\207" [date month x day year dec-31 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 calendar-move-hook arg displayed-year] 5 (#$ . 12017) "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 (#$ . 12597) (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\203}
\311\312\313\211	E\211\314\n8)\315\316	!\203%\317\320!\202x
	\310V\203\241	S\311\n\211\211@)\n\211\211A@*\n\314\n8)\fS\321_\\\f\314V\203\215\322\f\323_\\\324\245Z	\211\310W\203n\325	!S\316	\323\246!\205\204\316	\326\246!?\206\204\316	\327\246!)\203\215T-\330_\323\245\326\245[\327\245%\202x
\325	T!\331\n\211\211@)\n\211\211A@*\n\314\n8)\fS\321_\\\f\314V\203
\322\f\323_\\\324\245Z	\211\310W\203\346\325	!S\316	\323\246!\205\374\316	\326\246!?\206\374\316	\327\246!)\203
T-\330_\323\245\326\245[\327\245\332\211\332@)\n\211\211A@*\n\314\n8)\fS\321_\\\f\314V\203s
\322\f\323_\\\324\245Z	\211\310W\203T
\325	!S\316	\323\246!\205j
\316	\326\246!?\206j
\316	\327\246!)\203s
T-&+#\202\357\311\313\333\321	E\211\314\n8)\315\316	!\203\232
\317\320!\202\355	\310V\203	S\311\n\211\211@)\n\211\211A@*\n\314\n8)\fS\321_\\\f\314V\203\322\f\323_\\\324\245Z	\211\310W\203\343
\325	!S\316	\323\246!\205\371
\316	\326\246!?\206\371
\316	\327\246!)\203T-\330_\323\245\326\245[\327\245%\202\355\325	T!\331\n\211\211@)\n\211\211A@*\n\314\n8)\fS\321_\\\f\314V\203z\322\f\323_\\\324\245Z	\211\310W\203[\325	!S\316	\323\246!\205q\316	\326\246!?\206q\316	\327\246!)\203zT-\330_\323\245\326\245[\327\245\332\211\332@)\n\211\211A@*\n\314\n8)\fS\321_\\\f\314V\203\350\322\f\323_\\\324\245Z	\211\310W\203\311\325	!S\316	\323\246!\205\337\316	\326\246!?\206\337\316	\327\246!)\203\350T-&+#!!\210\206\371\334 \207" [day year date offset-years month x calendar-goto-date calendar-gregorian-from-absolute 0 + -1 1 2 nil zerop error "There was no year zero" 31 23 4 10 abs 100 400 365 - (12 31 -1) 12 calendar-print-day-of-year day-of-year noecho] 16 (#$ . 12946) (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)