Current File : //usr/local/share/emacs/27.2/lisp/calendar/calendar.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(load "cal-loaddefs" nil t)
#@65 Like `let*' but using dynamic scoping.
(fn BINDERS &rest BODY)
(defalias 'calendar-dlet* '(macro . #[385 "\300\301\302\303\"B\304BBE\207" [progn with-no-warnings mapcar #[257 "\300:\203 @\202\f D\207" [defvar] 3 "\n\n(fn BINDER)"] let*] 7 (#$ . 436)]))
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310!\210\311\312!\210\313\310\314\315\316\317\320\321&\210\313\322\314\323\316\317\320\310&\210\313\324\314\325\316\317\320\310&\210\326\327\330\331\332DD\333\334\335\320\310&\210\326\336\330\331\337DD\340\334\341\320\310&\210\326\342\330\331\343DD\344\334\335\345\346\320\310& \210\326\347\330\331\350DD\351\334\352\345\353\320\310& \210\326\354\330\331\355DD\356\334\335\357\360\361\362\320\310& \210\326\363\330\331\364DD\365\334\366\345\367\320\310& \210\326\370\330\331\371DD\372\334\373\320\374&\210\326\375\330\331\376DD\377\334\373\320\374&\210\326\201@ \330\331\201A DD\201B \334\373\345\201C \320\201D \320\310& \210\201E \201F \201G \201H \320\324%\210\201E \374\201I \201J \320\324%\210\201E \201K \201L \201M \320\324%\210\201E \201N \201O \201P \345\201Q \320\324&\210\201E \201R \201S \201T \345\201Q \320\324&\210\201E \201U \201V \201W \345\201Q \320\324&\210\326\201X \330\331\201Y DD\201Z \334\201[ \320\374\345\201C & \210\326\201\\ \330\331\201] DD\201^ \334\201_ \320\310\345\201C & \210\326\201` \330\331\201a DD\201b \334\201c \320\201d \345\201C & \210\326\201e \330\331\201f DD\201g \334\373\320\201d &\210\326\201h \330\331\201i DD\201j \334\373\320\201d &\210\326\201k \330\331\201l DD\201m \334\201n \320\322&\210\326\201o \330\331\201p DD\201q \334\201n \320\322&\210\201r \201o \201s \201t #\210\326\201u \330\331\201v DD\201w \334\201n \320\322&\210\326\201x \330\331\201y DD\201z \334\201n \201{ \201| \320\322& \210\326\201} \330\331\201~ DD\201 \334\201n \320\322&\210\326\201\200 \330\331\201\201 DD\201\202 \334\201n \201{ \201\203 \320\322& \210\326\201\204 \330\331\201\205 DD\201\206 \320\310\357\360\201\207 \201\210 \361\201\211 \334\201\212 \345\201C &\207" [function-put calendar-dlet* lisp-indent-function 1 put edebug-form-spec let provide calendar require cal-menu custom-declare-group nil "Calendar and time management support." :prefix "calendar-" :group applications calendar-hooks "Calendar hooks." calendar-faces "Calendar faces." custom-declare-variable calendar-offset funcall function #[0 "\300\207" [0] 1] "The offset of the principal month from the center of the calendar window.\n0 means the principal month is in the center (default), -1 means on the left,\n+1 means on the right. Larger (or smaller) values push the principal month off\nthe screen." :type integer calendar-setup #[0 "\300\207" [nil] 1] "The frame setup of the calendar.\nThe choices are: `one-frame' (calendar and diary together in one separate,\ndedicated frame); `two-frames' (calendar and diary in separate, dedicated\nframes); `calendar-only' (calendar in a separate, dedicated frame); with\nany other value the current frame is used. Using any of the first\nthree options overrides the value of `calendar-view-diary-initially-flag'." (choice (const :tag "calendar and diary in separate frame" one-frame) (const :tag "calendar and diary each in own frame" two-frames) (const :tag "calendar in separate frame" calendar-only) (const :tag "use current frame" nil)) calendar-minimum-window-height #[0 "\300\207" [8] 1] "Minimum height `calendar-generate-window' should use for calendar window." :version "22.1" calendar-split-width-threshold #[0 "\300\207" [nil] 1] "Value to use for `split-width-threshold' when creating a calendar.\nThis only affects frames wider than the default value of\n`split-width-threshold'." (choice (const nil) (integer)) "23.2" calendar-week-start-day #[0 "\300\207" [0] 1] "The day of the week on which a week in the calendar begins.\n0 means Sunday (default), 1 means Monday, and so on.\n\nIf you change this variable directly (without using customize)\nafter starting `calendar', you should call `calendar-redraw' to\nupdate the calendar display to reflect the change, otherwise\nmovement commands will not work correctly." :initialize custom-initialize-default :set #[514 "L\210\300 \207" [calendar-redraw] 4 "\n\n(fn SYM VAL)"] calendar-weekend-days #[0 "\300\207" [(0 6)] 1] "Days of the week considered weekend days.\n0 means Sunday, 1 means Monday, and so on.\n\nDetermines which day headers are fontified with\n`calendar-weekend-header'." (repeat integer) "25.1" calendar-view-diary-initially-flag #[0 "\300\207" [nil] 1] "Non-nil means display current date's diary entries on entry to calendar.\nThe diary is displayed in another window when the calendar is first displayed,\nif the current date is visible. The number of days of diary entries displayed\nis governed by the variable `diary-number-of-entries'. This variable can\nbe overridden by the value of `calendar-setup'." boolean diary calendar-mark-diary-entries-flag #[0 "\300\207" [nil] 1] "Non-nil means mark dates with diary entries, in the calendar window.\nThe marking symbol is specified by the variable `diary-entry-marker'." calendar-remove-frame-by-deleting #[0 "\300\207" [t] 1] "Determine how the calendar mode removes a frame no longer needed.\nIf nil, make an icon of the frame. If non-nil, delete the frame." "23.1" view custom-declare-face calendar-today ((t (:underline t))) "Face for indicating today's date in the calendar.\nSee the variable `calendar-today-marker'." ((((min-colors 88) (class color) (background light)) :foreground "red1") (((class color) (background light)) :foreground "red") (((min-colors 88) (class color) (background dark)) :foreground "yellow1") (((class color) (background dark)) :foreground "yellow") (t :weight bold)) "Face for highlighting diary entries.\nUsed to mark diary entries in the calendar (see `diary-entry-marker'),\nand to highlight the date header in the fancy diary." holiday ((((class color) (background light)) :background "pink") (((class color) (background dark)) :background "chocolate4") (t :inverse-video t)) "Face for indicating in the calendar dates that have holidays.\nSee `calendar-holiday-marker'." calendar-weekday-header ((t :inherit font-lock-constant-face)) "Face used for weekday column headers in the calendar.\nSee also the face `calendar-weekend-header'." "24.4" calendar-weekend-header ((t :inherit font-lock-comment-face)) "Face used for weekend column headers in the calendar.\nSee also the face `calendar-weekday-header'." calendar-month-header ((t :inherit font-lock-function-name-face)) "Face used for month headers in the calendar." diary-entry-marker #[0 "\300\207" [diary] 1] "How to mark dates that have diary entries.\nThe value can be either a single-character string (e.g. \"+\") or a face." (choice (string :tag "Single character string") face) calendar-today-marker #[0 "\300\207" [calendar-today] 1] "How to mark today's date in the calendar.\nThe value can be either a single-character string (e.g. \"=\") or a face.\nUsed by `calendar-mark-today'." (choice (string :tag "Single character string") face) calendar-holiday-marker #[0 "\300\207" [holiday] 1] "How to mark notable dates in the calendar.\nThe value can be either a single-character string (e.g. \"*\") or a face." (choice (string :tag "Single character string") face) holidays calendar-view-holidays-initially-flag #[0 "\300\207" [nil] 1] "Non-nil means display holidays for current three month period on entry.\nThe holidays are displayed in another window when the calendar is first\ndisplayed." calendar-mark-holidays-flag #[0 "\300\207" [nil] 1] "Non-nil means mark dates of holidays in the calendar window.\nThe marking symbol is specified by the variable `calendar-holiday-marker'." calendar-mode-hook #[0 "\300\207" [nil] 1] "Hook run when entering `calendar-mode'." hook calendar-load-hook #[0 "\300\207" [nil] 1] "List of functions to be called after the calendar is first loaded.\nThis is the place to add key bindings to `calendar-mode-map'." make-obsolete-variable "use `with-eval-after-load' instead." "26.1" calendar-initial-window-hook #[0 "\300\207" [nil] 1] "List of functions to be called when the calendar window is created.\nQuitting the calendar and re-entering it will cause these functions\nto be called again." calendar-today-visible-hook #[0 "\300\207" [nil] 1] "List of functions called whenever the current date is visible.\nTo mark today's date, add the function `calendar-mark-today'.\nTo replace the date with asterisks, add the function `calendar-star-date'.\nSee also `calendar-today-invisible-hook'.\n\nIn general, be careful about changing characters in the calendar buffer,\nsince it may cause the movement commands to fail." :options (calendar-mark-today calendar-star-date) calendar-today-invisible-hook #[0 "\300\207" [nil] 1] "List of functions called whenever the current date is not visible.\nSee also `calendar-today-visible-hook'." calendar-move-hook #[0 "\300\207" [nil] 1] "List of functions called whenever the cursor moves in the calendar.\nFor example,\n\n (add-hook \\='calendar-move-hook (lambda () (diary-view-entries 1)))\n\nredisplays the diary for whatever date the cursor is moved to." (calendar-update-mode-line) calendar-date-echo-text #[0 "\300\207" [#1="mouse-2: general menu\nmouse-3: menu for this date"] 1 #1#] "String displayed when the cursor is over a date in the calendar.\nCan be either a fixed string, or a Lisp expression that returns one.\nWhen this expression is evaluated, DAY, MONTH, and YEAR are\nintegers appropriate to the relevant date. For example, to\ndisplay the ISO date:\n\n (setq calendar-date-echo-text \\='(format \"ISO date: %s\"\n (calendar-iso-date-string\n (list month day year))))\n\nChanging this variable without using customize has no effect on\npre-existing calendar windows." :risky t #[514 "L\210\300 \207" [calendar-redraw] 4 "\n\n(fn SYM VAL)"] (choice (string :tag "Fixed string") (sexp :value (format "ISO date: %s" (calendar-iso-date-string (list month day year)))))] 17)
#@65 Width of the region with numbers in each month in the calendar.
(defvar calendar-month-digit-width nil (#$ . 10526))
#@43 Full width of each month in the calendar.
(defvar calendar-month-width nil (#$ . 10649))
#@31 Right margin of the calendar.
(defvar calendar-right-margin nil (#$ . 10744))
#@250 Alist of month edge columns.
Each element has the form (N LEFT FIRST LAST RIGHT), where
LEFT is the leftmost column associated with month segment N,
FIRST and LAST are the first and last columns with day digits in,
and LAST is the rightmost column.
(defvar calendar-month-edges nil (#$ . 10829))
#@264 Compute the month edge columns for month SEGMENT.
Returns a list (LEFT FIRST LAST RIGHT), where LEFT is the
leftmost column associated with a month, FIRST and LAST are the
first and last columns with day digits in, and LAST is the
rightmost column.
(fn SEGMENT)
(defalias 'calendar-month-edges #[257 " _\\\211\nS\\\304=\203 \304\202 \305 _ \306\245[#\305T _ \306\245[#F\207" [calendar-left-margin calendar-month-width calendar-month-digit-width calendar-intermonth-spacing 0 + 2] 9 (#$ . 11132)])
#@53 Recompute some layout-related calendar "constants".
(defalias 'calendar-recompute-layout-variables #[0 "\306_ \\\307_ \\\310
\311\307__\312 _#\313
\311\314\211W\2037 \211\211\315!B
B
\210\211T\262\202 \266\316
!\211
\207" [calendar-column-width calendar-day-digit-width calendar-month-digit-width calendar-intermonth-spacing calendar-month-width calendar-left-margin 6 7 + 3 2 nil 0 calendar-month-edges reverse calendar-right-margin] 6 (#$ . 11649)])
#@179 Set SYMBOL's value to VALUE, an integer.
A positive/negative MINMAX enforces a minimum/maximum value.
Then redraw the calendar, if necessary.
(fn SYMBOL VALUE &optional MINMAX)
(defalias 'calendar-set-layout-variable #[770 "J\300\203 \301W\203 [^\202 ]\202 \"\210\232?\205* \302 \210\303 \207" [custom-set-default 0 calendar-recompute-layout-variables calendar-redraw] 8 (#$ . 12125)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317&
\210\300\320\302\303\321DD\322\306\307\310\311\312\323\314\315\316\317&
\210\300\324\302\303\325DD\326\310\311\312\327\314\315\316\317& \207" [custom-declare-variable calendar-left-margin funcall function #[0 "\300\207" [5] 1] "Empty space to the left of the first month in the calendar." :group calendar :initialize custom-initialize-default :set calendar-set-layout-variable :type integer :version "23.1" calendar-intermonth-spacing #[0 "\300\207" [4] 1] "Space between months in the calendar. Minimum value is 1." #[514 "\300\301#\207" [calendar-set-layout-variable 1] 6 "\n\n(fn SYM VAL)"] calendar-column-width #[0 "\300\207" [3] 1] "Width of each day column in the calendar. Minimum value is 3." #[514 "\300\301#\207" [calendar-set-layout-variable 3] 6 "\n\n(fn SYM VAL)"]] 14)
#@128 Return the default value for `calendar-day-header-array'.
WIDTH defaults to `calendar-day-header-width'.
(fn &optional WIDTH)
(defalias 'calendar-day-header-construct #[256 "\211\204 \262\304 X\203 \n\202 \"\207" [calendar-day-header-width calendar-abbrev-length calendar-day-abbrev-array calendar-day-name-array calendar-abbrev-construct] 4 (#$ . 13404)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317&
\210\300\320\302\303\321DD\322\306\307\310\311\312\323\314\315\316\317&
\210\300\324\302\303\325DD\326\306\307\310\311\327\330\312\331\314\332\316\317&\210\300\333\302\303\334DD\335\306\307\310\311\327\330\312\336\314\337\316\317&\210\300\340\302\303\341DD\342\316\343\314\344\306\345& \210\300\346\302\303\347DD\350\314\351\306\345&\210\300\352\302\303\353DD\354\314\351\306\345\316\343& \210\300\355\302\303\356DD\357\314\351\306\345&\210\300\360\302\303\361DD\362\314\351\306\345&\210\300\363\302\303\364DD\365\314\351\306\345&\210\300\366\302\303\367DD\370\316\317\314\371\310\311\312\372\306\307&
\210\300\373\302\303\374DD\375\316\376\314\377\306\345& \210\300\201@ \302\303\201A DD\201B \314\201C \306\345&\210\300\201D \302\303\201E DD\201F \314\201G \306\345&\210\300\201H \302\303\201I DD\201J \314\201K \201L \201M \310\311\312\201N \306\345&
\210\300\201O \302\303\201P DD\201Q \314\201R \327\330\316\317\306\307& \210\300\201S \302\303\201T DD\201U \314\201R \327\330\306\307& \210\300\201V \302\303\201W DD\201X \314\201R \327\330\306\307& \210\300\201Y \302\303\201Z DD\201[ \314\201R \327\330\201L \201\\ \306\307& \210\300\201] \302\303\201^ DD\201_ \306\307\327\330\314\201R \316\201` & \210\300\201a \302\303\201b DD\201c \306\307\327\330\314\201R \316\201` & \210\300\201d \302\303\201e DD\201f \306\307\327\330\314\201R \316\201` & \210\300\201g \302\303\201h DD\201i \306\307\310\311\327\330\312\201j \201L \201k \314\201R \316\201l &\207" [custom-declare-variable calendar-day-header-width funcall function #[0 "\300\207" [2] 1] "Width of the day column headers in the calendar.\nMust be at least one less than `calendar-column-width'." :group calendar :initialize custom-initialize-default :set #[514 "\302\300!\204\n \303!\304\305 Z#\207" [calendar-day-header-array calendar-column-width calendar-customized-p calendar-day-header-construct calendar-set-layout-variable 1] 7 "\n\n(fn SYM VAL)"] :type integer :version "23.1" calendar-day-digit-width #[0 "\300\207" [2] 1] "Width of the day digits in the calendar. Minimum value is 2." #[514 "\300\301#\207" [calendar-set-layout-variable 2] 6 "\n\n(fn SYM VAL)"] calendar-intermonth-header #[0 "\300\207" [nil] 1] "Header text to display in the space to the left of each calendar month.\nSee `calendar-intermonth-text'." :risky t #[514 "L\210\300 \207" [calendar-redraw] 4 "\n\n(fn SYM VAL)"] (choice (const nil :tag "Nothing") (string :tag "Fixed string") (sexp :value (propertize "WK" 'font-lock-face 'font-lock-function-name-face))) calendar-intermonth-text #[0 "\300\207" [nil] 1] "Text to display in the space to the left of each calendar month.\nCan be nil, a fixed string, or a Lisp expression that returns a string.\nWhen the expression is evaluated, the variables `day', `month' and `year'\nare integers appropriate for the first day in each week.\nWill be truncated to the smaller of `calendar-left-margin' and\n`calendar-intermonth-spacing'. The last character is forced to be a space.\nFor example, to display the ISO week numbers:\n\n (setq calendar-week-start-day 1\n calendar-intermonth-text\n \\='(propertize\n (format \"%2d\"\n (car\n (calendar-iso-from-absolute\n (calendar-absolute-from-gregorian (list month day year)))))\n \\='font-lock-face \\='font-lock-function-name-face))\n\nSee also `calendar-intermonth-header'." #[514 "L\210\300 \207" [calendar-redraw] 4 "\n\n(fn SYM VAL)"] (choice (const nil :tag "Nothing") (string :tag "Fixed string") (sexp :value (propertize (format "%2d" (car (calendar-iso-from-absolute (calendar-absolute-from-gregorian (list month day year))))) 'font-lock-face 'font-lock-function-name-face))) diary-file #[0 "\300\301\211\"\207" [locate-user-emacs-file "diary"] 3] "Name of the file in which one's personal diary of dates is kept.\n\nThe file's entries are lines beginning with any of the forms\nspecified by the variable `diary-date-forms', which by default\nuses the forms of `diary-american-date-forms':\n\n MONTH/DAY\n MONTH/DAY/YEAR\n MONTHNAME DAY\n MONTHNAME DAY, YEAR\n DAYNAME\n\nwith the remainder of the line being the diary entry string for\nthat date. MONTH and DAY are one or two digit numbers, YEAR is a\nnumber and may be written in full or abbreviated to the final two\ndigits (if `diary-abbreviated-year-flag' is non-nil). MONTHNAME\nand DAYNAME can be spelled in full (as specified by the variables\n`calendar-month-name-array' and `calendar-day-name-array'), or\nabbreviated (as specified by `calendar-month-abbrev-array' and\n`calendar-day-abbrev-array') with or without a period. Case is\nignored. Any of DAY, MONTH, or MONTHNAME, YEAR can be `*' which\nmatches any day, month, or year, respectively. If the date does\nnot contain a year, it is generic and applies to any year. A\nDAYNAME entry applies to the appropriate day of the week in every week.\n\nYou can customize `diary-date-forms' to your preferred format.\nThree default styles are provided: `diary-american-date-forms',\n`diary-european-date-forms', and `diary-iso-date-forms'.\nYou can choose between these by setting `calendar-date-style' in your\ninit file, or by using `calendar-set-date-style' when in the calendar.\n\nA diary entry can be preceded by the character `diary-nonmarking-symbol'\n(ordinarily `&') to make that entry nonmarking--that is, it will not be\nmarked on dates in the calendar window but will appear in a diary window.\n\nMultiline diary entries are made by indenting lines after the first with\neither a TAB or one or more spaces.\n\nLines not in one the above formats are ignored. Here are some sample diary\nentries (in the default American style):\n\n 12/22/1988 Twentieth wedding anniversary!!\n &1/1. Happy New Year!\n 10/22 Ruth's birthday.\n 21: Payday\n Tuesday--weekly meeting with grad students at 10am\n Supowit, Shen, Bitner, and Kapoor to attend.\n 1/13/89 Friday the thirteenth!!\n &thu 4pm squash game with Lloyd.\n mar 16 Dad's birthday\n April 15, 1989 Income tax due.\n &* 15 time cards due.\n\nIf the first line of a diary entry consists only of the date or day name with\nno trailing blanks or punctuation, then that line is not displayed in the\ndiary window; only the continuation lines is shown. For example, the\nsingle diary entry\n\n 02/11/1989\n Bill Blattner visits Princeton today\n 2pm Cognitive Studies Committee meeting\n 2:30-5:30 Lizzie at Lawrenceville for `Group Initiative'\n 4:00pm Jamie Tappenden\n 7:30pm Dinner at George and Ed's for Alan Ryan\n 7:30-10:00pm dance at Stewart Country Day School\n\nwill appear in the diary window without the date line at the beginning. This\nfacility allows the diary window to look neater, but can cause confusion if\nused with more than one day's entries displayed.\n\nDiary entries can be based on Lisp sexps. For example, the diary entry\n\n %%(diary-block 11 1 1990 11 10 1990) Vacation\n\ncauses the diary entry \"Vacation\" to appear from November 1 through\nNovember 10, 1990. See the documentation for the function\n`diary-list-sexp-entries' for more details.\n\nDiary entries based on the Hebrew, the Islamic and/or the Bahá’í\ncalendar are also possible, but because these are somewhat slow, they\nare ignored unless you set the `diary-nongregorian-listing-hook' and\nthe `diary-nongregorian-marking-hook' appropriately. See the\ndocumentation of these hooks for details.\n\nDiary files can contain directives to include the contents of other files; for\ndetails, see the documentation for the variable `diary-list-entries-hook'." "25.1" file diary diary-nonmarking-symbol #[0 "\300\207" [#1="&"] 1 #1#] "Symbol indicating that a diary entry is not to be marked in the calendar." string diary-chinese-entry-symbol #[0 "\300\207" [#2="C"] 1 #2#] "Symbol indicating a diary entry according to the Chinese calendar." diary-hebrew-entry-symbol #[0 "\300\207" [#3="H"] 1 #3#] "Symbol indicating a diary entry according to the Hebrew calendar." diary-islamic-entry-symbol #[0 "\300\207" [#4="I"] 1 #4#] "Symbol indicating a diary entry according to the Islamic calendar." diary-bahai-entry-symbol #[0 "\300\207" [#5="B"] 1 #5#] "Symbol indicating a diary entry according to the Bahá’í calendar." calendar-date-style #[0 "\300\207" [american] 1] "Your preferred style for writing dates.\nThe options are:\n`american' - month/day/year\n`european' - day/month/year\n`iso' - year/month/day\nThis affects how dates written in your diary are interpreted.\nIt also affects date display, as well as those calendar and diary\nfunctions that take a date as an argument, e.g. `diary-date', by\nchanging the order in which the arguments are interpreted.\n\nSetting this variable directly does not take effect (if the\ncalendar package is already loaded). Rather, use either\n\\[customize] or the function `calendar-set-date-style'." (choice (const american :tag "Month/Day/Year") (const european :tag "Day/Month/Year") (const iso :tag "Year/Month/Day")) #[514 "\300!\207" [calendar-set-date-style] 4 "\n\n(fn SYMBOL VALUE)"] diary-iso-date-forms #[0 "\300\207" [((month "[-/]" day "[^-/0-9]") (year "[-/]" month "[-/]" day "[^0-9]") (monthname " *" day "[^-0-9]") (year " *" monthname " *" day "[^0-9]") (dayname "\\W"))] 1] "List of pseudo-patterns describing the ISO style of dates.\nThe defaults are: MONTH[-/]DAY; YEAR[-/]MONTH[-/]DAY; MONTHNAME DAY;\nYEAR MONTHNAME DAY; DAYNAME. Normally you should not customize this,\nbut `diary-date-forms' (which see)." "23.3" (repeat (choice (cons :tag "Backup" :value (backup) (const backup) (repeat (list :inline t :format "%v" (symbol :tag "Keyword") (choice symbol regexp)))) (repeat (list :inline t :format "%v" (symbol :tag "Keyword") (choice symbol regexp))))) diary-american-date-forms #[0 "\300\207" [((month "/" day "[^/0-9]") (month "/" day "/" year "[^0-9]") (monthname " *" day "[^,0-9]") (monthname " *" day ", *" year "[^0-9]") (dayname "\\W"))] 1] "List of pseudo-patterns describing the American style of dates.\nThe defaults are: MONTH/DAY; MONTH/DAY/YEAR; MONTHNAME DAY;\nMONTHNAME DAY, YEAR; DAYNAME. Normally you should not customize this,\nbut `diary-date-forms' (which see)." (repeat (choice (cons :tag "Backup" :value (backup) (const backup) (repeat (list :inline t :format "%v" (symbol :tag "Keyword") (choice symbol regexp)))) (repeat (list :inline t :format "%v" (symbol :tag "Keyword") (choice symbol regexp))))) diary-european-date-forms #[0 "\300\207" [((day "/" month "[^/0-9]") (day "/" month "/" year "[^0-9]") (backup day " *" monthname "\\W+\\<\\([^*0-9]\\|\\([0-9]+[:aApP]\\)\\)") (day " *" monthname " *" year "[^0-9:aApP]") (dayname "\\W"))] 1] "List of pseudo-patterns describing the European style of dates.\nThe defaults are: DAY/MONTH; DAY/MONTH/YEAR; DAY MONTHNAME;\nDAY MONTHNAME YEAR; DAYNAME. Normally you should not customize this, but\n`diary-date-forms' (which see)." (repeat (choice (cons :tag "Backup" :value (backup) (const backup) (repeat (list :inline t :format "%v" (symbol :tag "Keyword") (choice symbol regexp)))) (repeat (list :inline t :format "%v" (symbol :tag "Keyword") (choice symbol regexp))))) diary-date-forms #[0 "\304\267\202\n \207\n\207 \207" [calendar-date-style diary-iso-date-forms diary-european-date-forms diary-american-date-forms #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (iso 6 european 8))] 2] "List of pseudo-patterns describing the forms of date used in the diary.\nThe patterns on the list must be MUTUALLY EXCLUSIVE and should not match\nany portion of the diary entry itself, just the date component.\n\nA pseudo-pattern is a list of regular expressions and the keywords `month',\n`day', `year', `monthname', and `dayname'. The keyword `monthname' will\nmatch the name of the month (see `calendar-month-name-array'), capitalized\nor not, or its user-specified abbreviation (see `calendar-month-abbrev-array'),\nfollowed by a period or not; it will also match `*'. Similarly, `dayname'\nwill match the name of the day (see `calendar-day-name-array'), capitalized or\nnot, or its user-specified abbreviation (see `calendar-day-abbrev-array'),\nfollowed by a period or not. The keywords `month', `day', and `year' will\nmatch those numerical values, preceded by arbitrarily many zeros; they will\nalso match `*'.\n\nThe matching of the diary entries with the date forms is done with the\nstandard syntax table from Fundamental mode, but with the `*' changed so\nthat it is a word constituent.\n\nIf, to be mutually exclusive, a pseudo-pattern must match a portion of the\ndiary entry itself, the first element of the pattern MUST be `backup'. This\ndirective causes the date recognizer to back up to the beginning of the\ncurrent word of the diary entry, so in no case can the pattern match more than\na portion of the first word of the diary entry.\n\nFor examples of three common styles, see `diary-american-date-forms',\n`diary-european-date-forms', and `diary-iso-date-forms'." (repeat (choice (cons :tag "Backup" :value (backup) (const backup) (repeat (list :inline t :format "%v" (symbol :tag "Keyword") (choice symbol regexp)))) (repeat (list :inline t :format "%v" (symbol :tag "Keyword") (choice symbol regexp))))) :set-after (calendar-date-style diary-iso-date-forms diary-european-date-forms diary-american-date-forms) #[514 "\211\301!\232?\205 \302\"\210\300 \303 \205 \304 \207" [diary-font-lock-keywords default-value custom-set-default diary-live-p diary] 5 "\n\n(fn SYMBOL VALUE)"] calendar-iso-date-display-form #[0 "\300\207" [((format "%s-%.2d-%.2d" year (string-to-number month) (string-to-number day)))] 1] "Pseudo-pattern governing the way a date appears in the ISO style.\nNormally you should not customize this, but `calendar-date-display-form'\n(which see)." sexp calendar-european-date-display-form #[0 "\300\207" [((if dayname (concat dayname ", ")) day " " monthname " " year)] 1] "Pseudo-pattern governing the way a date appears in the European style.\nNormally you should not customize this, but `calendar-date-display-form'\n(which see)." calendar-american-date-display-form #[0 "\300\207" [((if dayname (concat dayname ", ")) monthname " " day ", " year)] 1] "Pseudo-pattern governing the way a date appears in the American style.\nNormally you should not customize this, but `calendar-date-display-form'\n(which see)." calendar-date-display-form #[0 "\304\267\202\n \207\n\207 \207" [calendar-date-style calendar-iso-date-display-form calendar-european-date-display-form calendar-american-date-display-form #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (iso 6 european 8))] 2] "Pseudo-pattern governing the way a calendar date appears.\nUsed by the function `calendar-date-string' (which see), a pseudo-pattern\nis a list of expressions that can involve the keywords `month', `day',\nand `year' (all numbers in string form), and `monthname' and `dayname'\n(both alphabetic strings). For example, a typical American form would be\n\n (month \"/\" day \"/\" (substring year -2))\n\nwhereas\n\n ((format \"%9s, %9s %2s, %4s\" dayname monthname day year))\n\nwould give the usual American style in fixed-length fields. The variables\n`calendar-iso-date-display-form', `calendar-european-date-display-form', and\n`calendar-american-date-display-form' provide some defaults for three common\nstyles." (calendar-date-style calendar-iso-date-display-form calendar-european-date-display-form calendar-american-date-display-form) calendar-american-month-header #[0 "\300\207" [(propertize (format "%s %d" (calendar-month-name month) year) 'font-lock-face 'calendar-month-header)] 1] "Default format for calendar month headings with the American date style.\nNormally you should not customize this, but `calendar-month-header'." "24.4" calendar-european-month-header #[0 "\300\207" [(propertize (format "%s %d" (calendar-month-name month) year) 'font-lock-face 'calendar-month-header)] 1] "Default format for calendar month headings with the European date style.\nNormally you should not customize this, but `calendar-month-header'." calendar-iso-month-header #[0 "\300\207" [(propertize (format "%d %s" year (calendar-month-name month)) 'font-lock-face 'calendar-month-header)] 1] "Default format for calendar month headings with the ISO date style.\nNormally you should not customize this, but `calendar-month-header'." calendar-month-header #[0 "\304\267\202\n \207\n\207 \207" [calendar-date-style calendar-iso-month-header calendar-european-month-header calendar-american-month-header #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (iso 6 european 8))] 2] "Expression to evaluate to return the calendar month headings.\nWhen this expression is evaluated, the variables `month' and `year' are\nintegers appropriate to the relevant month. The result is padded\nto the width of `calendar-month-digit-width'.\n\nFor examples of three common styles, see `calendar-american-month-header',\n`calendar-european-month-header', and `calendar-iso-month-header'.\n\nChanging this variable without using customize has no effect on\npre-existing calendar windows." #[514 "L\210\300 \207" [calendar-redraw] 4 "\n\n(fn SYM VAL)"] (calendar-date-style calendar-american-month-header calendar-european-month-header calendar-iso-month-header) "24.3"] 18)
#@154 Set the style of calendar and diary dates to STYLE (a symbol).
The valid styles are described in the documentation of `calendar-date-style'.
(fn STYLE)
(defalias 'calendar-set-date-style #[257 "\211\304>\204 \305\262\211\306\307\310\"!J\306\307\311\"!J\306\307\312\"!J\313 \210\314 \207" [calendar-date-style calendar-date-display-form calendar-month-header diary-date-forms (american european iso) american intern-soft format "calendar-%s-date-display-form" "calendar-%s-month-header" "diary-%s-date-forms" calendar-redraw calendar-update-mode-line] 5 (#$ . 31393) (byte-code "\300\301\302\303\304\305\304\211\306&!C\207" [intern completing-read "Date style: " ("american" "european" "iso") nil t "american"] 9)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\210\300\316\302\303\317DD\320\306\307\310\311&\210\300\321\302\303\322DD\323\306\307\310\311&\210\300\324\302\303\325DD\326\306\307\310\311&\210\300\327\302\303\330DD\331\306\307\310\311&\210\300\332\302\303\333DD\334\335\336\306\307\310\311& \210\337 \207" [custom-declare-variable diary-show-holidays-flag funcall function #[0 "\300\207" [t] 1] "Non-nil means include holidays in the diary display.\nThe holidays appear in the mode line of the diary buffer, or in the\nfancy diary buffer next to the date. This slows down the diary functions\nsomewhat; setting it to nil makes the diary display faster." :type boolean :group holidays calendar-debug-sexp #[0 "\300\207" [nil] 1] "Turn debugging on when evaluating a sexp in the diary or holiday list." calendar calendar-hebrew-all-holidays-flag #[0 "\300\207" [nil] 1] "If nil, show only major holidays from the Hebrew calendar.\nThis means only those Jewish holidays that appear on secular calendars.\nOtherwise, show all the holidays that would appear in a complete Hebrew\ncalendar." calendar-christian-all-holidays-flag #[0 "\300\207" [nil] 1] "If nil, show only major holidays from the Christian calendar.\nThis means only those Christian holidays that appear on secular calendars.\nOtherwise, show all the holidays that would appear in a complete Christian\ncalendar." calendar-islamic-all-holidays-flag #[0 "\300\207" [nil] 1] "If nil, show only major holidays from the Islamic calendar.\nThis means only those Islamic holidays that appear on secular calendars.\nOtherwise, show all the holidays that would appear in a complete Islamic\ncalendar." calendar-bahai-all-holidays-flag #[0 "\300\207" [nil] 1] "If nil, show only major holidays from the Bahá’í calendar.\nThese are the days on which work and school must be suspended.\nOtherwise, show all the holidays that would appear in a complete Bahá’í\ncalendar." calendar-chinese-all-holidays-flag #[0 "\300\207" [nil] 1] "If nil, show only the major holidays from the Chinese calendar." :version "23.1" calendar-recompute-layout-variables] 10)
#@46 First row in the calendar with actual dates.
(defconst calendar-first-date-row 3 (#$ . 34297))
#@43 Name of the buffer used for the calendar.
(defconst calendar-buffer "*Calendar*" (#$ . 34398))
#@58 Name of the buffer used for the displaying the holidays.
(defconst holiday-buffer "*Holidays*" (#$ . 34499))
#@70 Name of the buffer used for the optional fancy display of the diary.
(defconst diary-fancy-buffer "*Fancy Diary Entries*" (#$ . 34614))
#@69 Name of the buffer used for the display of date on other calendars.
(defconst calendar-other-calendars-buffer "*Other Calendars*" (#$ . 34756))
#@47 Name of the buffer used for the lunar phases.
(defconst lunar-phases-buffer "*Phases of Moon*" (#$ . 34906))
#@47 Name of buffer used for sunrise/sunset times.
(defconst solar-sunrises-buffer "*Sunrise/Sunset Times*" (#$ . 35021))
#@62 Name of the buffer used by `calendar-hebrew-list-yahrzeits'.
(defconst calendar-hebrew-yahrzeit-buffer "*Yahrzeits*" (#$ . 35144))
#@263 Increment the variables MON and YR by N months.
Forward if N is positive or backward if N is negative.
A negative YR is interpreted as BC; -1 being 1 BC, and so on.
Optional NMONTHS is the number of months per year (default 12).
(fn MON YR N &optional NMONTHS)
(defalias 'calendar-increment-month '(macro . #[1027 "\300\301\302\303BBD\304B\305\306\307BB\310\311 DEE\310\312\313\314 \315BB\n\316\n\257 \317\n\320BBBBBB\321\322\323\n\324BB\310\n\325\fDEF\305\306 \326BB\310\n\325\fDEE\257\207" [let nmonths or (12) (macro-y) if < (0) setq 1+ macro-y + * (nmonths) -1 (1+ (mod macro-y nmonths)) ((/ macro-y nmonths)) and (< macro-y 0) > (1) 1- (1)] 15 (#$ . 35282)]))
#@173 Return the Nth month after MON/YR.
The return value is a pair (MONTH . YEAR).
MON defaults to `displayed-month'. YR defaults to `displayed-year'.
(fn N &optional MON YR)
(defalias 'calendar-increment-month-cons #[769 "\204 \262\211\204 \262\302\303\304W\203 T\262\305_\306$\262\307\"T\262\211\245\262\211\304W\203A \310V\203A S\262\310W\203K S\262\266B\207" [displayed-month displayed-year 12 nil 0 + -1 mod 1] 10 (#$ . 35974)])
#@117 For INDEX = INITIAL, +1, ... (as long as CONDITION holds), sum EXPRESSION.
(fn INDEX INITIAL CONDITION EXPRESSION)
(defalias 'calendar-sum '(macro . #[1028 "\300D\301B\302\303\304\305\304E\n\306\fD\257E\307BBB\207" [let ((sum 0)) while setq sum + 1+ (sum)] 14 (#$ . 36443)]))
(put 'calendar-sum 'edebug-form-spec '(symbolp form form form))
#@208 Switch to BUFFER and execute the forms in BODY.
First creates or erases BUFFER as needed. Leaves BUFFER read-only,
with disabled undo. Leaves point at `point-min', displays BUFFER.
(fn BUFFER &rest BODY)
(defalias 'calendar-in-read-only-buffer '(macro . #[385 "\300\301\302DD\303\304\305\306D\307\310\"BBBBBB\207" [progn set-buffer get-buffer-create (or (derived-mode-p 'special-mode) (special-mode)) (setq buffer-read-only nil buffer-undo-list t) (erase-buffer) display-buffer append ((goto-char (point-min)) (set-buffer-modified-p nil) (setq buffer-read-only t))] 11 (#$ . 36799)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put calendar-in-read-only-buffer lisp-indent-function 1 put edebug-form-spec t] 5)
#@80 Extract the month part of DATE which has the form (month day year).
(fn DATE)
(defalias 'calendar-extract-month #[257 "\211@\207" [] 2 (#$ . 37543)])
(put 'calendar-extract-month 'byte-optimizer 'byte-compile-inline-expand)
#@78 Extract the day part of DATE which has the form (month day year).
(fn DATE)
(defalias 'calendar-extract-day #[257 "\211A@\207" [] 2 (#$ . 37774)])
(put 'calendar-extract-day 'byte-optimizer 'byte-compile-inline-expand)
#@79 Extract the year part of DATE which has the form (month day year).
(fn DATE)
(defalias 'calendar-extract-year #[257 "\3008\207" [2] 3 (#$ . 38000)])
(put 'calendar-extract-year 'byte-optimizer 'byte-compile-inline-expand)
#@119 Return t if YEAR is a Gregorian leap year.
A negative year is interpreted as BC; -1 being 1 BC, and so on.
(fn YEAR)
(defalias 'calendar-leap-year-p #[257 "\211\300W\203\f \301!S\262\211\302\246\300U\205\" \211\303\246\300U?\206\" \211\304\246\300U\207" [0 abs 4 100 400] 3 (#$ . 38231)])
(put 'calendar-leap-year-p 'byte-optimizer 'byte-compile-inline-expand)
#@53 The last day in MONTH during YEAR.
(fn MONTH YEAR)
(defalias 'calendar-last-day-of-month #[514 "\300U\2030 \211\211\301W\203 \302!S\262\211\303\246\301U\205) \211\304\246\301U?\206) \211\305\246\301U\262\2030 \306\207\307SH\207" [2 0 abs 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31]] 5 (#$ . 38601)])
(put 'calendar-last-day-of-month 'byte-optimizer 'byte-compile-inline-expand)
#@195 Return the day number within the year of the date DATE.
For example, (calendar-day-number \='(1 1 1987)) returns the value 1,
while (calendar-day-number \='(12 31 1980)) returns 366.
(fn DATE)
(defalias 'calendar-day-number #[257 "\211\211@\262\211A@\262\3008\262\301S_\\\300V\203U \211\302\303_\\\304\245Z\262\211\305W\2036 \306!S\262\211\303\246\305U\205L \211\307\246\305U?\206L \211\310\246\305U\262\203U \211T\262\207" [2 31 23 4 10 0 abs 100 400] 9 (#$ . 39000)])
(put 'calendar-day-number 'byte-optimizer 'byte-compile-inline-expand)
#@306 The number of days elapsed between the Gregorian date 12/31/1 BC and DATE.
The Gregorian date Sunday, December 31, 1 BC is imaginary.
DATE is a list of the form (month day year). A negative year is
interpreted as BC; -1 being 1 BC, and so on. Dates before 12/31/1 BC
return negative results.
(fn DATE)
(defalias 'calendar-absolute-from-gregorian #[257 "\211\3008\262\301\302U\203 \303\304!\202M\302V\203\207 S\262\305\211\211@\262\211A@\262\3008\262\306S_\\\300V\203t \211\307\310_\\\311\245Z\262\211\302W\203U \312!S\262\211\310\246\302U\205k \211\313\246\302U?\206k \211\314\246\302U\262\203t \211T\262\266\204\315_\310\245\313\245[\314\245%\202M\312T!\262\316\211\211@\262\211A@\262\3008\262\306S_\\\300V\203\344 \211\307\310_\\\311\245Z\262\211\302W\203\305 \312!S\262\211\310\246\302U\205\333 \211\313\246\302U?\206\333 \211\314\246\302U\262\203\344 \211T\262\266\204\315_\310\245\313\245[\314\245\317\211\211@\262\211A@\262\3008\262\306S_\\\300V\203I\211\307\310_\\\311\245Z\262\211\302W\203*\312!S\262\211\310\246\302U\205@\211\313\246\302U?\206@\211\314\246\302U\262\203I\211T\262\266\204&\207" [2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1)] 18 (#$ . 39566)])
(put 'calendar-absolute-from-gregorian 'byte-optimizer 'byte-compile-inline-expand)
#@1585 Display a three-month Gregorian calendar.
The three months appear side by side, with the current month in
the middle surrounded by the previous and next months. The
cursor is put on today's date. If optional prefix argument ARG
is non-nil, prompts for the central month and year.
Once in the calendar window, future or past months can be moved
into view. Arbitrary months can be displayed, or the calendar
can be scrolled forward or backward. The cursor can be moved
forward or backward by one day, one week, one month, or one year.
All of these commands take prefix arguments which, when negative,
cause movement in the opposite direction. For convenience, the
digit keys and the minus sign are automatically prefixes. Use
\[describe-mode] for details of the key bindings in the calendar
window.
Displays the calendar in a separate window, or optionally in a
separate frame, depending on the value of `calendar-setup'.
If `calendar-view-diary-initially-flag' is non-nil, also displays the
diary entries for the current date (or however many days
`diary-number-of-entries' specifies). This variable can be
overridden by `calendar-setup'. As well as being displayed,
diary entries can also be marked on the calendar (see
`calendar-mark-diary-entries-flag').
Runs the following hooks:
`calendar-today-visible-hook', `calendar-today-invisible-hook' - after
generating a calendar, if today's date is visible or not, respectively
`calendar-initial-window-hook' - after first creating a calendar
This function is suitable for execution in an init file.
(fn &optional ARG)
(defalias 'calendar #[256 "\301>\203 \302 \203 \303\"\207\304!\207" [calendar-setup (one-frame two-frames calendar-only) display-multi-frame-p calendar-frame-setup calendar-basic-setup] 4 (#$ . 40948) "P"])
#@230 Create a three-month calendar.
If optional prefix argument ARG is non-nil, prompts for the month
and year, else uses the current date. If NODISPLAY is non-nil, don't
display the generated calendar.
(fn &optional ARG NODISPLAY)
(defalias 'calendar-basic-setup #[512 "p\306!q\210\307 \210\310\311 \203 \312\310!\202 \313 \211\211@\262\3148\262\315\316\317W\2032 T\262\320_\321
[$\262\322\"T\262\211\245\262\211\317W\203Y \323V\203Y S\262\323W\203c S\262\266\204\224 \324\325 \310\"\203t \326 \210\327!\210\330 \204\224 \324\325 !\203\224 \331 \203\224 \332 \333!\210\334!\266\335\"\210&\203\253 \336!\203\253 \337 '\340 \210)+\266(\203\314 \341 \211\205\274 \342!\211\203\304 \314\202\305 \311\343 \210)\266\344\345!\207" [calendar-buffer pop-up-windows split-height-threshold calendar-split-width-threshold split-width-threshold calendar-offset get-buffer-create calendar-mode t 1000 calendar-read-date calendar-current-date 2 12 nil 0 + -1 mod 1 window-splittable-p selected-window split-window-right pop-to-buffer window-dedicated-p window-full-height-p split-window-below switch-to-buffer select-window calendar-generate-window calendar-date-is-visible-p (nil (inhibit-same-window . t)) diary-view-entries diary-live-p get-buffer-window calendar-list-holidays run-hooks calendar-initial-window-hook calendar-view-diary-initially-flag display-buffer-overriding-action calendar-view-holidays-initially-flag] 13 (#$ . 42752) "P"])
#@138 Generate the calendar window for the current date.
Optional integers MON and YR are used instead of today's date.
(fn &optional MON YR)
(defalias 'calendar-generate-window #[512 "\306\307 \211\211@\262\3108\262?\206 \311\312$!\313X\314 \315 !=\316\206- \2063 \"\210\317 \210\320\203A \202E \n\313 E!\210\321\322!\210\211\203f \323 \203] \324\322\211\f#\210\202b \325\322\326\"\210\327\326!\210
\203w \330 \203w \211\203w \327\326!\210\331\326\332\333\334!\335\"\310$\216 \205\213 \336 *\207" [inhibit-read-only calendar-buffer displayed-month displayed-year calendar-minimum-window-height calendar-mark-holidays-flag t calendar-current-date 2 abs calendar-interval 1 window-buffer get-buffer calendar-generate calendar-update-mode-line calendar-cursor-to-visible-date set-buffer-modified-p nil window-combined-p fit-window-to-buffer set-window-vscroll 0 sit-for calendar-mark-holidays make-byte-code "\301\300\203 \302\202\n \303!\207" vconcat vector [run-hooks calendar-today-visible-hook calendar-today-invisible-hook] diary-mark-entries calendar-mark-diary-entries-flag] 13 (#$ . 44235)])
#@89 Generate a three-month Gregorian calendar centered around MONTH, YEAR.
(fn MONTH YEAR)
(defalias 'calendar-generate #[514 "\304S_\\\305W\203 \306\307!\210\211\310 \210\304\311\312W\203\" T\262\313_\314\211$\262\315\"T\262\211\245\262\211\312W\203H \316V\203H S\262\316W\203R S\262\266\317\312\211W\205\257 \211\320\n _\\#\210\304\311\312W\203s T\262\313_\314\316$\262\315\"T\262\211\245\262\211\312W\203\234 \316V\203\234 S\262\316W\203\246 S\262\266\211T\262\202V \207" [displayed-month displayed-year calendar-left-margin calendar-month-width 12 2 user-error "Months before January, 1 AD cannot be displayed" erase-buffer nil 0 + -1 mod 1 3 calendar-generate-month] 12 (#$ . 45359)])
#@75 Like `move-to-column', but indents if the line is too short.
(fn INDENT)
(defalias 'calendar-move-to-column #[257 "\300!W\205\n \211j\207" [move-to-column] 3 (#$ . 46104)])
#@55 Move to the next line, adding a newline if necessary.
(defalias 'calendar-ensure-newline #[0 "\300y\301U\206 \302c\207" [1 0 "\n"] 2 (#$ . 46286)])
#@262 Move to column INDENT, adding spaces as needed.
Inserts STRING so that it ends at INDENT. STRING is either a
literal string, or a sexp to evaluate to return such. Truncates
STRING to length TRUNCATE, and ensures a trailing space.
(fn INDENT STRING TRUNCATE)
(defalias 'calendar-insert-at-column #[771 "\3001 \301!\211\262;0\202 \210\302\204 \303!\207\304!V\203& \305\"\262\306\307\"\204W \304!U\203= \310\311\312#\202> \304!GU\203K \313\202T \314\313\315\316\317E#P\262\303\304!Z!\210c\207" [(error) eval nil calendar-move-to-column string-width truncate-string-to-width string-match " $" substring 0 -1 " " propertize display space :align-to] 10 (#$ . 46442)])
#@326 Produce a calendar for MONTH, YEAR on the Gregorian calendar.
The calendar is inserted at the top of the buffer in which point is
currently located, but indented INDENT spaces. The indentation is
done from the first character on the line and does not disturb the
first INDENT characters on the line.
(fn MONTH YEAR INDENT)
(defalias 'calendar-generate-month #[771 "\306\307\310E!Z\311\"\312U\203A \211\211\313W\203 \314!S\262\211\315\246\313U\2056 \211\316\246\313U?\2066 \211\317\246\313U\262\203A \320\266\202\202G \321SH\266\202 \nS^\310\322eb\210\323!\210 \324
C\325(#*c\210\326 \210\327)#\210\311\313\211W\203\260 \211\306\\\311\"\262\330\331\332\333\334#\335*>\203\226 \336\202\227 \337#+\322\325$\340,+Z\325\"\261\266\211T\262\202r \266\326 \210 - \327.#\210+\340,_\325\"c\210\313\211W\205=\211\211T\262\331\341\211\342/\"\"\343\344\345 - \3460!+\347\334&\340,/Z\325\"\261\210\306 \\\311\"\313U\2035U\2045\326 \210T\262 -\n \327 .#\210+\210\211T\262\202\322 \266\202\207" [calendar-week-start-day calendar-intermonth-spacing calendar-left-margin month year calendar-month-header mod calendar-day-of-week 1 7 2 0 abs 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] nil calendar-move-to-column calendar-string-spread 32 calendar-ensure-newline calendar-insert-at-column truncate-string-to-width propertize calendar-day-name header t font-lock-face calendar-weekend-header calendar-weekday-header make-string format "%%%dd" mouse-face highlight help-echo eval date calendar-month-digit-width calendar-intermonth-header calendar-weekend-days calendar-day-header-width calendar-column-width day calendar-intermonth-text calendar-day-digit-width calendar-date-echo-text] 19 (#$ . 47138)])
#@60 Redraw the calendar display, if `calendar-buffer' is live.
(defalias 'calendar-redraw #[0 "\303!\205# rq\210\304 \305 \n\"\210\306!\266\307\310 !\205\" \311\310 `\")\207" [calendar-buffer displayed-month displayed-year get-buffer calendar-cursor-to-nearest-date calendar-generate-window calendar-cursor-to-visible-date window-live-p get-buffer-window set-window-point] 4 (#$ . 48928) nil])
#@29 Keymap for `calendar-mode'.
(defvar calendar-mode-map (byte-code "\306 \307!\210\310\211\203 \211@\311\312\313\"\314#\210A\266\202\202 \210\311\315\316#\210\311\317\316#\210\311\320\321#\210\311\322\321#\210\311\323\324#\210\311\325\324#\210\311\326\327#\210\311\330\327#\210\311\331\332#\210\311\333\334#\210\311\335\336#\210\311\337\340#\210\311\341\342#\210\311\343\344#\210\311\345\332#\210\311\346\334#\210\311\347\342#\210\311\350\344#\210\311\351\352#\210\311\353\354#\210\311\355\356#\210\311\357\360#\210\311\361\362#\210\311\363\364#\210\311\365\366#\210\311\367\370#\210\311\371\372#\210\311\373\372#\210\311\374\375#\210\311\376\377#\210\311\201B \201C #\210\311\201D \201E #\210\311\201F \201G #\210\311\201H \201I #\210\311\201J \201K #\210\311\201L \201M #\210\311\201N \201O #\210\311\201P \201Q #\210\311\201R \201S #\210\311\201T \201U #\210\311\201V \201W #\210\311\201X \201Y #\210\311\201Z \201[ #\210\311\201\\ \201] #\210\311\201^ \201_ #\210\311\201` \201a #\210\311\201b \201c #\210\311\201d \201e #\210\311\201f \201g #\210\311\201h \201i #\210\311\201j \201k #\210\311\201l \201m #\210\311\201n \201o #\210\311\201p \201q #\210\311\201r \201s #\210\311\201t \201u #\210\311\201v \201w #\210\311\201x \201w #\210\311\201y \201z #\210\311\201{ \201| #\210\311\201} \201~ #\210\311\201 \201\200 #\210\311\201\201 \201\202 #\210\311\201\203 \201\204 #\210\311\201\205 \201\206 #\210\311\201\207 \201\210 #\210\311\201\211 \201\212 #\210\311\201\213 \201\214 #\210\311\201\215 \201\216 #\210\311\201\217 \201\220 #\210\311\201\221 \201\222 #\210\311\201\223 \201\224 #\210\311\201\225 \201\226 #\210\311\201\227 \201\230 #\210\311\201\231 \201\232 #\210\311\201\233 \201\234 #\210\311\201\235 \201\236 #\210\311\201\237 \201\240 #\210\311\201\241 \201\242 #\210\311\201\243 \201\244 #\210\311\201\245 \201\246 #\210\311\201\247 \201\250 #\210\311\201\251 \201\252 #\210\311\201\253 \201\254 #\210\311\201\255 \201\256 #\210\311\201\257 \201\260 #\210\311\201\261 \201\262 #\210\311\201\263 \201\264 #\210\311\201\265 \201\266 #\210\311\201\267 \201\270 #\210\311\201\271 \201\272 #\210\311\201\273 \201\274 #\210\311\201\275 \201\276 #\210\311\201\277 \201\300 #\210\311\201\301 \201\302 #\210\311\201\303 \201\304 #\210\311\201\305 \201\306 #\210\311\201\307 \201\310 #\210\311\201\311 \201\312 #\210\311\201\313 \201\314 #\210\311\201\315 \201\316 #\210\311\201\317 \201\320 #\210\311\201\321 \201\322 #\210\311\201\323 \201\324 #\210\311\201\325 \201\326 #\210\311\201\327 \201\330 #\210\311\201\331 \201\332 #\210\311\201\333 \201\334 #\210\311\201\335 \201\336 #\210\311\201\337 \201\340 #\210\311\201\341 \201\342 #\210\311\201\343 \201\344 #\210\311\201\345 \201\346 #\210\311\201\347 \201\350 #\210\311\201\351 \201\352 #\210\311\201\353 \201\354 #\210\311\201\355 \201\356 #\210\311\201\357 \201\360 #\210\311\201\361 \201\362 #\210\311\201\363 \201\364 #\210\311\201\365 \201\366 #\210\311\201\367 \201\370 #\210\311\201\371 \201\370 #\210\201\372 \201\373 \201\373 $\210\201\372 \201\373 \201\373 $\210\201\372 \201\373 \201\373 \n$\210\201\372 \201\373 \201\373 $\210\201\372 \201\373 \201\373 \f$\210\311\201\374 \201\375
!#\210\311\201\376 \201\375 @!#\210\201\377 \201A !\203\352A\203\352\311\201 \201#\210\202\n\311\201\324#\210\311\201\324#\210\311\201\316#\210\311\201\316#\210\211\207" [cal-menu-sunmoon-menu cal-menu-diary-menu cal-menu-holidays-menu cal-menu-goto-menu cal-menu-scroll-menu cal-menu-context-mouse-menu make-keymap suppress-keymap (narrow-to-region mark-word mark-sexp mark-paragraph mark-defun mark-whole-buffer mark-page downcase-region upcase-region kill-region copy-region-as-kill capitalize-region write-region) define-key vector remap calendar-not-implemented "<" calendar-scroll-right "<" [prior] calendar-scroll-right-three-months "v" ">" calendar-scroll-left ">" [next] calendar-scroll-left-three-months "" "" calendar-backward-day "" calendar-backward-week "{" calendar-backward-month "[" calendar-backward-year "" calendar-forward-day "" calendar-forward-week [left] [up] [right] [down] "}" calendar-forward-month "]" calendar-forward-year "" calendar-beginning-of-week "" calendar-end-of-week "a" calendar-beginning-of-month "e" calendar-end-of-month "<" calendar-beginning-of-year ">" calendar-end-of-year " " calendar-set-mark [67108896] "" calendar-exchange-point-and-mark "=" calendar-count-days-region cal-menu-global-mouse-menu x-toolkit-scroll-bars "gd" calendar-goto-date "gD" calendar-goto-day-of-year "gj" calendar-julian-goto-date "ga" calendar-astro-goto-day-number "gh" calendar-hebrew-goto-date "gi" calendar-islamic-goto-date "gb" calendar-bahai-goto-date "gC" calendar-chinese-goto-date "gk" calendar-coptic-goto-date "ge" calendar-ethiopic-goto-date "gp" calendar-persian-goto-date "gc" calendar-iso-goto-date "gw" calendar-iso-goto-week "gf" calendar-french-goto-date "gml" calendar-mayan-goto-long-count-date "gmpc" calendar-mayan-previous-round-date "gmnc" calendar-mayan-next-round-date "gmph" calendar-mayan-previous-haab-date "gmnh" calendar-mayan-next-haab-date "gmpt" calendar-mayan-previous-tzolkin-date "gmnt" calendar-mayan-next-tzolkin-date "Aa" appt-add "Ad" appt-delete "S" calendar-sunrise-sunset "M" calendar-lunar-phases " " scroll-other-window [33554464] scroll-other-window-down "" "\f" calendar-redraw "." calendar-goto-today "o" calendar-other-month "q" calendar-exit "a" calendar-list-holidays "h" calendar-cursor-holidays "x" calendar-mark-holidays "u" calendar-unmark "m" diary-mark-entries "d" diary-view-entries "D" diary-view-other-diary-entries "s" diary-show-all-entries "pd" calendar-print-day-of-year "pC" calendar-chinese-print-date "pk" calendar-coptic-print-date "pe" calendar-ethiopic-print-date "pp" calendar-persian-print-date "pc" calendar-iso-print-date "pj" calendar-julian-print-date "pa" calendar-astro-print-day-number "ph" calendar-hebrew-print-date "pi" calendar-islamic-print-date "pb" calendar-bahai-print-date "pf" calendar-french-print-date "pm" calendar-mayan-print-date "po" calendar-print-other-dates "id" diary-insert-entry "iw" diary-insert-weekly-entry "im" diary-insert-monthly-entry "iy" diary-insert-yearly-entry "ia" diary-insert-anniversary-entry "ib" diary-insert-block-entry "ic" diary-insert-cyclic-entry "ihd" diary-hebrew-insert-entry "ihm" diary-hebrew-insert-monthly-entry "ihy" diary-hebrew-insert-yearly-entry "iid" diary-islamic-insert-entry "iim" diary-islamic-insert-monthly-entry "iiy" diary-islamic-insert-yearly-entry "iBd" diary-bahai-insert-entry "iBm" diary-bahai-insert-monthly-entry "iBy" diary-bahai-insert-yearly-entry "iCd" diary-chinese-insert-entry "iCm" diary-chinese-insert-monthly-entry "iCy" diary-chinese-insert-yearly-entry "iCa" diary-chinese-insert-anniversary-entry "?" calendar-goto-info-node "Hm" cal-html-cursor-month "Hy" cal-html-cursor-year "tm" cal-tex-cursor-month "tM" cal-tex-cursor-month-landscape "td" cal-tex-cursor-day "tw1" cal-tex-cursor-week "tw2" cal-tex-cursor-week2 "tw3" cal-tex-cursor-week-iso "tw4" cal-tex-cursor-week-monday "twW" cal-tex-cursor-week2-summary "tfd" cal-tex-cursor-filofax-daily "tfw" cal-tex-cursor-filofax-2week "tfW" cal-tex-cursor-filofax-week "tfy" cal-tex-cursor-filofax-year "ty" cal-tex-cursor-year "tY" cal-tex-cursor-year-landscape [menu-bar edit] undefined [menu-bar search] easy-menu-do-define nil [down-mouse-3] easy-menu-binding [down-mouse-2] boundp [vertical-scroll-bar mouse-1] calendar-scroll-toolkit-scroll [vertical-scroll-bar mouse-1] [vertical-scroll-bar drag-mouse-1] [vertical-scroll-bar mouse-3] [vertical-scroll-bar drag-mouse-3]] 8) (#$ . 49328))
(put 'calendar-mode 'mode-class 'special)
#@218 Return a propertized string for `calendar-mode-line-format'.
COMMAND is a command to run, ECHO is the help-echo text, KEY
is COMMAND's keybinding, STRING describes the binding.
(fn COMMAND ECHO &optional KEY STRING)
(defalias 'calendar-mode-line-entry #[1026 "\300\206
\301\302\303#!\304\302\305\"\306\307\310\311\312\f\"&\207" [propertize substitute-command-keys format "\\<calendar-mode-map>\\[%s] %s" help-echo "mouse-1: %s" mouse-face mode-line-highlight keymap make-mode-line-mouse-map mouse-1] 14 (#$ . 57157)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable calendar-mode-line-format funcall function #[0 "\300\301\302\303#\304\300\305\306\307\310$\311\300\312\313\307\314$\311\300\315\316\307\317$\260\320\300\321\322\323#\257\207" [calendar-mode-line-entry calendar-scroll-right "previous month" "<" "Calendar" calendar-goto-info-node "read Info on Calendar" nil "info" " / " calendar-other-month "choose another month" "other" calendar-goto-today "go to today's date" "today" (calendar-date-string (calendar-current-date) t) calendar-scroll-left "next month" ">"] 11] "If non-nil, the mode line of the calendar buffer.\nThis is a list of items that evaluate to strings. The elements\nare evaluated and concatenated, evenly separated by blanks.\nDuring evaluation, the variable `date' is available as the date\nnearest the cursor (or today's date if that fails). To update\nthe mode-line as the cursor moves, add\n`calendar-update-mode-line' to `calendar-move-hook'.\n\nIf nil, do not modify the mode line at all.\n\nHere is an example that has the Hebrew date, the day number/days\nremaining in the year, and the ISO week/year numbers:\n\n (list\n \"\"\n \\='(calendar-hebrew-date-string date)\n \\='(let* ((year (calendar-extract-year date))\n (d (calendar-day-number date))\n (days-remaining\n (- (calendar-day-number (list 12 31 year)) d)))\n (format \"%d/%d\" d days-remaining))\n \\='(let* ((d (calendar-absolute-from-gregorian date))\n (iso-date (calendar-iso-from-absolute d)))\n (format \"ISO week %d of %d\"\n (calendar-extract-month iso-date)\n (calendar-extract-year iso-date)))\n \"\"))" :risky t :type sexp :group calendar] 10)
#@39 Go to the info node for the calendar.
(defalias 'calendar-goto-info-node #[0 "\300\301!\210\302 \207" [info "(emacs)Calendar/Diary" fit-window-to-buffer] 2 (#$ . 59452) nil])
#@30 Used by `calendar-set-mark'.
(defvar calendar-mark-ring nil (#$ . 59633))
(defvar calendar-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [calendar-mode-hook variable-documentation put "Hook run after entering Calendar mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp calendar-mode-map definition-name calendar-mode] 4)
(defvar calendar-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\317#\207" [calendar-mode-abbrev-table calendar-mode-map variable-documentation put purecopy "Keymap for `calendar-mode'." boundp calendar-mode-syntax-table definition-name calendar-mode (lambda (#1=#:def-tmp-var) (defvar calendar-mode-syntax-table #1#)) make-syntax-table "Syntax table for `calendar-mode'." (lambda (#1#) (defvar calendar-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `calendar-mode'." derived-mode-parent] 5)
#@248 A major mode for the calendar window.
For a complete description, see the info node `Calendar/Diary'.
\<calendar-mode-map>\{calendar-mode-map}
This mode runs the hook `calendar-mode-hook', as the final or penultimate step
during initialization.
(defalias 'calendar-mode #[0 "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210
\307\211\315 \306\316!\210\317\320 \210\306\321!\210\306\322!\210\306\323!\210\324\322!\204@ \325\324\323!\204I \326)\327\330!\207" [delay-mode-hooks major-mode mode-name calendar-mode-map calendar-mode-syntax-table calendar-mode-abbrev-table make-local-variable t kill-all-local-variables calendar-mode "Calendar" use-local-map set-syntax-table nil scroll-margin 0 calendar-update-mode-line calendar-mark-ring displayed-month displayed-year boundp 1 2001 run-mode-hooks calendar-mode-hook local-abbrev-table buffer-read-only buffer-undo-list indent-tabs-mode] 3 (#$ . 60872) nil])
#@392 Concatenate list of STRINGS separated with copies of CHAR to fill LENGTH.
The effect is like `mapconcat' but the separating pieces are as
balanced as possible. Each item of STRINGS is evaluated before
concatenation so it can actually be an expression that evaluates
to a string. If LENGTH is too short, the STRINGS are just
concatenated and the result truncated.
(fn STRINGS CHAR LENGTH)
(defalias 'calendar-string-spread #[771 "\300\301G\302W\203 \303\304C\304C#\202 \"\305\306\307\"!ZGS\310!_@A\311\211\203O \211@\312\311 \\ \245]\f\"Q\262T\262A\266\202\202+ \210\313\"\207" [mapcar eval 2 append "" string-width apply concat char-width 0 make-string truncate-string-to-width] 16 (#$ . 61810)])
#@69 Update the calendar mode line with the current date and date style.
(defalias 'calendar-update-mode-line #[0 "\205> \306\307 !!\205> r q\210\n\310Z\3111 \312 0\202 \210\313 \314\315\316 @\317 @Z\\]\320\"\321\320\fSZ#P)\210\322 )\207" [calendar-mode-line-format calendar-buffer calendar-left-margin date calendar-right-margin mode-line-format bufferp get-buffer 2 (error) calendar-cursor-to-nearest-date calendar-current-date make-string 0 window-inside-edges window-edges 32 calendar-string-spread force-mode-line-update] 7 (#$ . 62543)])
#@65 List of all calendar-related buffers (as buffers, not strings).
(defalias 'calendar-buffer-list #[0 "\306 \n \f\307
! \n\257\211\203. \211@\211\203' \310!\211\262\203' \211B\262A\266\202\202 \210\211\207" [calendar-hebrew-yahrzeit-buffer lunar-phases-buffer holiday-buffer diary-fancy-buffer solar-sunrises-buffer diary-file nil get-file-buffer get-buffer calendar-buffer calendar-other-calendars-buffer] 9 (#$ . 63096)])
#@86 Get out of the calendar window and hide it and related buffers.
(fn &optional KILL)
(defalias 'calendar-exit #[256 "\303!\304 \203 \305!\203 \306\307!\205| \203f \310 \203f \311\312\211\313#\211\205a \211@\314!>\203Z \315!\203Z \316!\317=\203U \n\203L \320\321!!\210\202Z \322\321!!\210\202Z \323\"\210A\266\202\202# \262\202| \211\211\205z \211@\324\"\210A\266\202\202g \262\207" [diary-file calendar-setup calendar-remove-frame-by-deleting get-file-buffer calendar-buffer-list buffer-modified-p yes-or-no-p "Diary modified; do you really want to exit the calendar? " display-multi-frame-p window-list-1 nil t window-buffer window-dedicated-p window-deletable-p frame delete-frame window-frame iconify-frame quit-window quit-windows-on] 8 (#$ . 63534) "P"])
#@143 Return the current date in a list (month day year).
Optional integer OFFSET is a number of days from the current date.
(fn &optional OFFSET)
(defalias 'calendar-current-date #[256 "\300 \3018\3028\3038E\206 \304\304U\203 \211\202n\305\211\3068\262\307\304U\2030 \310\311!\202j\304V\203\244 S\262\312\211\211@\262\211A@\262\3068\262\313S_\\\306V\203\221 \211\314\301_\\\315\245Z\262\211\304W\203r \316!S\262\211\301\246\304U\205\210 \211\317\246\304U?\206\210 \211\320\246\304U\262\203\221 \211T\262\266\204\321_\301\245\317\245[\320\245%\202j\316T!\262\322\211\211@\262\211A@\262\3068\262\313S_\\\306V\203\211\314\301_\\\315\245Z\262\211\304W\203\342 \316!S\262\211\301\246\304U\205\370 \211\317\246\304U?\206\370 \211\320\246\304U\262\203\211T\262\266\204\321_\301\245\317\245[\320\245\323\211\211@\262\211A@\262\3068\262\313S_\\\306V\203f\211\314\301_\\\315\245Z\262\211\304W\203G\316!S\262\211\301\246\304U\205]\211\317\246\304U?\206]\211\320\246\304U\262\203f\211T\262\266\204&\266\203\\!\207" [decode-time 4 3 5 0 calendar-gregorian-from-absolute 2 nil user-error "There was no year zero" + 31 23 10 abs 100 400 365 - (12 31 -1)] 23 (#$ . 64322)])
#@113 Convert current column to calendar month "segment".
The left-most month returns 0, the next right 1, and so on.
(defalias 'calendar-column-to-segment #[0 "\303\304i\305\245 [#]\211\306\n_\\\245\207" [calendar-intermonth-spacing calendar-left-margin calendar-column-width 0 + 2 7] 5 (#$ . 65573)])
#@301 Return a list (month day year) of current cursor position.
If cursor is not on a specific date, signals an error if optional
parameter ERROR is non-nil, otherwise just returns nil.
If EVENT is non-nil, it's an event indicating the buffer position to
use instead of point.
(fn &optional ERROR EVENT)
(defalias 'calendar-cursor-to-date #[512 "r\211\203 \303\304!\211@\262!\202 pq\210\212\211\203' \304!\211\262\203' \305!b\210\306 S\\\307\246\310\311!\203< \312`\313\"\204F \205\210 \314\315!\202\210 \211\316U\203O \307\262\310\317!\204Y \320\321!\210\211\322`T\323\324 `#{!\307U\203u \316U\203u \nS\202\207 \324U\203\206 \325U\203\206 \nT\202\207 \nE\266\202*\207" [displayed-month calendar-day-digit-width displayed-year window-buffer event-start posn-point calendar-column-to-segment 12 looking-at "[ 0-9]?[0-9][^0-9]" get-text-property date user-error "Not on a date!" 0 " " re-search-backward "[^0-9]" string-to-number + 1 2] 11 (#$ . 65879)])
#@244 Compute the list (month day year) corresponding to the absolute DATE.
The absolute date is the number of days elapsed since the (imaginary)
Gregorian date Sunday, December 31, 1 BC. This function does not
handle dates in years BC.
(fn DATE)
(defalias 'calendar-gregorian-from-absolute #[257 "\211S\211\300\245\300\246\211\301\245\301\246\211\302\245\302\246\211\303\245\303\246T\304\305 _\306_\307_$\310\311\307U\2049 \307U\203@ \312\313E\202\230 T\262\314U\203z \211\211\315W\203Y \316!S\262\211\307\246\315U\205o \211\306\246\315U?\206o \211\305\246\315U\262\203z \317\266\202\202\200 \320SH\266\202\211\262W\203\224 Z\262T\262\202D E\207" [146097 36524 1461 365 + 400 100 4 1 nil 12 31 2 0 abs 29 [31 28 31 30 31 30 31 31 30 31 30 31]] 18 (#$ . 66850)])
#@142 Display a three-month calendar centered around MONTH and YEAR.
EVENT is an event like `last-nonmenu-event'.
(fn MONTH YEAR &optional EVENT)
(defalias 'calendar-other-month #[770 "\302 r\303\304\305\306\307!\310\"\311$\216\203$ \312!\211\262\203$ \313\211@\262!\210U\205- U?\205Z \314 \315 \316\"\210\317\320!\203G \202W \320!\203Q \202W \321E!\266\202*\207" [displayed-month displayed-year internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 event-start select-window calendar-cursor-to-date calendar-current-date calendar-generate-window calendar-cursor-to-visible-date calendar-date-is-visible-p 1] 10 (#$ . 67649) (byte-code "C\301\302\303!\"\207" [last-nonmenu-event append calendar-read-date noday] 4)])
#@220 Mark the date under the cursor, or jump to marked date.
With no prefix argument, push current date onto marked date ring.
With argument ARG, jump to mark, pop it, and put point at end of ring.
(fn ARG &optional EVENT)
(defalias 'calendar-set-mark #[513 "\302\303\"\203! \204 \304\305!\2026 \306@!\210C\244A\211\2026 \211B\211G TV\2033 \233\307\241\210\310\311!\207" [calendar-mark-ring mark-ring-max calendar-cursor-to-date t error "No mark set in this buffer" calendar-goto-date nil message "Mark set"] 6 (#$ . 68465) (list current-prefix-arg last-nonmenu-event)])
#@60 Exchange the current cursor position with the marked date.
(defalias 'calendar-exchange-point-and-mark #[0 "@\301\302!\204 \303\304!\202 \211AB\305!\207" [calendar-mark-ring calendar-cursor-to-date t error "No mark set in this buffer" calendar-goto-date] 4 (#$ . 69050) nil])
#@66 Count the number of days (inclusive) between point and the mark.
(defalias 'calendar-count-days-region #[0 "\301\302!\211\3038\262\304\305U\203 \306\307!\202P\305V\203\212 S\262\310\211\211@\262\211A@\262\3038\262\311S_\\\303V\203w \211\312\313_\\\314\245Z\262\211\305W\203X \315!S\262\211\313\246\305U\205n \211\316\246\305U?\206n \211\317\246\305U\262\203w \211T\262\266\204\320_\313\245\316\245[\317\245%\202P\315T!\262\321\211\211@\262\211A@\262\3038\262\311S_\\\303V\203\347 \211\312\313_\\\314\245Z\262\211\305W\203\310 \315!S\262\211\313\246\305U\205\336 \211\316\246\305U?\206\336 \211\317\246\305U\262\203\347 \211T\262\266\204\320_\313\245\316\245[\317\245\322\211\211@\262\211A@\262\3038\262\311S_\\\303V\203L\211\312\313_\\\314\245Z\262\211\305W\203-\315!S\262\211\313\246\305U\205C\211\316\246\305U?\206C\211\317\246\305U\262\203L\211T\262\266\204&\266\203@\206Z\323\324!\211\3038\262\304\305U\203m\306\307!\202\247\305V\203\341S\262\310\211\211@\262\211A@\262\3038\262\311S_\\\303V\203\316\211\312\313_\\\314\245Z\262\211\305W\203\257\315!S\262\211\313\246\305U\205\305\211\316\246\305U?\206\305\211\317\246\305U\262\203\316\211T\262\266\204\320_\313\245\316\245[\317\245%\202\247\315T!\262\321\211\211@\262\211A@\262\3038\262\311S_\\\303V\203>\211\312\313_\\\314\245Z\262\211\305W\203 \315!S\262\211\313\246\305U\2055\211\316\246\305U?\2065\211\317\246\305U\262\203>\211T\262\266\204\320_\313\245\316\245[\317\245\322\211\211@\262\211A@\262\3038\262\311S_\\\303V\203\243\211\312\313_\\\314\245Z\262\211\305W\203\204\315!S\262\211\313\246\305U\205\232\211\316\246\305U?\206\232\211\317\246\305U\262\203\243\211T\262\266\204&\266\203Z\211\305V\203\264\211\202\266\211[T\325\326\211\327V\203\304\330\202\305\331#\207" [calendar-mark-ring calendar-cursor-to-date t 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) error "No mark set in this buffer" message "Region has %d day%s (inclusive)" 1 "s" ""] 19 (#$ . 69339) nil])
#@18 Not implemented.
(defalias 'calendar-not-implemented #[0 "\300\301\302\303 !\"\207" [error "%s not available in the calendar" global-key-binding this-command-keys] 4 (#$ . 71490) nil])
#@303 Return an object read from the minibuffer.
Prompt with the string PROMPT and use the function ACCEPTABLE to decide
if entered item is acceptable. If non-nil, optional third arg
INITIAL-CONTENTS is a string to insert in the minibuffer before reading.
(fn PROMPT ACCEPTABLE &optional INITIAL-CONTENTS)
(defalias 'calendar-read #[770 "\300\"!\204 \300\"\262\202 \211\207" [read-minibuffer] 7 (#$ . 71682)])
#@60 Return non-nil if SYMBOL has been customized.
(fn SYMBOL)
(defalias 'calendar-customized-p #[257 "\300!\205 \211\301N\211\205 \302@!\303!\232?\262\207" [default-boundp standard-value eval default-value] 5 (#$ . 72103)])
#@173 From sequence FULL, return a vector of abbreviations.
Each abbreviation is no longer than MAXLEN (default `calendar-abbrev-length')
characters.
(fn FULL &optional MAXLEN)
(defalias 'calendar-abbrev-construct #[513 "\211C\211\242\204 \211\240\210\301\302\303\304\305\306\307\302!\310\"\311\312%\"\"\207" [calendar-abbrev-length apply vector mapcar make-byte-code 257 "\301\302\300\242G^#\207" vconcat [substring 0] 6 "\n\n(fn F)"] 12 (#$ . 72337)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \210\300\316\302\303\317DD\320\306\307\310\311\312\321\314\322& \210\300\323\302\303\324DD\325\306\307\310\311\326\327\312\330\314\331\332\333&\210\300\334\302\303\335DD\336\306\307\310\311\326\337\312\340\314\341\332\342&\210\300\343\302\303\344DD\345\306\307\310\311\312\346\314\347& \210\300\350\302\303\351DD\352\306\307\326\353\314\354\332\333& \207" [custom-declare-variable calendar-day-name-array funcall function #[0 "\300\207" [["Sunday" "Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday"]] 1] "Array of capitalized strings giving, in order from Sunday, the day names.\nIf you change this without using customize after the calendar has loaded,\nthen you may also want to change `calendar-day-abbrev-array'\nand `calendar-day-header-array'." :group calendar :initialize custom-initialize-default :set #[514 "\304\301!\304\302!\304\303!L\210\204 \305!\204! \306\302!\203! \211\2060 \307 \211\232\2060 \310 \207" [calendar-day-name-array calendar-day-abbrev-array cal-html-day-abbrev-array calendar-day-header-array calendar-customized-p calendar-abbrev-construct boundp calendar-day-header-construct calendar-redraw] 8 "\n\n(fn SYMBOL VALUE)"] :type (vector (string :tag "Sunday") (string :tag "Monday") (string :tag "Tuesday") (string :tag "Wednesday") (string :tag "Thursday") (string :tag "Friday") (string :tag "Saturday")) calendar-abbrev-length #[0 "\300\207" [3] 1] "Default length of abbreviations to use for day and month names.\nIf you change this without using customize after the calendar has loaded,\nthen you may also want to change `calendar-day-abbrev-array' and\n`calendar-month-abbrev-array'." #[514 "\306\301!\306\303!\306\304!\306\305!L\210\204 \307!\204 \307\n!\204, \310\304!\203, \211\206;
\311 \211\232\206; \312 \207" [calendar-day-name-array calendar-day-abbrev-array calendar-month-name-array calendar-month-abbrev-array cal-html-day-abbrev-array calendar-day-header-array calendar-customized-p calendar-abbrev-construct boundp calendar-day-header-construct calendar-redraw] 9 "\n\n(fn SYMBOL VALUE)"] integer calendar-day-abbrev-array #[0 "\301!\207" [calendar-day-name-array calendar-abbrev-construct] 2] "Array of capitalized strings giving the abbreviated day names.\nThe order should be the same as that of the full names specified\nin `calendar-day-name-array'. These abbreviations may be used\ninstead of the full names in the diary file. Do not include a\ntrailing `.' in the strings specified in this variable, though\nyou may use such in the diary file. By default, each string is\nthe first `calendar-abbrev-length' characters of the corresponding\nfull name." :set-after (calendar-abbrev-length calendar-day-name-array) #[514 "\303\301!\303\302!L\210\204 \304\301!\203 \211\206% \n\305 \211\232\206% \306 \207" [calendar-day-abbrev-array cal-html-day-abbrev-array calendar-day-header-array calendar-customized-p boundp calendar-day-header-construct calendar-redraw] 7 "\n\n(fn SYMBOL VALUE)"] (vector (string :tag "Sun") (string :tag "Mon") (string :tag "Tue") (string :tag "Wed") (string :tag "Thu") (string :tag "Fri") (string :tag "Sat")) :version "24.1" calendar-day-header-array #[0 "\300 \207" [calendar-day-header-construct] 1] "Array of strings to use for the headers of the calendar's day columns.\nThe order should be the same as in `calendar-day-name-array'.\nIn use, the calendar truncates elements to no more than\n`calendar-day-header-width' columns wide.\nEmacs constructs the default from either `calendar-day-name-array'\n(if `calendar-day-header-width' is more than `calendar-abbrev-length'),\nor from `calendar-day-abbrev-array' (assuming that the abbreviated\nname are more likely to be unique when truncated)." (calendar-day-header-width calendar-abbrev-length calendar-day-name-array calendar-day-abbrev-array) #[514 "L\232\206\n \301 \207" [calendar-day-header-array calendar-redraw] 5 "\n\n(fn SYMBOL VALUE)"] (vector (string :tag "Su") (string :tag "Mo") (string :tag "Tu") (string :tag "We") (string :tag "Th") (string :tag "Fr") (string :tag "Sa")) "24.4" calendar-month-name-array #[0 "\300\207" [["January" "February" "March" "April" "May" "June" "July" "August" "September" "October" "November" "December"]] 1] "Array of capitalized strings giving, in order, the month names.\nIf you change this without using customize after the calendar has loaded,\nthen you may also want to change `calendar-month-abbrev-array'." #[514 "\302\301!L\210\211\206 \303!\211\207" [calendar-month-name-array calendar-month-abbrev-array calendar-customized-p calendar-abbrev-construct] 5 "\n\n(fn SYMBOL VALUE)"] (vector (string :tag "January") (string :tag "February") (string :tag "March") (string :tag "April") (string :tag "May") (string :tag "June") (string :tag "July") (string :tag "August") (string :tag "September") (string :tag "October") (string :tag "November") (string :tag "December")) calendar-month-abbrev-array #[0 "\301!\207" [calendar-month-name-array calendar-abbrev-construct] 2] "Array of capitalized strings giving the abbreviated month names.\nThe order should be the same as that of the full names specified\nin `calendar-month-name-array'. These abbreviations are used in\nthe calendar menu entries, and can also be used in the diary\nfile. Do not include a trailing `.' in the strings specified in\nthis variable, though you may use such in the diary file. By\ndefault, each string is the first `calendar-abbrev-length'\ncharacters of the corresponding full name." (calendar-abbrev-length calendar-month-name-array) (vector (string :tag "Jan") (string :tag "Feb") (string :tag "Mar") (string :tag "Apr") (string :tag "May") (string :tag "Jun") (string :tag "Jul") (string :tag "Aug") (string :tag "Sep") (string :tag "Oct") (string :tag "Nov") (string :tag "Dec"))] 16)
#@399 Return an association list corresponding to SEQUENCE.
Associates each element of SEQUENCE with an incremented integer,
starting from START-INDEX (default 1). Applies the function FILTER,
if provided, to each key in the alist. Repeats the process, with
indices starting from START-INDEX each time, for any remaining
arguments SEQUENCES.
(fn SEQUENCE &optional START-INDEX FILTER &rest SEQUENCES)
(defalias 'calendar-make-alist #[897 "C\211\242\204 \211\300\240\210\301C\301C\302\303\304\305\306\307 $\310\"\311\312%\313 C\"\"\210\314\242!\266\202\207" [1 nil mapc make-byte-code 257 "\302\300\242\240\210\304\305\306\307\310\311\301\302\303#\312\"\313\314%\"\207" vconcat vector [mapc make-byte-code 257 "\302\300\203 \300!\202\f \301\242B\302\242B\240\210\301\211\242T\240\207" vconcat vector [] 4 "\n\n(fn ELEM)"] 10 "\n\n(fn SEQ)" append reverse] 17 (#$ . 78689)])
#@234 Prompt for Gregorian date. Return a list (month day year).
If optional NODAY is t, does not ask for day, but just returns
(month 1 year); if NODAY is any other non-nil value the value
returned is (month year).
(fn &optional NODAY)
(defalias 'calendar-read-date #[256 "\302\303\304\305\306 \3078\262!#\310\311\312\313\314\315\316\317\"\"\317\310$\320\321\"\310#A\211\307U\203[ \211\211\322W\203: \323!S\262\211\324\246\322U\205P \211\325\246\322U?\206P \211\326\246\322U\262\203[ \327\266\202\202a \330SH\266\202\203x \310=\203r \321E\202\216 D\202\216 \302\331\332\"\333\334\335\336\337!\340\"\341\342%\"E)\207" [calendar-month-name-array completion-ignore-case calendar-read "Year (>0): " #[257 "\211\300V\207" [0] 3 "\n\n(fn X)"] number-to-string calendar-current-date 2 t assoc-string completing-read "Month name: " mapcar list append nil calendar-make-alist 1 0 abs 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] format "Day (1-%d): " make-byte-code 257 "\301W\205 \211\300X\207" vconcat vector [0] 3 "\n\n(fn X)"] 14 (#$ . 79583)])
#@227 The number of months difference between MON1, YR1 and MON2, YR2.
The result is positive if the second date is later than the first.
Negative years are interpreted as years BC; -1 being 1 BC, and so on.
(fn MON1 YR1 MON2 YR2)
(defalias 'calendar-interval #[1028 "\300W\203\n T\262\211\300W\203 \211T\262\301Z_Z\\\207" [0 12] 7 (#$ . 80659)])
#@505 Return a string with the name of the day of the week of DATE.
DATE should be a list in the format (MONTH DAY YEAR), unless the
optional argument ABSOLUTE is non-nil, in which case DATE should
be an integer in the range 0 to 6 corresponding to the day of the
week. Day names are taken from the variable `calendar-day-name-array',
unless the optional argument ABBREV is non-nil:
`header' means to use `calendar-day-header-array';
t to use `calendar-day-abbrev-array'.
(fn DATE &optional ABBREV ABSOLUTE)
(defalias 'calendar-day-name #[769 "\303=\203\n \202 \203 \202 \n\203 \202 \304!H\207" [calendar-day-header-array calendar-day-abbrev-array calendar-day-name-array header calendar-day-of-week] 6 (#$ . 81017)])
#@284 Return a string with the name of month number MONTH.
Months are numbered from one. Month names are taken from the
variable `calendar-month-name-array', unless the optional
argument ABBREV is non-nil, in which case
`calendar-month-abbrev-array' is used.
(fn MONTH &optional ABBREV)
(defalias 'calendar-month-name #[513 "\211\203 \202 SH\207" [calendar-month-abbrev-array calendar-month-name-array] 4 (#$ . 81750)])
#@197 Return the day-of-the-week index of DATE, 0 for Sunday, 1 for Monday, etc.
DATE is a list of the form (month day year). A negative year is
interpreted as BC; -1 being 1 BC, and so on.
(fn DATE)
(defalias 'calendar-day-of-week #[257 "\300\211\3018\262\302\303U\203 \304\305!\202O\303V\203\211 S\262\306\211\211@\262\211A@\262\3018\262\307S_\\\301V\203v \211\310\311_\\\312\245Z\262\211\303W\203W \313!S\262\211\311\246\303U\205m \211\314\246\303U?\206m \211\315\246\303U\262\203v \211T\262\266\204\316_\311\245\314\245[\315\245%\202O\313T!\262\317\211\211@\262\211A@\262\3018\262\307S_\\\301V\203\346 \211\310\311_\\\312\245Z\262\211\303W\203\307 \313!S\262\211\311\246\303U\205\335 \211\314\246\303U?\206\335 \211\315\246\303U\262\203\346 \211T\262\266\204\316_\311\245\314\245[\315\245\320\211\211@\262\211A@\262\3018\262\307S_\\\301V\203K\211\310\311_\\\312\245Z\262\211\303W\203,\313!S\262\211\311\246\303U\205B\211\314\246\303U?\206B\211\315\246\303U\262\203K\211T\262\266\204&\266\203\321\"\207" [mod 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 7] 20 (#$ . 82178)])
#@68 Return the index (0 for Sunday, etc.) of the last day of the week.
(defalias 'calendar-week-end-day #[0 "\301\302\\\303\"\207" [calendar-week-start-day mod 6 7] 3 (#$ . 83378)])
#@64 Delete all diary/holiday marks/highlighting from the calendar.
(defalias 'calendar-unmark #[0 "\303\211r\nq\210\304\305\306ed\"\")\207" [calendar-mark-holidays-flag calendar-mark-diary-entries-flag calendar-buffer nil mapc delete-overlay overlays-in] 6 (#$ . 83563) nil])
#@83 Return non-nil if DATE is valid and is visible in the calendar window.
(fn DATE)
(defalias 'calendar-date-is-visible-p #[257 "\302!\205 \303\304 \211@\262\3058\262$!\305W\207" [displayed-month displayed-year calendar-date-is-valid-p abs calendar-interval 2] 9 (#$ . 83843)])
#@519 Return non-nil if MONTH, DAY is visible in the calendar window.
MONTH and DAY are in some non-Gregorian calendar system. The
functions TOABS and FROMABS convert that system to and from
absolute, respectively. SWITCH is a function that takes a single
argument (a local month number). It applies when the local year
changes across the calendar window, and returns non-nil if the
specified month should be associated with the higher year.
Returns the corresponding Gregorian date.
(fn MONTH DAY TOABS FROMABS SWITCH)
(defalias 'calendar-nongregorian-visible-p #[1285 " \302\303\304W\203 T\262\305_\306\211$\262\307\"T\262\211\245\262\211\304W\2037 \310V\2037 S\262\310W\203A S\262\266\310E\211\3118\262\303\304U\203Z \312\313!\202\224\304V\203\316 S\262\305\211\211@\262\211A@\262\3118\262\314S_\\\311V\203\273 \211\315\316_\\\317\245Z\262\211\304W\203\234 \320!S\262\211\316\246\304U\205\262 \211\321\246\304U?\206\262 \211\322\246\304U\262\203\273 \211T\262\266\204\323_\316\245\321\245[\322\245%\202\224\320T!\262\324\211\211@\262\211A@\262\3118\262\314S_\\\311V\203+\211\315\316_\\\317\245Z\262\211\304W\203\f\320!S\262\211\316\246\304U\205\"\211\321\246\304U?\206\"\211\322\246\304U\262\203+\211T\262\266\204\323_\316\245\321\245[\322\245\325\211\211@\262\211A@\262\3118\262\314S_\\\311V\203\220\211\315\316_\\\317\245Z\262\211\304W\203q\320!S\262\211\316\246\304U\205\207\211\321\246\304U?\206\207\211\322\246\304U\262\203\220\211T\262\266\204&\266\203\302\303\304W\203\242T\262\305_\306\310$\262\307\"T\262\211\245\262\211\304W\203\311\310V\203\311S\262\310W\203\323S\262\266\211\311U\203\f\211\211\304W\203\353\320!S\262\211\316\246\304U\205\211\321\246\304U?\206\211\322\246\304U\262\203\f\326\266\202\202\327SH\266\202E\211\3118\262\303\304U\203'\312\313!\202a\304V\203\233S\262\305\211\211@\262\211A@\262\3118\262\314S_\\\311V\203\210\211\315\316_\\\317\245Z\262\211\304W\203i\320!S\262\211\316\246\304U\205\211\321\246\304U?\206\211\322\246\304U\262\203\210\211T\262\266\204\323_\316\245\321\245[\322\245%\202a\320T!\262\324\211\211@\262\211A@\262\3118\262\314S_\\\311V\203\370\211\315\316_\\\317\245Z\262\211\304W\203\331\320!S\262\211\316\246\304U\205\357\211\321\246\304U?\206\357\211\322\246\304U\262\203\370\211T\262\266\204\323_\316\245\321\245[\322\245\325\211\211@\262\211A@\262\3118\262\314S_\\\311V\203]\211\315\316_\\\317\245Z\262\211\304W\203>\320!S\262\211\316\246\304U\205T\211\321\246\304U?\206T\211\322\246\304U\262\203]\211T\262\266\204&\266\203!!\3118\262\3118\262\n!\203\203\211\202\204\330E!!\331!\205\226\211\207" [displayed-month displayed-year 12 nil 0 + -1 mod 1 2 user-error "There was no year zero" 31 23 4 10 abs 100 400 365 - (12 31 -1) 29 [31 28 31 30 31 30 31 31 30 31 30 31] calendar-gregorian-from-absolute calendar-date-is-visible-p] 28 (#$ . 84134)])
#@46 Return t if DATE is a valid date.
(fn DATE)
(defalias 'calendar-date-is-valid-p #[257 "\211\211@\262\211A@\262\3008\262\301X\205o \302X\205o \205o \211\205o \301X\205o \300U\203b \211\211\303W\203A \304!S\262\211\305\246\303U\205W \211\306\246\303U?\206W \211\307\246\303U\262\203b \310\266\202\202h \311SH\266\202X\205o \301X\207" [2 1 12 0 abs 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31]] 10 (#$ . 87205)])
#@65 Return t if the DATE1 and DATE2 are the same.
(fn DATE1 DATE2)
(defalias 'calendar-date-equal #[514 "\211@\262\211@\262U\205+ \211A@\262\211A@\262U\205+ \3008\262\3008\262U\207" [2] 6 (#$ . 87647)])
#@152 Return a temporary face based on the attributes in ATTRLIST.
ATTRLIST is a list with elements of the form :face face :foreground color.
(fn ATTRLIST)
(defalias 'calendar-make-temp-face #[257 "\211\300\211\211\203+ @\301=\203 \302A@!\262AA\262\202 @B\262A\262\202 \303!\2044 \304\262\204< \202[ \305\306\307\310\311#P!\262\312!\210\313\"\210\314\315\300\237$\210\211\207" [nil :face intern-soft facep default make-symbol ":caltemp" mapconcat #[257 "\2119\203 \300!\207\211\247\203 \301!\207\207" [symbol-name number-to-string] 3 "\n\n(fn SYM)"] "" make-face copy-face apply set-face-attribute] 11 (#$ . 87868)])
#@191 Mark DATE in the calendar window with MARK.
MARK is a single-character string, a list of face attributes/values,
or a face. MARK defaults to `diary-entry-marker'.
(fn DATE &optional MARK)
(defalias 'calendar-mark-visible-date #[513 "\302!\205v rq\210\212\303!\210\211;\203 \211G\304U\203 \211\206: \211<\203/ \211G\305V\203/ \211\206: \306!\2039 \211\206: \262\306!\203O \307\310`S`T\"\311#\202u \211;\203i \211G\304U\203i \307\310`T\312`\\\"\313#\202u \307\310`S`T\"\311\314!#*\207" [calendar-buffer diary-entry-marker calendar-date-is-valid-p calendar-cursor-to-visible-date 1 0 facep overlay-put make-overlay face 2 display calendar-make-temp-face] 7 (#$ . 88518)])
#@144 Replace the date under the cursor in the calendar window with asterisks.
You might want to add this function to `calendar-today-visible-hook'.
(defalias 'calendar-star-date #[0 "\3002# \301`!\211\205 \211@\302\303\"\203 \304\300\305\"\210A\266\202\202 \2620?\205N \306`S`\"\307\310\311#\210\307\303\305#\210\307\306``T\"\211\262\310\312\311!#\210\307\303\305#\262\207" [found overlays-at overlay-get calendar-star throw t make-overlay overlay-put display "*" copy-sequence] 6 (#$ . 89208)])
#@176 Mark the date under the cursor in the calendar window.
The date is marked with `calendar-today-marker'. You might want to add
this function to `calendar-today-visible-hook'.
(defalias 'calendar-mark-today #[0 "\301\302 \"\207" [calendar-today-marker calendar-mark-visible-date calendar-cursor-to-date] 3 (#$ . 89717)])
#@121 Return t if DATE1 is before DATE2, nil otherwise.
The actual dates are in the car of DATE1 and DATE2.
(fn DATE1 DATE2)
(defalias 'calendar-date-compare #[514 "@\211\3008\262\301\302U\203 \303\304!\202O\302V\203\211 S\262\305\211\211@\262\211A@\262\3008\262\306S_\\\300V\203v \211\307\310_\\\311\245Z\262\211\302W\203W \312!S\262\211\310\246\302U\205m \211\313\246\302U?\206m \211\314\246\302U\262\203v \211T\262\266\204\315_\310\245\313\245[\314\245%\202O\312T!\262\316\211\211@\262\211A@\262\3008\262\306S_\\\300V\203\346 \211\307\310_\\\311\245Z\262\211\302W\203\307 \312!S\262\211\310\246\302U\205\335 \211\313\246\302U?\206\335 \211\314\246\302U\262\203\346 \211T\262\266\204\315_\310\245\313\245[\314\245\317\211\211@\262\211A@\262\3008\262\306S_\\\300V\203K\211\307\310_\\\311\245Z\262\211\302W\203,\312!S\262\211\310\246\302U\205B\211\313\246\302U?\206B\211\314\246\302U\262\203K\211T\262\266\204&\266\203@\211\3008\262\301\302U\203f\303\304!\202\240\302V\203\332S\262\305\211\211@\262\211A@\262\3008\262\306S_\\\300V\203\307\211\307\310_\\\311\245Z\262\211\302W\203\250\312!S\262\211\310\246\302U\205\276\211\313\246\302U?\206\276\211\314\246\302U\262\203\307\211T\262\266\204\315_\310\245\313\245[\314\245%\202\240\312T!\262\316\211\211@\262\211A@\262\3008\262\306S_\\\300V\2037\211\307\310_\\\311\245Z\262\211\302W\203\312!S\262\211\310\246\302U\205.\211\313\246\302U?\206.\211\314\246\302U\262\2037\211T\262\266\204\315_\310\245\313\245[\314\245\317\211\211@\262\211A@\262\3008\262\306S_\\\300V\203\234\211\307\310_\\\311\245Z\262\211\302W\203}\312!S\262\211\310\246\302U\205\223\211\313\246\302U?\206\223\211\314\246\302U\262\203\234\211T\262\266\204&\266\203W\207" [2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1)] 21 (#$ . 90045)])
#@390 A string form of DATE, driven by the variable `calendar-date-display-form'.
An optional parameter ABBREVIATE, when non-nil, causes the month
and day names to be abbreviated as specified by
`calendar-month-abbrev-array' and `calendar-day-abbrev-array',
respectively. An optional parameter NODAYNAME, when t, omits the
name of the day of the week.
(fn DATE &optional ABBREVIATE NODAYNAME)
(defalias 'calendar-date-string #[769 "\211@\262?\205 \306\"\307\"\310\211A@\262!\310!\310\3118\262! \312\313
\314#-\207" [dayname monthname day month year calendar-date-display-form calendar-day-name calendar-month-name number-to-string 2 mapconcat eval ""] 8 (#$ . 92007)])
#@447 Return the absolute date of the DAYNAME on or before absolute DATE.
DAYNAME=0 means Sunday, DAYNAME=1 means Monday, and so on.
Note: Applying this function to d+6 gives us the DAYNAME on or after
an absolute day d. Similarly, applying it to d+3 gives the DAYNAME
nearest to absolute date d, applying it to d-1 gives the DAYNAME
previous to absolute date d, and applying it to d+7 gives the DAYNAME
following absolute date d.
(fn DAYNAME DATE)
(defalias 'calendar-dayname-on-or-before #[514 "\211Z\300\246Z\207" [7] 5 (#$ . 92697)])
#@351 Absolute date of the Nth DAYNAME after/before MONTH YEAR DAY.
A DAYNAME of 0 means Sunday, 1 means Monday, and so on.
If N>0, return the Nth DAYNAME after MONTH DAY, YEAR (inclusive).
If N<0, return the Nth DAYNAME before MONTH DAY, YEAR (inclusive).
DAY defaults to 1 if N>0, and MONTH's last day otherwise.
(fn N DAYNAME MONTH YEAR &optional DAY)
(defalias 'calendar-nth-named-absday #[1284 "\300V\203j\301S_\302\303\206 \304E\211\3058\262\306\300U\203* \307\310!\202d\300V\203\236 S\262\311\211\211@\262\211A@\262\3058\262\312S_\\\305V\203\213 \211\313\314_\\\315\245Z\262\211\300W\203l \316!S\262\211\314\246\300U\205\202 \211\317\246\300U?\206\202 \211\320\246\300U\262\203\213 \211T\262\266\204\321_\314\245\317\245[\320\245%\202d\316T!\262\322\211\211@\262\211A@\262\3058\262\312S_\\\305V\203\373 \211\313\314_\\\315\245Z\262\211\300W\203\334 \316!S\262\211\314\246\300U\205\362 \211\317\246\300U?\206\362 \211\320\246\300U\262\203\373 \211T\262\266\204\321_\314\245\317\245[\320\245\323\211\211@\262\211A@\262\3058\262\312S_\\\305V\203`\211\313\314_\\\315\245Z\262\211\300W\203A\316!S\262\211\314\246\300U\205W\211\317\246\300U?\206W\211\320\246\300U\262\203`\211T\262\266\204&\266\203\\\"\\\207\301T_\302\206\263\305U\203\255\211\211\300W\203\214\316!S\262\211\314\246\300U\205\242\211\317\246\300U?\206\242\211\320\246\300U\262\203\255\324\266\202\202\263\325SH\266\202E\211\3058\262\306\300U\203\311\307\310!\202\300V\203=S\262\311\211\211@\262\211A@\262\3058\262\312S_\\\305V\203*\211\313\314_\\\315\245Z\262\211\300W\203 \316!S\262\211\314\246\300U\205!\211\317\246\300U?\206!\211\320\246\300U\262\203*\211T\262\266\204\321_\314\245\317\245[\320\245%\202\316T!\262\322\211\211@\262\211A@\262\3058\262\312S_\\\305V\203\232\211\313\314_\\\315\245Z\262\211\300W\203{\316!S\262\211\314\246\300U\205\221\211\317\246\300U?\206\221\211\320\246\300U\262\203\232\211T\262\266\204\321_\314\245\317\245[\320\245\323\211\211@\262\211A@\262\3058\262\312S_\\\305V\203\377\211\313\314_\\\315\245Z\262\211\300W\203\340\316!S\262\211\314\246\300U\205\366\211\317\246\300U?\206\366\211\320\246\300U\262\203\377\211T\262\266\204&\266\203\"\\\207" [0 7 calendar-dayname-on-or-before 6 1 2 nil user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 29 [31 28 31 30 31 30 31 31 30 31 30 31]] 27 (#$ . 93241)])
#@159 Date of the Nth DAYNAME after/before MONTH YEAR DAY.
Like `calendar-nth-named-absday', but returns a Gregorian date.
(fn N DAYNAME MONTH YEAR &optional DAY)
(defalias 'calendar-nth-named-day #[1284 "\300\301%!\207" [calendar-gregorian-from-absolute calendar-nth-named-absday] 12 (#$ . 95773)])
#@117 String of day number of year of Gregorian DATE.
Defaults to today's date if DATE is not given.
(fn &optional DATE)
(defalias 'calendar-day-of-year-string #[256 "\211\206 \300 \211\3018\262\211\211@\262\211A@\262\3018\262\302S_\\\301V\203b \211\303\304_\\\305\245Z\262\211\306W\203C \307!S\262\211\304\246\306U\205Y \211\310\246\306U?\206Y \211\311\246\306U\262\203b \211T\262\266\204\312\302E\211\211@\262\211A@\262\3018\262\302S_\\\301V\203\275 \211\303\304_\\\305\245Z\262\211\306W\203\236 \307!S\262\211\304\246\306U\205\264 \211\310\246\306U?\206\264 \211\311\246\306U\262\203\275 \211T\262\266\204Z\313\314\211\315U\203\320 \316\202\321 \317%\207" [calendar-current-date 2 31 23 4 10 0 abs 100 400 12 format "Day %d of %d; %d day%s remaining in the year" 1 "" "s"] 13 (#$ . 96085)])
#@147 Return a list of strings giving Gregorian DATE in other calendars.
DATE is (month day year). Calendars that do not apply are omitted.
(fn DATE)
(defalias 'calendar-other-dates #[257 "\300\301\300\302!\303\304\305!\"\303\306\307!\"\303\310\311 !\"\303\312 \211\3138\262\300\314U\2032 \315\316!\202l\314V\203\246 S\262\317\211\211@\262\211A@\262\3138\262\320S_\\\313V\203\223 \211\321\322_\\\323\245Z\262\211\314W\203t \324!S\262\211\322\246\314U\205\212 \211\325\246\314U?\206\212 \211\326\246\314U\262\203\223 \211T\262\266\204\327_\322\245\325\245[\326\245%\202l\324T!\262\330\211\211@\262\211A@\262\3138\262\320S_\\\313V\203\211\321\322_\\\323\245Z\262\211\314W\203\344 \324!S\262\211\322\246\314U\205\372 \211\325\246\314U?\206\372 \211\326\246\314U\262\203\211T\262\266\204\327_\322\245\325\245[\326\245\331\211\211@\262\211A@\262\3138\262\320S_\\\313V\203h\211\321\322_\\\323\245Z\262\211\314W\203I\324!S\262\211\322\246\314U\205_\211\325\246\314U?\206_\211\326\246\314U\262\203h\211T\262\266\204&\266\203\"\303\332\333 !\"\303\334\335\f!\"\336 !\211\262 \337\230?\205\217\303\340 \"\341\f!\211\262\f\337\230?\205\241\303\342\f\"\303\343\344!\"\345!\211\262\337\230?\205\272\303\346\"\347!\211\262\337\230?\205\314\303\350\"\351!\211\262\337\230?\205\336\303\352\"\303\353\354!\"\257\"\207" [nil delq calendar-day-of-year-string format "ISO date: %s" calendar-iso-date-string "Julian date: %s" calendar-julian-date-string "Astronomical (Julian) day number (at noon UTC): %s.0" calendar-astro-date-string "Fixed (RD) date: %s" 2 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) "Hebrew date (before sunset): %s" calendar-hebrew-date-string "Persian date: %s" calendar-persian-date-string calendar-islamic-date-string "" "Islamic date (before sunset): %s" calendar-bahai-date-string "Bahá’í date: %s" "Chinese date: %s" calendar-chinese-date-string calendar-coptic-date-string "Coptic date: %s" calendar-ethiopic-date-string "Ethiopic date: %s" calendar-french-date-string "French Revolutionary date: %s" "Mayan date: %s" calendar-mayan-date-string] 28 (#$ . 96924)])
#@140 Show dates on other calendars for date under the cursor.
If called by a mouse-event, pops up a menu with the result.
(fn &optional EVENT)
(defalias 'calendar-print-other-dates #[256 "\303\304\"\305\306\307!\"\310!\311\312!\203: \313 \203+ \314\315C\316\317\"\"D\"\202. \320\321!\211\262\205h \322!\202h \323!q\210\324\325!\204H \325 \210\311\304\326 \210\327!\210\330!\210\331\332\333#c\210eb\210\334\311!\210\304\211\207" [calendar-other-calendars-buffer buffer-read-only buffer-undo-list calendar-cursor-to-date t format "%s (Gregorian)" calendar-date-string calendar-other-dates nil mouse-event-p display-popup-menus-p x-popup-menu append mapcar list error "Popup menus are not available on this system" call-interactively get-buffer-create derived-mode-p special-mode erase-buffer display-buffer calendar-set-mode-line mapconcat identity "\n" set-buffer-modified-p] 13 (#$ . 99158) (list last-nonmenu-event)])
#@75 Show day number in year/days remaining in year for date under the cursor.
(defalias 'calendar-print-day-of-year #[0 "\300\301\302\303\304!!\"\207" [message "%s" calendar-day-of-year-string calendar-cursor-to-date t] 5 (#$ . 100098) nil])
#@65 Set mode line to STR, centered, surrounded by dashes.
(fn STR)
(defalias 'calendar-set-mode-line #[257 "\303 \3048@Z\211\305U\203 \204 \306\307\310!\206 \311!\262 \2032 \312\313\314C\315\316Z#\317BBB\2028 \314C\315#\211\207" [window-system buffer-file-name mode-line-format window-edges 2 10 string-to-number getenv "COLUMNS" "80" "-" mode-line-modified calendar-string-spread 45 6 ("---")] 10 (#$ . 100342)])
(byte-code "\300\301!\210\302\303!\207" [run-hooks calendar-load-hook provide calendar] 2)
Mini Shell