Current File : //usr/local/share/emacs/27.2/lisp/calendar/diary-lib.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" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\305#\210\306\307\304\310\311\312\313\301&\210\314\315\316\317\320DD\321\322\323\313\307&\210\314\324\316\317\325DD\326\322\327\313\307&\210\330\331\332\333\334\335\313\336&\210\330\337\340\341\334\335\313\336&\210\330\342\343\344\334\335\313\336&\210\314\345\316\317\346DD\347\322\350\313\307&\210\314\351\316\317\352DD\353\322\354\313\307&\210\314\355\316\317\356DD\357\322\327\313\307&\210\314\360\316\317\361DD\362\322\317\313\307&\210\314\363\316\317\364DD\365\322\323\313\307&\210\314\366\316\317\367DD\370\334\371\322\372\313\307& \210\314\373\316\317\374DD\375\334\371\322\323\313\307& \210\314\376\316\317\377DD\201@ \322\201A \313\307&\210\314\201B \316\317\201C DD\201D \322\201E \201F \201G \201H \201I \334\201J \313\307&
\210\314\201K \316\317\201L DD\201M \322\201A \201N \201O \313\307& \210\314\201P \316\317\201Q DD\201R \322\201A \201N \201S \313\307& \210\314\201T \316\317\201U DD\201V \322\201A \201N \201W \313\307& \210\314\201X \316\317\201Y DD\201Z \322\201A \201N \201[ \313\307& \210\314\201\\ \316\317\201] DD\201^ \322\201A \313\307&\210\314\201_ \316\317\201` DD\201a \322\201b \313\307\334\201c & \210\314\201d \316\317\201e DD\201f \313\307\322\323\334\201c & \210\314\201g \316\317\201h DD\201i \313\307\322\201b \334\201c & \210\314\201j \316\317\201k DD\201l \322\201m \201n \305\313\307& \210\314\201o \316\317\201p DD\201q \322\327\313\307&\207" [require calendar load "diary-loaddefs" nil t custom-declare-group diary "Emacs diary." :prefix "diary-" :group custom-declare-variable diary-include-string funcall function #[0 "\300\207" [#1="#include"] 1 #1#] "The string indicating inclusion of another file of diary entries.\nSee the documentation for the function `diary-include-other-diary-files'." :type string diary-list-include-blanks #[0 "\300\207" [nil] 1] "If nil, do not include days with no diary entry in the list of diary entries.\nSuch days will then not be shown in the fancy diary buffer, even if they\nare holidays." boolean custom-declare-face diary-anniversary ((t :inherit font-lock-keyword-face)) "Face used for anniversaries in the fancy diary display." :version "22.1" calendar-faces diary-time ((t :inherit font-lock-variable-name-face)) "Face used for times of day in the fancy diary display." diary-button ((((type pc) (class color)) (:foreground "lightblue"))) "Face used for buttons in the fancy diary display." diary-face-attrs #[0 "\300\207" [((" *\\[foreground:\\([-a-z]+\\)\\]$" 1 :foreground string) (" *\\[background:\\([-a-z]+\\)\\]$" 1 :background string) (" *\\[width:\\([-a-z]+\\)\\]$" 1 :width symbol) (" *\\[height:\\([.0-9]+\\)\\]$" 1 :height int) (" *\\[weight:\\([-a-z]+\\)\\]$" 1 :weight symbol) (" *\\[slant:\\([-a-z]+\\)\\]$" 1 :slant symbol) (" *\\[underline:\\([-a-z]+\\)\\]$" 1 :underline stringtnil) (" *\\[overline:\\([-a-z]+\\)\\]$" 1 :overline stringtnil) (" *\\[strike-through:\\([-a-z]+\\)\\]$" 1 :strike-through stringtnil) (" *\\[inverse-video:\\([-a-z]+\\)\\]$" 1 :inverse-video tnil) (" *\\[face:\\([-0-9a-z]+\\)\\]$" 1 :face string) (" *\\[font:\\([-a-z0-9]+\\)\\]$" 1 :font string))] 1] "Alist of (REGEXP SUBEXP ATTRIBUTE TYPE) elements.\nThis is used by `diary-pull-attrs' to fontify certain diary\nelements. REGEXP is a regular expression to for, and SUBEXP is\nthe numbered sub-expression to extract. `diary-glob-file-regexp-prefix'\nis pre-pended to REGEXP for file-wide specifiers. ATTRIBUTE\nspecifies which face attribute (e.g. `:foreground') to modify, or\nthat this is a face (`:face') to apply. TYPE is the type of\nattribute being applied. Available TYPES (see `diary-attrtype-convert')\nare: `string', `symbol', `int', `tnil', `stringtnil'." (repeat (list (string :tag "Regular expression") (integer :tag "Sub-expression") (symbol :tag "Attribute (e.g. :foreground)") (choice (const string :tag "A string") (const symbol :tag "A symbol") (const int :tag "An integer") (const tnil :tag "t or nil") (const stringtnil :tag "A string, t, or nil")))) diary-glob-file-regexp-prefix #[0 "\300\207" [#2="^#"] 1 #2#] "Regular expression pre-pended to `diary-face-attrs' for file-wide specifiers." regexp diary-file-name-prefix #[0 "\300\207" [nil] 1] "Non-nil means prefix each diary entry with the name of the file defining it." diary-file-name-prefix-function #[0 "\300\207" [identity] 1] "The function that will take a diary file name and return the desired prefix." diary-sexp-entry-symbol #[0 "\300\207" [#3="%%"] 1 #3#] "The string used to indicate a sexp diary entry in `diary-file'.\nSee the documentation for the function `diary-list-sexp-entries'." diary-comment-start #[0 "\300\207" [nil] 1] "String marking the start of a comment in the diary, or nil.\nNil means there are no comments. The diary does not display\nparts of entries that are inside comments. You can use comments\nfor whatever you like, e.g. for meta-data that packages such as\n`appt.el' can use. Comments may not span multiple lines, and there\ncan be only one comment on any line.\nSee also `diary-comment-end'." "24.1" (choice (const :tag "No comment" nil) string) diary-comment-end #[0 "\300\207" [#4=""] 1 #4#] "String marking the end of a comment in the diary.\nThe empty string means comments finish at the end of a line.\nSee also `diary-comment-start'." diary-hook #[0 "\300\207" [nil] 1] "Hook run after displaying the diary.\nUsed for example by the appointment package - see `appt-activate'.\nThe variables `number' and `original-date' are dynamically bound around\nthe call." hook diary-display-function #[0 "\300\207" [diary-fancy-display] 1] "Function used to display the diary.\nThe two standard options are `diary-fancy-display' and `diary-simple-display'.\n\nWhen this function is called, the variable `diary-entries-list'\nis a list, in order by date, of all relevant diary entries in the\nform of ((MONTH DAY YEAR) STRING), where string is the diary\nentry for the given date. This can be used, for example, to\nproduce a different buffer for display (perhaps combined with\nholidays), or hard copy output." (choice (const diary-fancy-display :tag "Fancy display") (const diary-simple-display :tag "Basic display") (const :tag "No display" ignore) (function :tag "User-specified function")) :initialize custom-initialize-default :set diary-set-maybe-redraw "23.2" diary-list-entries-hook #[0 "\300\207" [nil] 1] "Hook run after diary file is culled for relevant entries.\n\nIf you add `diary-include-other-diary-files' to this hook, you\nwill probably also want to add `diary-mark-included-diary-files'\nto `diary-mark-entries-hook'. For example, to cause the fancy\ndiary buffer to be displayed with diary entries from various\nincluded files, each day's entries sorted into lexicographic\norder, add the following to your init file:\n\n (setq diary-display-function #\\='diary-fancy-display)\n (add-hook \\='diary-list-entries-hook #\\='diary-include-other-diary-files)\n (add-hook \\='diary-list-entries-hook #\\='diary-sort-entries t)\n\nNote how the sort function is placed last, so that it can sort\nthe entries included from other files.\n\nThis hook runs after `diary-nongregorian-listing-hook'. These two hooks\ndiffer only if you are using included diary files. In that case,\n`diary-nongregorian-listing-hook' runs for each file, whereas\n`diary-list-entries-hook' only runs once, for the main diary file.\nSo for example, to sort the complete list of diary entries you would\nuse the list-entries hook, whereas to process e.g. Islamic entries in\nthe main file and all included files, you would use the nongregorian hook." :options (diary-include-other-diary-files diary-sort-entries) diary-mark-entries-hook #[0 "\300\207" [nil] 1] "List of functions called after marking diary entries in the calendar.\nYou might wish to add `diary-mark-included-diary-files', in which case\nyou will probably also want to add `diary-include-other-diary-files' to\n`diary-list-entries-hook'.\n\nThis hook runs after `diary-nongregorian-marking-hook'. These two hooks\ndiffer only if you are using included diary files. In that case,\n`diary-nongregorian-marking-hook' runs for each file, whereas\n`diary-mark-entries-hook' only runs once, for the main diary file.\n\n`displayed-year' and `displayed-month' are dynamically bound when\nthis hook is called." (diary-mark-included-diary-files) diary-nongregorian-listing-hook #[0 "\300\207" [nil] 1] "List of functions called for listing diary file and included files.\nAs the files are processed for diary entries, these functions are used\nto cull relevant entries. You can use any or all of\n`diary-bahai-list-entries', `diary-hebrew-list-entries', and\n`diary-islamic-list-entries'. The documentation for these functions\ndescribes the style of such diary entries.\n\nYou can use this hook for other functions as well, if you want them to\nbe run on the main diary file and any included diary files. Otherwise,\nuse `diary-list-entries-hook', which runs only for the main diary file." (diary-bahai-list-entries diary-hebrew-list-entries diary-islamic-list-entries) diary-nongregorian-marking-hook #[0 "\300\207" [nil] 1] "List of functions called for marking diary file and included files.\nAs the files are processed for diary entries, these functions are used\nto cull relevant entries. You can use any or all of\n`diary-bahai-mark-entries', `diary-hebrew-mark-entries' and\n`diary-islamic-mark-entries'. The documentation for these functions\ndescribes the style of such diary entries.\n\nYou can use this hook for other functions as well, if you want them to\nbe run on the main diary file and any included diary files. Otherwise,\nuse `diary-mark-entries-hook', which runs only for the main diary file." (diary-bahai-mark-entries diary-hebrew-mark-entries diary-islamic-mark-entries) diary-print-entries-hook #[0 "\300\207" [lpr-buffer] 1] "Run by `diary-print-entries' after preparing a temporary diary buffer.\nThe buffer shows only the diary entries currently visible in the\ndiary buffer. The default just does the printing. Other uses\nmight include, for example, rearranging the lines into order by\nday and time, saving the buffer instead of deleting it, or\nchanging the function used to do the printing." diary-unknown-time #[0 "\300\207" [-9999] 1] "Value returned by `diary-entry-time' when no time is found.\nThe default value -9999 causes entries with no recognizable time\nto be placed before those with times; 9999 would place entries\nwith no recognizable time after those with times." integer "20.3" diary-mail-addr #[0 "\301\300!\203\n \206 \302\207" [user-mail-address boundp #4#] 2] "Email address that `diary-mail-entries' will send email to." diary-mail-days #[0 "\300\207" [7] 1] "Default number of days for `diary-mail-entries' to check." diary-remind-message #[0 "\300\207" [("Reminder: Only " (if (zerop (% days 7)) (format "%d week%s" (/ days 7) (if (= 7 days) #4# "s")) (format "%d day%s" days (if (= 1 days) #4# "s"))) " until " diary-entry)] 1] "Pseudo-pattern giving form of reminder messages in the fancy diary display.\n\nUsed by the function `diary-remind', a pseudo-pattern is a list of\nexpressions that can involve the keywords `days' (a number), `date'\n(a list of month, day, year), and `diary-entry' (a string)." sexp :risky diary-abbreviated-year-flag #[0 "\300\207" [t] 1] "Interpret a two-digit year DD in a diary entry as either 19DD or 20DD.\nThis applies to the Gregorian, Hebrew, Islamic, and Bahá’í calendars.\nWhen the current century is added to a two-digit year, if the result\nis more than 50 years in the future, the previous century is assumed.\nIf the result is more than 50 years in the past, the next century is assumed.\nIf this variable is nil, years must be written in full."] 14)
#@279 Return a replace-match template for an element of `diary-outlook-formats'.
Returns a string using match elements 1-5, where:
1 = month name, 2 = day, 3 = year, 4 = time, 5 = location; also uses
%s = message subject. BODY is the string from which the matches derive.
(fn BODY)
(defalias 'diary-outlook-format-1 #[257 "\302\303\"\302\304\"\302\305\"\30625 G\307\211W\2031 \211H\230\203) \310\306T\"\210\210\211T\262\202 \266\3110\211\203H \312\313!\313!E\311\314#\202W \315\267\202V \316\202W \317\202W \320\321P\207" [calendar-month-name-array calendar-date-style match-string 1 2 3 found 0 throw nil calendar-date-string string-to-number t #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (iso 78 european 82)) "\\3 \\1 \\2" "\\2 \\1 \\3" "\\1 \\2 \\3" "\n \\4 %s, \\5"] 10 (#$ . 12192)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable diary-outlook-formats funcall function #[0 "\300\207" [(("[ \n]*When: [[:alpha:]]+, \\([[:alpha:]]+\\) \\([0-9][0-9]*\\), \\([0-9]\\{4\\}\\),? \\(.+\\)\n\\(?:Where: \\(.+\n\\)\\)?" . diary-outlook-format-1))] 1] "Alist of regexps matching message text and replacement text.\n\nThe regexp must match the start of the message text containing an\nappointment, but need not include a leading `^'. If it matches the\ncurrent message, a diary entry is made from the corresponding\ntemplate. If the template is a string, it should be suitable for\npassing to `replace-match', and so will have occurrences of `\\D' to\nsubstitute the match for the Dth subexpression. It must also contain\na single `%s' which will be replaced with the text of the message's\nSubject field. Any other `%' characters must be doubled, so that the\ntemplate can be passed to `format'.\n\nIf the template is actually a function, it is called with the message\nbody text as argument, and may use `match-string' etc. to make a\ntemplate following the rules above." :type (alist :key-type (regexp :tag "Regexp matching time/place") :value-type (choice (string :tag "Template for entry") (function :tag "Unary function providing template"))) :version "22.1" :group diary] 10)
#@91 Set SYMBOL's value to VALUE, and redraw the diary header if necessary.
(fn SYMBOL VALUE)
(defalias 'diary-set-header #[514 "J\205 \305!\306\"\210\211\205+ \232?\205+ r\211q\210 \307=\205* \n\205( \211)\207" [diary-file major-mode diary-header-line-flag diary-header-line-format header-line-format find-buffer-visiting custom-set-default diary-mode] 7 (#$ . 14384)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317&
\207" [custom-declare-variable diary-header-line-flag funcall function #[0 "\300\207" [t] 1] "Non-nil means `diary-simple-display' will show a header line.\nThe format of the header is specified by `diary-header-line-format'." :group diary :type boolean :initialize custom-initialize-default :set diary-set-header :version "22.1"] 14)
#@64 Internal diary variable; non-nil if some diary text is hidden.
(defvar diary-selective-display nil (#$ . 15182))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317\320\321&\207" [custom-declare-variable diary-header-line-format funcall function #[0 "\300\207" [(:eval (calendar-string-spread (list (if diary-selective-display "Some text is hidden - press \"C-c C-s\" before edit/copy" "Diary")) 32 (window-width)))] 1] "Format of the header line displayed by `diary-simple-display'.\nOnly used if `diary-header-line-flag' is non-nil." :group diary :type sexp :risky t :initialize custom-initialize-default :set diary-set-header :version "23.3"] 16)
#@92 Return non-nil if the diary is being displayed.
The actual return value is a diary buffer.
(defalias 'diary-live-p #[0 "\302!\206
\205
\303 !\207" [diary-fancy-buffer diary-file get-buffer find-buffer-visiting] 2 (#$ . 15866)])
#@227 Set SYMBOL's value to VALUE, and redraw the diary if necessary.
Redraws the diary if it is being displayed (note this is not the same as
just visiting the `diary-file'), and SYMBOL's value is to be changed.
(fn SYMBOL VALUE)
(defalias 'diary-set-maybe-redraw #[514 "J\300\"\210\232?\205 \301 \205 \302 \207" [custom-set-default diary-live-p diary] 6 (#$ . 16105)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable diary-number-of-entries funcall function #[0 "\300\207" [1] 1] "Specifies how many days of diary entries are to be displayed initially.\nThis variable affects the diary display when the command \\[diary] is\nused, or if the value of the variable `calendar-view-diary-initially-flag'\nis non-nil. For example, if the default value 1 is used, then only the\ncurrent day's diary entries will be displayed. If the value 2 is used,\nthen both the current day's and the next day's entries will be displayed.\n\nThe value can also be a vector such as [0 2 2 2 2 4 1]; this value says\nto display no diary entries on Sunday, the entries for the current date\nand the day after on Monday through Thursday, Friday through Monday's\nentries on Friday, and only Saturday's entries on Saturday.\n\nThis variable does not affect the diary display with the `d' command\nfrom the calendar; in that case, the prefix argument controls the number\nof days of diary entries displayed." :type (choice (integer :tag "Entries") (vector :value [0 0 0 0 0 0 0] (integer :tag "Sunday") (integer :tag "Monday") (integer :tag "Tuesday") (integer :tag "Wednesday") (integer :tag "Thursday") (integer :tag "Friday") (integer :tag "Saturday"))) :initialize custom-initialize-default :set diary-set-maybe-redraw :group diary] 12)
#@136 Check that the file specified by `diary-file' exists and is readable.
If so, return the expanded file name, otherwise signal an error.
(defalias 'diary-check-diary-file #[0 "\203 \301!\203 \302!\203 \207\303\304\"\207\303\305\"\207" [diary-file file-exists-p file-readable-p error "Diary file `%s' is not readable" "Diary file `%s' does not exist"] 3 (#$ . 17888)])
#@311 Generate the diary window for ARG days starting with the current date.
If no argument is provided, the number of days of diary entries is governed
by the variable `diary-number-of-entries'. A value of ARG less than 1
does nothing. This function is suitable for execution in an init file.
(fn &optional ARG)
(defalias 'diary #[256 "\300 \210\301\302 \205
\303!\"\207" [diary-check-diary-file diary-list-entries calendar-current-date prefix-numeric-value] 5 (#$ . 18270) "P"])
#@237 Prepare and display a buffer with diary entries.
Searches the file named in `diary-file' for entries that match
ARG days starting with the date indicated by the cursor position
in the displayed three-month calendar.
(fn &optional ARG)
(defalias 'diary-view-entries #[256 "\300 \210\301\302\303!\"\207" [diary-check-diary-file diary-list-entries calendar-cursor-to-date t] 4 (#$ . 18758) "p"])
#@281 Prepare and display buffer of diary entries from an alternative diary file.
Searches for entries that match ARG days, starting with the date indicated
by the cursor position in the displayed three-month calendar.
DFILE specifies the file to use as the diary file.
(fn ARG DFILE)
(defalias 'diary-view-other-diary-entries #[514 "\211\301!)\207" [diary-file diary-view-entries] 4 (#$ . 19160) (byte-code "\302!\303\304 \305\306$D\207" [current-prefix-arg default-directory prefix-numeric-value read-file-name "Enter diary file name: " nil t] 6)])
#@187 The syntax table used when parsing dates in the diary file.
It is the standard syntax table used in Fundamental mode, but with the
syntax of `*' and `:' changed to be word constituents.
(defvar diary-syntax-table (byte-code "\300\301 !\302\303\304#\210\302\305\304#\210\211\207" [copy-syntax-table standard-syntax-table modify-syntax-entry 42 "w" 58] 5) (#$ . 19716))
#@147 Convert string ATTRVALUE to TYPE appropriate for a face description.
Valid TYPEs are: string, symbol, int, stringtnil, tnil.
(fn ATTRVALUE TYPE)
(defalias 'diary-attrtype-convert #[514 "\211\300\267\202& \207\301!\207\302!\207\303\230\203 \304\207\305\230\203 \306\207\207\303\230\207\306\207" [#s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (string 6 symbol 8 int 12 stringtnil 16 tnil 34)) intern-soft string-to-number "t" t "nil" nil] 4 (#$ . 20093)])
#@430 Search for matches for regexps from `diary-face-attrs'.
If ENTRY is nil, searches from the start of the current buffer, and
prepends all regexps with `diary-glob-file-regexp-prefix'.
If ENTRY is a string, search for matches in that string, and remove them.
Returns a list of ENTRY followed by (ATTRIBUTE VALUE) pairs.
When ENTRY is non-nil, FILEGLOBATTRS forms the start of the (ATTRIBUTE VALUE)
pairs.
(fn ENTRY FILEGLOBATTRS)
(defalias 'diary-pull-attrs #[514 "\302\204M \212\211\203H \211@eb\210 @PA@\3038\3048\305\302\306#\205( \307!\211\203? \310\"\211\262\203? \311D\"\262\266A\266\202\202 \210)\202\237 \262\211\203\236 \211@\211@A@\3038\3048\302\312 \"\203~ \307 \"\262\313\314\306\211
$\262\n\202c \211\203\225 \310\"\211\262\203\225 \311D\"\262\266A\266\202\202Q \210D\207" [diary-face-attrs diary-glob-file-regexp-prefix nil 2 3 re-search-forward t match-string-no-properties diary-attrtype-convert append string-match replace-match ""] 15 (#$ . 20603)])
#@281 Function applied to entry string before putting it into the entries list.
Can be used by programs integrating a diary list into other buffers (e.g.
org.el and planner.el) to modify the string or add properties to it.
The function takes a string argument and must return a string.
(defvar diary-modify-entry-list-string-function nil (#$ . 21620))
#@891 Add an entry to `diary-entries-list'.
Do nothing if DATE or STRING are nil. DATE is the (MONTH DAY
YEAR) for which the entry applies; STRING is the text of the
entry as it will appear in the diary (i.e. with any format
strings such as "%d" expanded); SPECIFIER is the date part of
the entry as it appears in the diary-file; LITERAL is the entry
as it appears in the diary-file (i.e. before expansion).
If LITERAL is nil, it is taken to be the same as STRING.
The entry is added to the list as (DATE STRING SPECIFIER LOCATOR
GLOBCOLOR), where LOCATOR has the form (MARKER FILENAME LITERAL),
FILENAME being the file containing the diary entry.
Modifies STRING using `diary-modify-entry-list-string-function', if non-nil.
Also removes the region between `diary-comment-start' and
`diary-comment-end', if the former is non-nil.
(fn DATE STRING SPECIFIER &optional MARKER GLOBCOLOR LITERAL)
(defalias 'diary-add-to-list #[1539 "\205q \205q \306 \206 \307 \203% \n!\211\310\230\204$ \311\312\n#\262\210 \203/ !\262\f\203V \313\314\f!\211\262\"\203V \204H \262\315\311\316\314
!#\310 #\262\317 E \257C\"\211\266\202\207" [diary-file diary-file-name-prefix diary-file-name-prefix-function diary-modify-entry-list-string-function diary-comment-start diary-comment-end buffer-file-name nil "" format "[%s] %s" string-match regexp-quote replace-regexp-in-string "%s.*%s" append diary-entries-list] 16 (#$ . 21973)])
#@683 Internal subroutine of `diary-list-entries'.
Find diary entries applying to DATE, by searching from point-min for
each element of `diary-date-forms'. MARK indicates an entry is non-marking.
GLOBATTR is the list of global file attributes. If LIST-ONLY is
non-nil, don't change the buffer, only return a list of entries.
Optional array MONTHS replaces `calendar-month-name-array', and
means months cannot be abbreviated. Optional string SYMBOL marks diary
entries of the desired type. If DATE is not Gregorian, then the
Gregorian equivalent should be provided via GDATE. Returns non-nil if
any entries were found.
(fn DATE MARK GLOBATTR LIST-ONLY &optional MONTHS SYMBOL GDATE)
(defalias 'diary-list-entries-2 #[1796 "\211@\262\211A@\262\3068\262\206 \307\310\311\312\313
!\313\314\"#\311\315\316! \2039 \317\202A \311\320\316 \314\"\"#\311\321\" \311\321\" \311\322,\203_ \311\323\324\246\"\202` \317# -.\211\203#\211@\211@\325=\205w \211A\262\307\311\326\327! \203\211 \327\f!\202\212 \317\330\331\332#$\310\211\211eb\210\333\310\307#\203\203\251 \334\335\310\307#\210n\203\271 \336\337!\204\271 \340u\210\202\227 \341\342!\262\336\343!\203\307 \344y\210\307\262`\262\344y\210\336\337!\203\334 \344y\210\202\320 m\203\344 n\203\347 \340u\210\204\363 \345`\346\347$\210\350\351`\"\"\262\352\f\206@\351TS\"\353!A@%\210\202\227 \266A\266\202\202e \210.\207" [calendar-month-name-array case-fold-search dayname monthname month day 2 t nil format "%s\\|%s\\.?" calendar-day-name abbrev "\\*\\|%s%s" calendar-month-name "" "\\|%s\\.?" "\\*\\|0*%d" "\\*\\|0*%d%s" "\\|%02d" 100 backup "^%s?%s\\(%s\\)" regexp-quote mapconcat eval "\\)\\(?:" re-search-forward re-search-backward "\\<" looking-at "[ ]" -1 line-end-position 0 "[ ]*\n[ ]" 1 remove-overlays invisible diary diary-pull-attrs buffer-substring-no-properties diary-add-to-list copy-marker diary-abbreviated-year-flag year diary-date-forms] 24 (#$ . 23428)])
#@241 List diary entries of a certain type.
MONTHS is an array of month names. SYMBOL marks diary entries of the type
in question. ABSFUNC is a function that converts absolute dates to dates
of the appropriate type.
(fn MONTHS SYMBOL ABSFUNC)
(defalias 'diary-list-entries-1 #[771 " \305\211W\203\306\211\306\211\3078\262\310\305U\203 \311\312!\202Z\305V\203\224 S\262\313\211\211@\262\211A@\262\3078\262\314S_\\\307V\203\201 \211\315\316_\\\317\245Z\262\211\305W\203b \320!S\262\211\316\246\305U\205x \211\321\246\305U?\206x \211\322\246\305U\262\203\201 \211T\262\266\204\323_\316\245\321\245[\322\245%\202Z\320T!\262\324\211\211@\262\211A@\262\3078\262\314S_\\\307V\203\361 \211\315\316_\\\317\245Z\262\211\305W\203\322 \320!S\262\211\316\246\305U\205\350 \211\321\246\305U?\206\350 \211\322\246\305U\262\203\361 \211T\262\266\204\323_\316\245\321\245[\322\245\325\211\211@\262\211A@\262\3078\262\314S_\\\307V\203V\211\315\316_\\\317\245Z\262\211\305W\2037\320!S\262\211\316\246\305U\205M\211\321\246\305U?\206M\211\322\246\305U\262\203V\211T\262\266\204&\266\203!\n \f \n&\210\326\211\3078\262\310\305U\203~\311\312!\202\270\305V\203\362S\262\313\211\211@\262\211A@\262\3078\262\314S_\\\307V\203\337\211\315\316_\\\317\245Z\262\211\305W\203\300\320!S\262\211\316\246\305U\205\326\211\321\246\305U?\206\326\211\322\246\305U\262\203\337\211T\262\266\204\323_\316\245\321\245[\322\245%\202\270\320T!\262\324\211\211@\262\211A@\262\3078\262\314S_\\\307V\203O\211\315\316_\\\317\245Z\262\211\305W\2030\320!S\262\211\316\246\305U\205F\211\321\246\305U?\206F\211\322\246\305U\262\203O\211T\262\266\204\323_\316\245\321\245[\322\245\325\211\211@\262\211A@\262\3078\262\314S_\\\307V\203\264\211\315\316_\\\317\245Z\262\211\305W\203\225\320!S\262\211\316\246\305U\205\253\211\321\246\305U?\206\253\211\322\246\305U\262\203\264\211T\262\266\204&\266\203T!\262\210\211T\262\202 \266eb\207" [original-date number diary-nonmarking-symbol file-glob-attrs list-only 0 diary-list-entries-2 2 nil user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-gregorian-from-absolute] 27 (#$ . 25422)])
#@104 List of any diary files included in the last call to `diary-list-entries'.
Or to `diary-mark-entries'.
(defvar diary-included-files nil (#$ . 27721))
#@2357 Create and display a buffer containing the relevant lines in `diary-file'.
Selects entries for NUMBER days starting with date DATE. Hides any
other entries using overlays. If NUMBER is less than 1, this function
does nothing.
Returns a list of all relevant diary entries found.
The list entries have the form ((MONTH DAY YEAR) STRING SPECIFIER) where
(MONTH DAY YEAR) is the date of the entry, STRING is the entry text, and
SPECIFIER is the applicability. If the variable `diary-list-include-blanks'
is non-nil, this list includes a dummy diary entry consisting of the empty
string for a date with no diary entries.
If producing entries for multiple dates (i.e., NUMBER > 1), then
this function normally returns the entries from any given diary
file in date order. The entries for any given day are in the
order in which they were found in the file, not necessarily in
time-of-day order. Note that any functions present on the
hooks (see below) may add entries, or change the order. For
example, `diary-include-other-diary-files' adds entries from any
include files that it finds to the end of the original list. The
entries from each file will be in date order, but the overall
list will not be. If you want the entire list to be in time
order, add `diary-sort-entries' to the end of `diary-list-entries-hook'.
After preparing the initial list, hooks run in this order:
`diary-nongregorian-listing-hook' runs for the main diary file,
and each included file. For example, this is the appropriate hook
to process Islamic entries in all diary files.
`diary-list-entries-hook' runs once only, for the main diary file.
For example, this is appropriate for sorting all the entries.
If not using include files, there is no difference from the previous
hook.
`diary-hook' runs last, after the diary is displayed.
This is used e.g. by `appt-check'.
Functions called by these hooks may use the variables `original-date'
and `number', which are the arguments with which this function was called.
Note that hook functions should _not_ use `date', but `original-date'.
(Sexp diary entries may use `date' - see `diary-list-sexp-entries'.)
This function displays the list using `diary-display-function', unless
LIST-ONLY is non-nil, in which case it just returns the list.
(fn DATE NUMBER &optional LIST-ONLY)
(defalias 'diary-list-entries #[770 "\204 \306!\203 \307!H\202 \262\310V\205\270\311!\312 !\313\304!\205+ \f\314\211 @\314C\204= \314A\315\316!\210\317\310\320\321\322!\323\"\324$\216r\206^ \203Z \211\325\326!\240\202^ \327 \330\"q\210\203o \331!\204o \332\330\211\"\210\211\242\203{ \333 !\210\202\232 \334\335!=\203\212 \336 \210\202\232 \336=\203\232 B\205\230 CD` E\212\214~\210\337\314\340\"A@@\341 p\317\310\342\321\322\"\343\"\324$\216\344F!\210eb\210\204\342 \345ed\314\330\314%\346\347!\210\330'\350\351\352#\210\350\353\330#\266\310\211W\203o\211\354 !\355\fG@
$H\203\204\211\204\356
\340\211\211\211%\210\357
\211\3248\262\314\310U\203&\360\361!\202`\310V\203\232S\262\362\211\211@\262\211A@\262\3248\262\363S_\\\324V\203\207\211\364\365_\\\366\245Z\262\211\310W\203h\367!S\262\211\365\246\310U\205~\211\370\246\310U?\206~\211\371\246\310U\262\203\207\211T\262\266\204\372_\365\245\370\245[\371\245%\202`\367T!\262\373\211\211@\262\211A@\262\3248\262\363S_\\\324V\203\367\211\364\365_\\\366\245Z\262\211\310W\203\330\367!S\262\211\365\246\310U\205\356\211\370\246\310U?\206\356\211\371\246\310U\262\203\367\211T\262\266\204\372_\365\245\370\245[\371\245\374\211\211@\262\211A@\262\3248\262\363S_\\\324V\203\\\211\364\365_\\\366\245Z\262\211\310W\203=\367!S\262\211\365\246\310U\205S\211\370\246\310U?\206S\211\371\246\310U\262\203\\\211T\262\266\204&\266\203T!\262
\266\211T\262\202\345 \266)\266eb\210 I J\375\376\377\"\210*\204\235\201M \201N \201O K@!\"C KL \210) I \375\201P !\210.\204\264\315\201Q !\210
,\266\203\207" [diary-number-of-entries original-date diary--date-string diary-file diary-including diary-entries-list vectorp calendar-day-of-week 0 calendar-date-string find-buffer-visiting boundp nil message "Preparing diary..." make-byte-code "\300\242\205 \301\300\242!\205 \302\300\242!\207" vconcat vector [buffer-name kill-buffer] 2 generate-new-buffer " *diary-temp*" find-file-noselect t verify-visited-file-modtime revert-buffer insert-file-contents default-value major-mode diary-mode diary-pull-attrs "" syntax-table "r\301q\210\302\300!)\207" [set-syntax-table] set-syntax-table make-overlay make-local-variable diary-selective-display overlay-put invisible diary evaporate diary-list-sexp-entries diary-list-entries-2 diary-add-to-list calendar-gregorian-from-absolute user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) run-hooks diary-nongregorian-listing-hook diary-list-entries-hook file-glob-attrs diary-included-files diary-header-line-flag diary-header-line-format header-line-format diary-saved-point diary-syntax-table diary-nonmarking-symbol diary-list-include-blanks number list-only display-buffer-fallback-action diary-display-function delq display-buffer-in-previous-window copy-sequence diary-hook "Preparing diary...done"] 33 (#$ . 27879)])
#@39 Show all invisible text in the diary.
(defalias 'diary-unhide-everything #[0 "\300\301!\210\214~\210\302ed\303\304$\210)\300\305!\207" [kill-local-variable diary-selective-display remove-overlays invisible diary mode-line-format] 5 (#$ . 33225)])
#@394 Process diary entries from included diary files.
By default, lists included entries, but if optional argument MARK is non-nil
marks entries instead.
For example, this enables you to share common diary files.
Specify include files using lines matching `diary-include-string', e.g.
#include "filename"
This is recursive; that is, included files may include other files.
(fn &optional MARK)
(defalias 'diary-include-files #[256 "eb\210\306\307\310\311!\"\312\313#\203\214 \314\315!\316\317\313\312\211\211 \320 !\203{ \321 !\203n \322 !\211\262 \235\203K \323\324 \"\210\202\205 \325 C\" \203^ \326 \210\202\205 \325 \327!\"\313#\" \202\205 \330\331\332\333 \"\334#\210\202\205 \330\331\332\335 \"\334#\210.\266\202 eb\207" [diary-include-string diary-list-include-blanks diary-hook diary-including diary-list-entries-hook diary-mark-entries-hook re-search-forward format "^%s \"\\([^\"]*\\)\"" regexp-quote nil t match-string-no-properties 1 diary-mark-included-diary-files diary-include-other-diary-files file-exists-p file-readable-p expand-file-name error "Recursive diary include for %s" append diary-mark-entries diary-list-entries display-warning diary format-message "Can't read included diary file %s\n" :error "Can't find included diary file %s\n" diary-file diary-included-files diary-entries-list original-date number] 14 (#$ . 33479)])
#@210 Add diary entries from included diary files to `diary-entries-list'.
To use, add this function to `diary-list-entries-hook'.
For details, see `diary-include-files'.
See also `diary-mark-included-diary-files'.
(defalias 'diary-include-other-diary-files #[0 "\300 \207" [diary-include-files] 1 (#$ . 34871)])
#@168 Common subroutine of `diary-simple-display' and `diary-fancy-display'.
Handles the case where there are no diary entries.
Returns a cons (NOENTRIES . HOLIDAY-STRING).
(defalias 'diary-display-no-entries #[0 "\205 \306 !\307\310\n\203 \311\202 \312\313\314\315#$\307\316\" ?\206/ A?\205/ @A@\312\230\211\203} G\317 W\204? \204G \320\321\"\210\202} \322\f!q\210\323\324!\204U \324 \210\325\326 \327 \210\330\f!\210\331\307\332\n\"!\210\313\314\333#c\210eb\210\334\325!\210\326\320\316\n\"\210\211B\207" [diary-show-holidays-flag original-date diary--date-string diary-entries-list holiday-buffer buffer-read-only calendar-check-holidays format "%s%s%s" ": " "" mapconcat identity "; " "No diary entries for %s" frame-width message "%s" get-buffer-create derived-mode-p special-mode nil t erase-buffer display-buffer calendar-set-mode-line "Holidays for %s" "\n" set-buffer-modified-p buffer-undo-list] 9 (#$ . 35185)])
#@206 Display the diary buffer if there are any relevant entries or holidays.
Entries that do not apply are made invisible. Holidays are shown
in the mode line. This is an option for `diary-display-function'.
(defalias 'diary-simple-display #[0 "\206 \303 \304 !\305 rq\210\306\307\310A\"!\210)\211@?\2052 rq\210\311p!\312\n\"\210\313e\"\262))\207" [pop-up-frames diary-file diary-saved-point window-dedicated-p find-buffer-visiting diary-display-no-entries calendar-set-mode-line format "Diary for %s" display-buffer set-window-point set-window-start] 6 (#$ . 36127)])
#@176 Function called to jump to a diary entry.
Modes that require special handling of the included file
containing the diary entry can assign a suitable function to this
variable.
(defvar diary-goto-entry-function 'diary-goto-entry (#$ . 36709))
(define-button-type 'diary-entry 'action #[257 "!\207" [diary-goto-entry-function] 3 "\n\n(fn BUTTON)"] 'face 'diary-button 'help-echo "Find this diary entry" 'follow-link t)
#@63 Jump to the diary entry for the BUTTON at point.
(fn BUTTON)
(defalias 'diary-goto-entry #[257 "\301\302\"\211@\303\211\203 \304!\211\262\203 \305!\210\306!b\202b A@\211\262\203_ \307!\203_ \310!\203_ \311\300!=\203@ \312 \210eb\210\313\314\315\316\3178!\316\320 8!#\303\321#\203_ \322\224b\206b \323\324!\207" [major-mode button-get locator nil marker-buffer pop-to-buffer marker-position file-exists-p find-file-other-window default-value diary-mode re-search-forward format "%s.*\\(%s\\)" regexp-quote 2 3 t 1 message "Unable to locate this diary entry"] 12 (#$ . 37133)])
#@307 Prepare a diary buffer with relevant entries in a fancy, noneditable form.
Holidays are shown unless `diary-show-holidays-flag' is nil.
Days with no diary entries are not shown (even if that day is a
holiday), unless `diary-list-include-blanks' is non-nil.
This is an option for `diary-display-function'.
(defalias 'diary-fancy-display #[0 "r\306!q\210\307 \210)\310 @?\205.\311 !q\210\312\313!\204 \313 \210\314\315\316 \210\317 !\210\320\321!\210\322\211\323\211\211E\314\f\211\203\n\211@\324@\"\204\246\211@\262
\203D\325\211\326U\203\206 \211\211\323W\203e \327!S\262\211\330\246\323U\205{ \211\331\246\323U?\206{ \211\332\246\323U\262\203\206 \333\266\202\202\214 \334SH\266\202ECC\"\203D\211@\262\262\3268\262\211\262\203D\335\314\323W\203\267 T\262\336_ \337\322$\262\340\"T\262\211\245\262\211\323W\203\341 \322V\203\341 S\262\322W\203\355 S\262\266 @ A\341 *\211\262\203D\335\314\323W\203\fT\262\336_ \337\322$\262\340\"T\262\211\245\262\211\323W\2036\322V\2036S\262\322W\203BS\262\266\323C\314\211\211\203f\211@\324 @\"\203_\342A\"\262A\266\202\202I\210o\203o\343\202p\344\345!\261\210\203~\346c\210i\262\347\350\351\352\353\354!\355\"\330\356%\357\360\361\"P#c\210\344\360\242\\\362\"\344\261\266\211A@\314\211\211G\323U\204\3638\211\262\203\334\364\365@A@\326\n8\326 8\206\324\nA@F\366\367%\210\202\337c\210\344c\210\3308\211\262\203\212\370!\262\371!\210\372\373\323\224\323\225\"\374#\210)\266A\266\202\2026 \266B\375=\203\376\377!\210\202 \375 \210\320C!\210eb\210\201D \314!\210\315\211\207" [diary-file diary-fancy-buffer buffer-read-only buffer-undo-list diary-entries-list diary-show-holidays-flag find-buffer-visiting diary-unhide-everything diary-display-no-entries get-buffer-create derived-mode-p special-mode nil t erase-buffer display-buffer calendar-set-mode-line "Diary Entries" 1 0 calendar-date-equal calendar-date-compare 2 abs 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] 12 + -1 mod calendar-holiday-list append "" 10 calendar-date-string ": " mapconcat make-byte-code 257 "\300\211\242G]\240\210\207" vconcat vector [] "\n\n(fn X)" "\n" make-string 32 61 3 insert-button locator :type diary-entry calendar-make-temp-face search-backward overlay-put make-overlay face diary-fancy-display-mode run-hooks diary-fancy-display-mode-hook displayed-year displayed-month major-mode diary--date-string set-buffer-modified-p] 18 (#$ . 37733)])
#@402 Print a hard copy of the diary display.
If the simple diary display is being used, prepare a temp buffer with the
visible lines of the diary buffer, add a heading line composed from the mode
line, print the temp buffer, and destroy it.
If the fancy diary display is being used, just print the buffer.
The hooks given by the variable `diary-print-entries-hook' are called to do
the actual printing.
(defalias 'diary-print-entries #[0 "\303!\304\211\211\211\203 rq\210\305\306!)\202\201 \307 !\211\262\204# \310\311!\210\312\313!\262rq\210\n;\2045 \314\202> \315\316\n\"\210\317\320\n\"\262e\262\321\322\"\262\323\322\"\204[ rq\210\324#\210)\211\262\211\203h \211dW\204C )q\210eb\210\325\326G\327\"\325\261\210\305\306!\210\330!\207" [diary-fancy-buffer diary-file mode-line-format get-buffer nil run-hooks diary-print-entries-hook find-buffer-visiting error "You don't have a diary buffer!" get-buffer-create " *Printable Diary Entries*" "All Diary Entries" string-match "^-*\\([^-].*[^-]\\)-*$" match-string 1 next-single-char-property-change invisible get-char-property insert-buffer-substring "\n" make-string 61 kill-buffer] 10 (#$ . 40267) nil])
#@211 Show all of the diary entries in the diary file.
This function gets rid of the selective display of the diary file so that
all entries, not just some, are visible. If there is no diary buffer, one
is created.
(defalias 'diary-show-all-entries #[0 "\302 \206 \303 \304 \305 r\306!\206 \307\310\"q\210 \311\301!=\203% \312 \210\313 \210\314p!\210\211\305!U?\205E r\315!q\210\316\317!)\205E \320!*\207" [pop-up-frames major-mode diary-check-diary-file window-dedicated-p selected-window window-height find-buffer-visiting find-file-noselect t default-value diary-mode diary-unhide-everything display-buffer window-buffer derived-mode-p calendar-mode fit-window-to-buffer] 6 (#$ . 41449) nil])
#@708 Send a mail message showing diary entries for next NDAYS days.
If no prefix argument is given, NDAYS is set to `diary-mail-days'.
Mail is sent to the address specified by `diary-mail-addr'.
Here is an example of a script to call `diary-mail-entries',
suitable for regular scheduling using cron (or at). Note that
since `emacs -script' does not load your init file, you should
ensure that all relevant variables are set.
#!/usr/bin/emacs -script
;; diary-rem.el - run the Emacs diary-reminder
(setq diary-mail-days 3
diary-file "/path/to/diary.file"
calendar-date-style \='european
diary-mail-addr "user@host.name")
(diary-mail-entries)
# diary-rem.el ends here
(fn &optional NDAYS)
(defalias 'diary-mail-entries #[256 "\305\230\203\n \306\307!\207\310\311\312 \206 \n\"\210)\313\314\315\312 !P\"\210\316 !\2031 r q\210\317 )\2022 \320c\210\321\f\322N!\207" [diary-mail-addr diary-display-function diary-mail-days diary-fancy-buffer mail-user-agent "" user-error "You must set `diary-mail-addr' to use this command" diary-fancy-display diary-list-entries calendar-current-date compose-mail "Diary entries generated " calendar-date-string get-buffer buffer-string "No entries found" call-interactively sendfunc] 6 (#$ . 42156) "P"])
#@336 Return a regexp matching the strings in the array STRING-ARRAY.
If the optional argument ABBREV-ARRAY is present, the regexp
also matches the supplied abbreviations, with or without final `.'
characters. If the optional argument PAREN is non-nil, surrounds
the regexp with parentheses.
(fn STRING-ARRAY &optional ABBREV-ARRAY PAREN)
(defalias 'diary-name-pattern #[769 "\300\301\211\205
\302\303\"\304$\"\207" [regexp-opt append mapcar #[257 "\300\301\"\207" [format "%s."] 4 "\n\n(fn E)"] nil] 10 (#$ . 43424)])
#@58 True during the marking of diary entries, nil otherwise.
(defvar diary-marking-entries-flag nil (#$ . 43952))
#@72 True during the marking of diary entries, if current entry is marking.
(defvar diary-marking-entry-flag nil (#$ . 44068))
#@357 Mark diary entries of a certain type.
MARKFUNC is a function that marks entries of the appropriate type
matching a given date pattern. MONTHS is an array of month names.
SYMBOL marks diary entries of the type in question. ABSFUNC is a
function that converts absolute dates to dates of the appropriate type.
(fn MARKFUNC &optional MONTHS SYMBOL ABSFUNC)
(defalias 'diary-mark-entries-1 #[1025 "\306 \"\307\310\203 \306!\202 \306 \f\"\" \311\211
\311 \312 6\3137\211\205\211@\211@\314=\2037 \211A\262\211G\211\302>GZU?\205H \211T\305>GZU?\205W \211T\315>GZU?\205g \211T\316 >GZU?\205y \211T\317 >GZ U?\205\213 \211T\307\320\203\231 \321!\202\232 \322\323\324\325##eb\210\326\313\312#\203\371 \205\265 \327\n!\205\276 \327 !\330\203\313 \327!\202\314 \322!\330 \203\332 \327\n!\202\333 \322!\205\344 \327!\211\204\354 \331\202\210\211G\332U\203\2058\203\205\203T\333 \211\3328\262\313\331U\203\334\335!\202N\331V\203\210S\262\336\211\211@\262\211A@\262\3328\262\337S_\\\332V\203u\211\340\341_\\\342\245Z\262\211\331W\203V\343!S\262\211\341\246\331U\205l\211\344\246\331U?\206l\211\345\246\331U\262\203u\211T\262\266\204\346_\341\245\344\245[\345\245%\202N\343T!\262\347\211\211@\262\211A@\262\3328\262\337S_\\\332V\203\345\211\340\341_\\\342\245Z\262\211\331W\203\306\343!S\262\211\341\246\331U\205\334\211\344\246\331U?\206\334\211\345\246\331U\262\203\345\211T\262\266\204\346_\341\245\344\245[\345\245\350\211\211@\262\211A@\262\3328\262\337S_\\\332V\203J\211\340\341_\\\342\245Z\262\211\331W\203+\343!S\262\211\341\246\331U\205A\211\344\246\331U?\206A\211\345\246\331U\262\203J\211T\262\266\204&\266\203!\202V\333 \3328\262\330!\344\344\245_\\\211Z\211\351V\203s\344Z\202\200\211\352W\203\344\\\202\200\266\203\202\210\330!\353\354`\355 \"9\"A@\262\203\300 \204\300 \204\300\204\300\356\357\360\331\313 \361\362 \"%\312#A\"\210\202\364\203\353\363\230\203\316\331\202\351\357\203\334\360!\202\346\360 \364\313\f\361\365\f\"%\312#A\262$\210\266\202\244 \266\fA\266\202\202& \262)\262-\207" [calendar-day-name-array calendar-day-abbrev-array dayname calendar-month-name-array calendar-month-abbrev-array monthname diary-name-pattern format "%s\\|\\*" "[0-9]+\\|\\*" t nil backup day month year "^%s\\(%s\\)" regexp-quote "" mapconcat eval "\\)\\(" re-search-forward match-string-no-properties string-to-number 0 2 calendar-current-date user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 50 -50 diary-pull-attrs buffer-substring-no-properties line-end-position calendar-mark-days-named assoc-string calendar-make-alist mapcar #[257 "\300\301\"\207" [format "%s."] 4 "\n\n(fn E)"] "*" 1 #[257 "\300\301\"\207" [format "%s."] 4 "\n\n(fn E)"] case-fold-search diary-date-forms diary-abbreviated-year-flag file-glob-attrs] 44 (#$ . 44197)])
#@698 Mark days in the calendar window that have diary entries.
Marks each entry in the diary that is visible in the calendar window.
After marking the entries, runs `diary-nongregorian-marking-hook'
for the main diary file, and each included file. For example,
this is the appropriate hook to process Islamic entries in all
diary files. Next `diary-mark-entries-hook' runs, for the main diary
file only. If not using include files, there is no difference between
these two hooks.
If the optional argument REDRAW is non-nil (which is the case
interactively, for example) then this first removes any existing diary
marks. This is intended to deal with deleted diary entries.
(fn &optional REDRAW)
(defalias 'diary-mark-entries #[256 "\211\203
\203
\306\307 \210\310\311 !\312\302!\205 \n\306\211C \204) \306\313\314!\210\315\316\317\320\321!\322\"\323$\216r\206K \203F \211\324\325!\240\202K \326\327 \310\"q\210\211\242\203Y \330 !\210\202e \331\332!=\203e \333 \210\310\334\306\211\"A@\335 p\315\316\336\320\321\"\337\"\323$\216\340(!\210\212\214~\210\341\342!\210\343 \210\344\345\346\"\210+\266*\206\240 \313\347!*\207" [calendar-mark-diary-entries-flag diary-file diary-including file-glob-attrs diary-marking-entries-flag diary-included-files nil calendar-redraw t find-buffer-visiting boundp message "Marking diary entries..." make-byte-code 0 "\300\242\205 \301\300\242!\205 \302\300\242!\207" vconcat vector [buffer-name kill-buffer] 2 generate-new-buffer " *diary-temp*" find-file-noselect diary-check-diary-file insert-file-contents default-value major-mode diary-mode diary-pull-attrs syntax-table "r\301q\210\302\300!)\207" [set-syntax-table] set-syntax-table diary-mark-entries-1 calendar-mark-date-pattern diary-mark-sexp-entries run-hooks diary-nongregorian-marking-hook diary-mark-entries-hook "Marking diary entries...done" diary-syntax-table] 15 (#$ . 47186) "p"])
#@60 Process a SEXP diary ENTRY for DATE.
(fn SEXP ENTRY DATE)
(defalias 'diary-sexp-entry #[771 "\211\n\203 \305\306\307!@!)\2026 \3101\" \306\307!@!0\2026 \311\312\313\314\315e`\"\f %\316#\210\317\262*\211;\203@ \211\202X \211:\203O \211A;\203O \211\202X \211\203W \202X \317\207" [date entry calendar-debug-sexp debug-on-error diary-file t eval read-from-string (error) display-warning diary format "Bad diary sexp at line %d in %s:\n%s\nError: %S\n" count-lines :error nil] 12 (#$ . 49102)])
#@222 Mark days in the calendar window that have sexp diary entries.
Each entry in the diary file (or included files) visible in the calendar window
is marked. See the documentation for the function `diary-list-sexp-entries'.
(defalias 'diary-mark-sexp-entries #[0 "\306!\307\310\306 !$\311\312\211\"A@\312\211\211\211\211\211\211\312\211\211\211r q\210\f\262\n
\262 )\313\312\n\314W\2037 \nT\262 \315 _
\316\211$\262\317\"T\262\f\211\245\262 \211\314W\203a \320V\203a \nS\262 \n\320W\203m \nS\262 \266 \320\nE\211\3218\262\312\314U\203\210 \322\323!\202\302\314V\203\374 S\262\315\211\211@\262\211A@\262\3218\262\324S_\\\321V\203\351 \211\325\326_\\\327\245Z\262\211\314W\203\312 \330!S\262\211\326\246\314U\205\340 \211\331\246\314U?\206\340 \211\332\246\314U\262\203\351 \211T\262\266\204\333_\326\245\331\245[\332\245%\202\302\330T!\262\334\211\211@\262\211A@\262\3218\262\324S_\\\321V\203Y\211\325\326_\\\327\245Z\262\211\314W\203:\330!S\262\211\326\246\314U\205P\211\331\246\314U?\206P\211\332\246\314U\262\203Y\211T\262\266\204\333_\326\245\331\245[\332\245\335\211\211@\262\211A@\262\3218\262\324S_\\\321V\203\276\211\325\326_\\\327\245Z\262\211\314W\203\237\330!S\262\211\326\246\314U\205\265\211\331\246\314U?\206\265\211\332\246\314U\262\203\276\211T\262\266\204&\266\203\262\313\312\n\314W\203\324\nT\262 \315 _
\316\321$\262\317\"T\262\f\211\245\262 \211\314W\203\376 \320V\203\376\nS\262 \n\320W\203\n\nS\262 \266 \211\n\321U\203E\211\211\314W\203$\330!S\262\211\326\246\314U\205:\211\331\246\314U?\206:\211\332\246\314U\262\203E\336\266\202\202K\337SH\266\202\nE\211\3218\262\312\314U\203a\322\323!\202\233\314V\203\325S\262\315\211\211@\262\211A@\262\3218\262\324S_\\\321V\203\302\211\325\326_\\\327\245Z\262\211\314W\203\243\330!S\262\211\326\246\314U\205\271\211\331\246\314U?\206\271\211\332\246\314U\262\203\302\211T\262\266\204\333_\326\245\331\245[\332\245%\202\233\330T!\262\334\211\211@\262\211A@\262\3218\262\324S_\\\321V\2032\211\325\326_\\\327\245Z\262\211\314W\203\330!S\262\211\326\246\314U\205)\211\331\246\314U?\206)\211\332\246\314U\262\2032\211T\262\266\204\333_\326\245\331\245[\332\245\335\211\211@\262\211A@\262\3218\262\324S_\\\321V\203\227\211\325\326_\\\327\245Z\262\211\314W\203x\330!S\262\211\326\246\314U\205\216\211\331\246\314U?\206\216\211\332\246\314U\262\203\227\211T\262\266\204&\266\203\262eb\210\340 \312\341#\2050\342h\343\".\344\345!\210`\262\346 \210\347`\"\262\320u\210n\203\327\350\351!\204\327\316u\210\352\262\202\366`\262\320y\210\350\351!\203\351\320y\210\202\335n\203\360\316u\210\347`\"\262S\262T\211\262X\203\242\353\354 !#\211\262\203\373\355\354!\311\n\"A@\206+:\205+@\"\210\202\373*\207" [diary-sexp-entry-symbol diary-nonmarking-symbol file-glob-attrs calendar-buffer displayed-month displayed-year regexp-quote format "^\\(%s(\\)\\|\\(%s%s(diary-remind\\)" diary-pull-attrs nil 12 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] re-search-forward t char-equal 40 re-search-backward "(" forward-sexp buffer-substring-no-properties looking-at "[ ]" "" diary-sexp-entry calendar-gregorian-from-absolute calendar-mark-visible-date diary-marking-entry-flag] 30 (#$ . 49613)])
#@187 Mark diary entries from included diary files.
To use, add this function to `diary-mark-entries-hook'.
For details, see `diary-include-files'.
See also `diary-include-other-diary-files'.
(defalias 'diary-mark-included-diary-files #[0 "\300\301!\207" [diary-include-files t] 2 (#$ . 53105)])
#@231 Mark all dates in the calendar window that are day DAYNAME of the week.
0 means all Sundays, 1 means all Mondays, and so on.
Optional argument COLOR is passed to `calendar-mark-visible-date' as MARK.
(fn DAYNAME &optional COLOR)
(defalias 'calendar-mark-days-named #[513 "rq\210 \n \n\303\211\304\303\305W\203 T\262\306_\307\310$\262\311\"T\262\211\245\262\211\305W\203= \310V\203= S\262\310W\203G S\262\266\304\303\305W\203W T\262\306_ \307\211$\262\311\"T\262\211\245\262\211\305W\203\201 \310V\203\201 S\262\310W\203\215 S\262\266\312\310 $\211\3138\262\303\305U\203\253 \314\315!\202\345\305V\203 S\262\306\211\211@\262\211A@\262\3138\262\316S_\\\313V\203\f\211\317\320_\\\321\245Z\262\211\305W\203\355 \322!S\262\211\320\246\305U\205\211\323\246\305U?\206\211\324\246\305U\262\203\f\211T\262\266\204\325_\320\245\323\245[\324\245%\202\345\322T!\262\326\211\211@\262\211A@\262\3138\262\316S_\\\313V\203|\211\317\320_\\\321\245Z\262\211\305W\203]\322!S\262\211\320\246\305U\205s\211\323\246\305U?\206s\211\324\246\305U\262\203|\211T\262\266\204\325_\320\245\323\245[\324\245\327\211\211@\262\211A@\262\3138\262\316S_\\\313V\203\341\211\317\320_\\\321\245Z\262\211\305W\203\302\322!S\262\211\320\246\305U\205\330\211\323\246\305U?\206\330\211\324\246\305U\262\203\341\211T\262\266\204&\266\203\262\312\307 $\211\3138\262\303\305U\203\314\315!\202?\305V\203yS\262\306\211\211@\262\211A@\262\3138\262\316S_\\\313V\203f\211\317\320_\\\321\245Z\262\211\305W\203G\322!S\262\211\320\246\305U\205]\211\323\246\305U?\206]\211\324\246\305U\262\203f\211T\262\266\204\325_\320\245\323\245[\324\245%\202?\322T!\262\326\211\211@\262\211A@\262\3138\262\316S_\\\313V\203\326\211\317\320_\\\321\245Z\262\211\305W\203\267\322!S\262\211\320\246\305U\205\315\211\323\246\305U?\206\315\211\324\246\305U\262\203\326\211T\262\266\204\325_\320\245\323\245[\324\245\327\211\211@\262\211A@\262\3138\262\316S_\\\313V\203;\211\317\320_\\\321\245Z\262\211\305W\203 \322!S\262\211\320\246\305U\2052\211\323\246\305U?\2062\211\324\246\305U\262\203;\211T\262\266\204&\266\203\262\211X\205Y\330\331!\"\210\211\332\\\262\202C\266\206)\207" [calendar-buffer displayed-month displayed-year nil 12 0 + -1 1 mod calendar-nth-named-day 2 user-error "There was no year zero" 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-mark-visible-date calendar-gregorian-from-absolute 7] 26 (#$ . 53402)])
#@264 Mark dates in the MONTH/YEAR that conform to pattern P-MONTH/P-DAY/P-YEAR.
A value of 0 in any position of the pattern is a wildcard.
Optional argument COLOR is passed to `calendar-mark-visible-date' as MARK.
(fn MONTH YEAR P-MONTH P-DAY P-YEAR &optional COLOR)
(defalias 'calendar-mark-month #[1541 "U\203 \300U\204$ U\204$ \300U\205\213 \300U\204$ U\205\213 \300U\203\202 \301U\203` \211\211\300W\203? \302!S\262\211\303\246\300U\205U \211\304\246\300U?\206U \211\305\246\300U\262\203` \306\266\202\202f \307SH\266\202\300\211W\205\201 \211\310 T\nE\"\266\211T\262\202g \207\310E\"\207" [0 2 abs 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] calendar-mark-visible-date] 13 (#$ . 56015)])
#@228 Mark all dates in the calendar window that conform to MONTH/DAY/YEAR.
A value of 0 in any position is a wildcard. Optional argument COLOR is
passed to `calendar-mark-visible-date' as MARK.
(fn MONTH DAY YEAR &optional COLOR)
(defalias 'calendar-mark-date-pattern #[1027 "rq\210 \n\303\304\305W\203 T\262\306_\307\211$\262\310\"T\262\211\245\262\211\305W\2038 \311V\2038 S\262\311W\203B S\262\266\312\305\211W\205\243 \211\313 &\210\303\304\305W\203g T\262\306_\307\311$\262\310\"T\262\211\245\262\211\305W\203\220 \311V\203\220 S\262\311W\203\232 S\262\266\211T\262\202F \266\202\266\202)\207" [calendar-buffer displayed-month displayed-year 12 nil 0 + -1 mod 1 3 calendar-mark-month] 16 (#$ . 56749)])
#@270 Mark dates in the calendar conforming to MONTH DAY YEAR of some system.
The function FROMABS converts absolute dates to the appropriate date system.
Optional argument COLOR is passed to `calendar-mark-visible-date' as MARK.
(fn MONTH DAY YEAR FROMABS &optional COLOR)
(defalias 'calendar-mark-complex #[1284 " \302\303\304W\203 T\262\305_\306\211$\262\307\"T\262\211\245\262\211\304W\2034 \310V\2034 S\262\310W\203> S\262\266\310E\211\3118\262\303\304U\203W \312\313!\202\221\304V\203\313 S\262\305\211\211@\262\211A@\262\3118\262\314S_\\\311V\203\270 \211\315\316_\\\317\245Z\262\211\304W\203\231 \320!S\262\211\316\246\304U\205\257 \211\321\246\304U?\206\257 \211\322\246\304U\262\203\270 \211T\262\266\204\323_\316\245\321\245[\322\245%\202\221\320T!\262\324\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\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\215\211\315\316_\\\317\245Z\262\211\304W\203n\320!S\262\211\316\246\304U\205\204\211\321\246\304U?\206\204\211\322\246\304U\262\203\215\211T\262\266\204&\266\203\302\303\304W\203\237T\262\305_\306\311$\262\307\"T\262\211\245\262\211\304W\203\306\310V\203\306S\262\310W\203\320S\262\266\211\311U\203 \211\211\304W\203\350\320!S\262\211\316\246\304U\205\376\211\321\246\304U?\206\376\211\322\246\304U\262\203 \326\266\202\202\327SH\266\202E\211\3118\262\303\304U\203$\312\313!\202^\304V\203\230S\262\305\211\211@\262\211A@\262\3118\262\314S_\\\311V\203\205\211\315\316_\\\317\245Z\262\211\304W\203f\320!S\262\211\316\246\304U\205|\211\321\246\304U?\206|\211\322\246\304U\262\203\205\211T\262\266\204\323_\316\245\321\245[\322\245%\202^\320T!\262\324\211\211@\262\211A@\262\3118\262\314S_\\\311V\203\365\211\315\316_\\\317\245Z\262\211\304W\203\326\320!S\262\211\316\246\304U\205\354\211\321\246\304U?\206\354\211\322\246\304U\262\203\365\211T\262\266\204\323_\316\245\321\245[\322\245\325\211\211@\262\211A@\262\3118\262\314S_\\\311V\203Z\211\315\316_\\\317\245Z\262\211\304W\203;\320!S\262\211\316\246\304U\205Q\211\321\246\304U?\206Q\211\322\246\304U\262\203Z\211T\262\266\204&\266\203S\303T\211\262X\205\266!\262\n\304U\204\205\n\211@\262U\203c \304U\204\230 \211A@\262U\203c\304U\204\253\3118\262U\203c\330\331!\"\210\202c\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-mark-visible-date calendar-gregorian-from-absolute] 26 (#$ . 57516)])
#@331 Mark dates in the calendar conforming to MONTH DAY YEAR of some system.
The function FROMABS converts absolute dates to the appropriate date system.
The function TOABS carries out the inverse operation. Optional argument
COLOR is passed to `calendar-mark-visible-date' as MARK.
(fn MONTH DAY YEAR FROMABS TOABS &optional COLOR)
(defalias 'calendar-mark-1 #[1541 "rq\210\303U\204\376\303U\204\376\303U\2040 \304E!!\305!\205+ \306\"\262\202 \307\nE\211\3108\262\311\303U\203H \312\313!\202\202\303V\203\274 S\262\314\211\211@\262\211A@\262\3108\262\315S_\\\310V\203\251 \211\316\317_\\\320\245Z\262\211\303W\203\212 \321!S\262\211\317\246\303U\205\240 \211\322\246\303U?\206\240 \211\323\246\303U\262\203\251 \211T\262\266\204\324_\317\245\322\245[\323\245%\202\202\321T!\262\325\211\211@\262\211A@\262\3108\262\315S_\\\310V\203\211\316\317_\\\320\245Z\262\211\303W\203\372 \321!S\262\211\317\246\303U\205\211\322\246\303U?\206\211\323\246\303U\262\203\211T\262\266\204\324_\317\245\322\245[\323\245\326\211\211@\262\211A@\262\3108\262\315S_\\\310V\203~\211\316\317_\\\320\245Z\262\211\303W\203_\321!S\262\211\317\246\303U\205u\211\322\246\303U?\206u\211\323\246\303U\262\203~\211T\262\266\204&\266\203!\211\211@\262\3108\262\311\327W?\205\371\330\311\303W\203\244T\262\314_\331\320Z$\262\332\"T\262\211\245\262\211\303W\203\316\327V\203\316S\262\327W\203\330S\262\266\333V\205\371\305\304\f\fE!!\211\262!\205\371\306\"\266\204\202 \334%)\207" [calendar-buffer displayed-month displayed-year 0 calendar-gregorian-from-absolute calendar-date-is-visible-p calendar-mark-visible-date 15 2 nil user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 1 12 -1 mod 7 calendar-mark-complex] 25 (#$ . 60406)])
#@417 Return time at the beginning of the string S as a military-style integer.
For example, returns 1325 for 1:25pm.
Returns `diary-unknown-time' (default value -9999) if no time is recognized.
The recognized forms are XXXX, X:XX, or XX:XX (military time), and XXam,
XXAM, XXpm, XXPM, XX:XXam, XX:XXAM, XX:XXpm, or XX:XXPM. A period (.) can
be used instead of a colon (:) to separate the hour and minute parts.
(fn S)
(defalias 'diary-entry-time #[257 "\302\303\304\"\203 \305\306\307\310\"!_\306\307\311\"!\\\202k \303\312\"\203? \305\306\307\310\"!\313\246_\311\224H\227\314\232\203: \315\202; \316\\\202k \303\317\"\203j \320\305\306\307\310\"!\313\246_\306\307\311\"!\321\224H\227\314\232\203e \315\202f \316#\202k )\207" [case-fold-search diary-unknown-time nil string-match "\\`[ \n]*\\([0-9]?[0-9]\\)[:.]?\\([0-9][0-9]\\)\\(\\>\\|[^ap]\\)" 100 string-to-number match-string 1 2 "\\`[ \n]*\\([0-9]?[0-9]\\)\\([ap]\\)m\\>" 12 97 0 1200 "\\`[ \n]*\\([0-9]?[0-9]\\)[:.]\\([0-9][0-9]\\)\\([ap]\\)m\\>" + 3] 7 (#$ . 62296)])
#@48 Return t if E1 is earlier than E2.
(fn E1 E2)
(defalias 'diary-entry-compare #[514 "\300\"\206- \301@@\"\205- A@\302!A@\302!W\206+ U\205+ \231\266\204\207" [calendar-date-compare calendar-date-equal diary-entry-time] 8 (#$ . 63342)])
#@205 Sort the list of diary entries by time of day.
If you add this function to `diary-list-entries-hook', it should
be the last item in the hook, in case earlier items add diary
entries, or change the order.
(defalias 'diary-sort-entries #[0 "\301\302\"\211\207" [diary-entries-list sort diary-entry-compare] 3 (#$ . 63598)])
#@5136 Add sexp entries for DATE from the diary file to `diary-entries-list'.
Also, make them visible in the diary. Returns t if any entries are found.
Sexp diary entries must be prefaced by a `diary-sexp-entry-symbol'
(normally `%%'). The form of a sexp diary entry is
%%(SEXP) ENTRY
Both `entry' and `date' are available when the SEXP is evaluated. If
the SEXP returns nil, the diary entry does not apply. If it
returns a non-nil value, ENTRY will be taken to apply to DATE; if
the value is a string, that string will be the diary entry in the
fancy diary display.
For example, the following diary entry will apply to the 21st of
the month if it is a weekday and the Friday before if the 21st is
on a weekend:
&%%(let ((dayname (calendar-day-of-week date))
(day (calendar-extract-day date)))
(or
(and (= day 21) (memq dayname \='(1 2 3 4 5)))
(and (memq day \='(19 20)) (= dayname 5)))
) UIUC pay checks deposited
A number of built-in functions are available for this type of
diary entry. In the following, the optional parameter MARK
specifies a face or single-character string to use when
highlighting the day in the calendar. For those functions that
take MONTH, DAY, and YEAR as arguments, the order of the input
parameters changes according to `calendar-date-style' (e.g. to
DAY MONTH YEAR in the European style).
%%(diary-date MONTH DAY YEAR &optional MARK) text
Entry applies if date is MONTH, DAY, YEAR. DAY, MONTH, and YEAR can
be a list of integers, t (meaning all values), or an integer.
%%(diary-float MONTH DAYNAME N &optional DAY MARK) text
Entry will appear on the Nth DAYNAME after/before MONTH DAY.
DAYNAME=0 means Sunday, DAYNAME=1 means Monday, and so on.
If N>0, use the Nth DAYNAME after MONTH DAY.
If N<0, use the Nth DAYNAME before MONTH DAY.
DAY defaults to 1 if N>0, and MONTH's last day otherwise.
MONTH can be a list of months, a single month, or t to
specify all months.
%%(diary-block M1 D1 Y1 M2 D2 Y2 &optional MARK) text
Entry will appear on dates between M1/D1/Y1 and M2/D2/Y2,
inclusive.
%%(diary-anniversary MONTH DAY YEAR &optional MARK) text
Entry will appear on anniversary dates of MONTH DAY, YEAR.
Text can contain `%d' or `%d%s'; `%d' will be replaced by the
number of years since the MONTH DAY, YEAR, and `%s' by the
ordinal ending of that number (i.e. `st', `nd', `rd' or `th',
as appropriate). The anniversary of February 29 is
considered to be March 1 in a non-leap year.
%%(diary-cyclic N MONTH DAY YEAR &optional MARK) text
Entry will appear every N days, starting MONTH DAY, YEAR.
Text can contain `%d' or `%d%s'; `%d' will be replaced by the
number of repetitions since the MONTH DAY, YEAR and `%s' by
the ordinal ending of that number (i.e. `st', `nd', `rd' or
`th', as appropriate).
%%(diary-remind SEXP DAYS &optional MARKING) text
Entry is a reminder for diary sexp SEXP. DAYS is either a
single number or a list of numbers indicating the number(s)
of days before the event that the warning(s) should occur.
A negative number -DAYS has the same meaning as a list (1 2 ... DAYS).
If the current date is (one of) DAYS before the event indicated
by EXPR, then a suitable message (as specified by
`diary-remind-message') appears. In addition to the
reminders beforehand, the diary entry also appears on the
date itself. If optional MARKING is non-nil then the
*reminders* are marked on the calendar. Marking of reminders
is independent of whether the entry *itself* is a marking or
non-marking one.
%%(diary-hebrew-yahrzeit MONTH DAY YEAR) text
Text is assumed to be the name of the person; the date is the
date of death on the *civil* calendar. The diary entry will
appear on the proper Hebrew-date anniversary and on the day
before.
All the remaining functions do not accept any text, and so only
make sense with `diary-fancy-display'. Most produce output every day.
`diary-day-of-year' - day of year and number of days remaining
`diary-iso-date' - ISO commercial date
`diary-astro-day-number' - astronomical (Julian) day number
`diary-sunrise-sunset' - local times of sunrise and sunset
These functions give the date in alternative calendrical systems:
`diary-bahai-date', `diary-chinese-date', `diary-coptic-date',
`diary-ethiopic-date', `diary-french-date', `diary-hebrew-date',
`diary-islamic-date', `diary-julian-date', `diary-mayan-date',
`diary-persian-date'
Theses functions only produce output on certain dates:
`diary-lunar-phases' - phases of moon (on the appropriate days)
`diary-hebrew-omer' - Omer count, within 50 days after Passover
`diary-hebrew-parasha' - weekly parasha, every Saturday
`diary-hebrew-rosh-hodesh' - Rosh Hodesh, or the day or Saturday before
`diary-hebrew-sabbath-candles' - local time of candle lighting, on Fridays
Marking these entries is *extremely* time consuming, so it is
best if they are non-marking.
(fn DATE)
(defalias 'diary-list-sexp-entries #[257 "\303\304\305!\305 !#\306\211\211\211\211\211\211\211\211\211\211\211\neb\210\307\306\211\"A@\310
\306\311#\203\340 \312u\210`\262 \313 \210\314 `\"\262\315\316!\262\314T`\"\262T\262\317u\210n\203a \320\321!\204a \312u\210\322\262\202\200 `\262\317y\210\320\321!\203s \317y\210\202g n\203z \312u\210\314`\"\262\323#\262\262:\203\230 A\202\231 \262\203\276 \324`\325\326$\210\316GW\203\276 \307\n\"\262@\262A@\262\n\327\205\316 \330 !&\210 \206\333 \262\f\202\" )\207" [diary-nonmarking-symbol diary-sexp-entry-symbol file-glob-attrs format "^%s?%s(" regexp-quote nil diary-pull-attrs re-search-forward t -1 forward-sexp buffer-substring-no-properties line-end-position 0 1 looking-at "[ ]" "" diary-sexp-entry remove-overlays invisible diary diary-add-to-list copy-marker] 21 (#$ . 63930)])
#@309 Convert A B C into the internal calendar date form.
The expected order of the inputs depends on `calendar-date-style',
e.g. in the European case, A = day, B = month, C = year. Returns
a list (MONTH DAY YEAR), i.e. the American style, which is the
form used internally by the calendar and diary.
(fn A B C)
(defalias 'diary-make-date #[771 "\301\267\202 E\207E\207E\207" [calendar-date-style #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (iso 6 european 11))] 6 (#$ . 69963)])
#@440 Specific date(s) diary entry.
Entry applies if date is MONTH, DAY, YEAR. Each parameter can be a
list of integers, t (meaning all values), or an integer. The order
of the input parameters changes according to `calendar-date-style'
(e.g. to DAY MONTH YEAR in the European style).
An optional parameter MARK specifies a face or single-character string
to use when highlighting the day in the calendar.
(fn MONTH DAY YEAR &optional MARK)
(defalias 'diary-date #[1027 "\302#\211\211A@\262\211@\262\3038\262\211@\262\3038\262\211A@\262<\2033 \211>\204@ \211\232\204@ \304=\205r <\203K >\204W \232\204W \304=\205r <\203b >\204n \232\204n \304=\205r B\207" [date entry diary-make-date 2 t] 13 (#$ . 70498)])
#@374 Block diary entry.
Entry applies if date is between, or on one of, two dates. The order
of the input parameters changes according to `calendar-date-style'
(e.g. to D1, M1, Y1, D2, M2, Y2 in the European style).
An optional parameter MARK specifies a face or single-character string
to use when highlighting the day in the calendar.
(fn M1 D1 Y1 M2 D2 Y2 &optional MARK)
(defalias 'diary-block #[1798 "\302#\211\3038\262\304\305U\203 \306\307!\202U\305V\203\217 S\262\310\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\205s \211\316\246\305U?\206s \211\317\246\305U\262\203| \211T\262\266\204\320_\313\245\316\245[\317\245%\202U\315T!\262\321\211\211@\262\211A@\262\3038\262\311S_\\\303V\203\354 \211\312\313_\\\314\245Z\262\211\305W\203\315 \315!S\262\211\313\246\305U\205\343 \211\316\246\305U?\206\343 \211\317\246\305U\262\203\354 \211T\262\266\204\320_\313\245\316\245[\317\245\322\211\211@\262\211A@\262\3038\262\311S_\\\303V\203Q\211\312\313_\\\314\245Z\262\211\305W\2032\315!S\262\211\313\246\305U\205H\211\316\246\305U?\206H\211\317\246\305U\262\203Q\211T\262\266\204&\266\203\302#\211\3038\262\304\305U\203o\306\307!\202\251\305V\203\343S\262\310\211\211@\262\211A@\262\3038\262\311S_\\\303V\203\320\211\312\313_\\\314\245Z\262\211\305W\203\261\315!S\262\211\313\246\305U\205\307\211\316\246\305U?\206\307\211\317\246\305U\262\203\320\211T\262\266\204\320_\313\245\316\245[\317\245%\202\251\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\2057\211\316\246\305U?\2067\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\245\211\312\313_\\\314\245Z\262\211\305W\203\206\315!S\262\211\313\246\305U\205\234\211\316\246\305U?\206\234\211\317\246\305U\262\203\245\211T\262\266\204&\266\203\211\3038\262\304\305U\203\277\306\307!\202\371\305V\2033S\262\310\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\205\211\316\246\305U?\206\211\317\246\305U\262\203 \211T\262\266\204\320_\313\245\316\245[\317\245%\202\371\315T!\262\321\211\211@\262\211A@\262\3038\262\311S_\\\303V\203\220\211\312\313_\\\314\245Z\262\211\305W\203q\315!S\262\211\313\246\305U\205\207\211\316\246\305U?\206\207\211\317\246\305U\262\203\220\211T\262\266\204\320_\313\245\316\245[\317\245\322\211\211@\262\211A@\262\3038\262\311S_\\\303V\203\365\211\312\313_\\\314\245Z\262\211\305W\203\326\315!S\262\211\313\246\305U\205\354\211\316\246\305U?\206\354\211\317\246\305U\262\203\365\211T\262\266\204&\266\203X\205\n\211X\205\n B\207" [date entry diary-make-date 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1)] 27 (#$ . 71247)])
#@484 Diary entry for the Nth DAYNAME after/before MONTH DAY.
DAYNAME=0 means Sunday, DAYNAME=1 means Monday, and so on.
If N>0, use the Nth DAYNAME after MONTH DAY.
If N<0, use the Nth DAYNAME before MONTH DAY.
DAY defaults to 1 if N>0, and MONTH's last day otherwise.
MONTH can be a list of months, an integer, or t (meaning all months).
Optional MARK specifies a face or single-character string to use when
highlighting the day in the calendar.
(fn MONTH DAYNAME N &optional DAY MARK)
(defalias 'diary-float #[1283 "\302!U\205\325\211@\262\211A@\262\3038\262\304[%\305V\203/ \211\2022 \211\306\\\305V\203? \306Z\202@ \307!\307!\211\211@\262\211A@\262\3038\262\211@\262\211A@\262\3038\262U\203\344 \310=\204\212 <\203\203 >\202\207 U\203\344 \206\326 \305V\203\232 \311\202\326 \303U\203\320 \211\211\305W\203\257 \312!S\262\211\313\246\305U\205\305 \211\314\246\305U?\206\305 \211\315\246\305U\262\203\320 \316\266\202\202\326 \317SH\266\202X\205\337 \211X\262\204\317W\204\366 U\205\323W\205\323\310=\204<\203\n>\202U\203c\206_\305V\203\"\311\202_\303U\203Y\211\211\305W\2038\312!S\262\211\313\246\305U\205N\211\314\246\305U?\206N\211\315\246\305U\262\203Y\316\266\202\202_\317SH\266\202X\204\317\310=\204~<\203w>\202{U\205\323\206\312\305V\203\216\311\202\312\303U\203\304\211\211\305W\203\243\312!S\262\211\313\246\305U\205\271\211\314\246\305U?\206\271\211\315\246\305U\262\203\304\316\266\202\202\312\317SH\266\202X\205\323 B\266\216\207" [date entry calendar-day-of-week 2 calendar-nth-named-absday 0 6 calendar-gregorian-from-absolute t 1 abs 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31]] 25 (#$ . 74372)])
#@86 Ordinal suffix for N. (That is, `st', `nd', `rd', or `th', as appropriate.)
(fn N)
(defalias 'diary-ordinal-suffix #[257 "\211\300\246\301>\204 \302\303\246W\203 \304\207\305\303\246H\207" [100 (11 12 13) 3 10 "th" ["th" "st" "nd" "rd"]] 4 (#$ . 76149)])
#@688 Anniversary diary entry.
Entry applies if date is the anniversary of MONTH, DAY, YEAR.
The order of the input parameters changes according to
`calendar-date-style' (e.g. to DAY MONTH YEAR in the European style).
The diary entry can contain `%d' or `%d%s'; the %d will be replaced
by the number of years since the MONTH, DAY, YEAR, and the %s will
be replaced by the ordinal ending of that number (that is, `st',
`nd', `rd' or `th', as appropriate). The anniversary of February 29
is considered to be March 1 in non-leap years.
An optional parameter MARK specifies a face or single-character
string to use when highlighting the day in the calendar.
(fn MONTH DAY &optional YEAR MARK)
(defalias 'diary-anniversary #[1026 "\302#\211\211A@\262\211@\262\3038\262\3038\262\203& \211Z\202' \304\303U\203a \305U\203a \211\306W\203@ \307!S\262\211\310\246\306U\205V \211\304\246\306U?\206V \211\311\246\306U\262\204a \312\262\313\262\211\306V\205| \314E\"\205| \315 \316!#B\207" [date entry diary-make-date 2 100 29 0 abs 4 400 3 1 calendar-date-equal format diary-ordinal-suffix] 16 (#$ . 76417)])
#@579 Cycle diary entry--entry applies every N days starting at MONTH, DAY, YEAR.
The order of the input parameters changes according to
`calendar-date-style' (e.g. to N DAY MONTH YEAR in the European
style). The entry can contain `%d' or `%d%s'; the %d will be
replaced by the number of repetitions since the MONTH DAY YEAR,
and %s by the ordinal ending of that number (that is, `st', `nd',
`rd' or `th', as appropriate).
An optional parameter MARK specifies a face or single-character
string to use when highlighting the day in the calendar.
(fn N MONTH DAY YEAR &optional MARK)
(defalias 'diary-cyclic #[1284 "\302V\204\n \303\304!\210\211\3058\262\306\302U\203 \303\307!\202X\302V\203\222 S\262\310\211\211@\262\211A@\262\3058\262\311S_\\\305V\203 \211\312\313_\\\314\245Z\262\211\302W\203` \315!S\262\211\313\246\302U\205v \211\316\246\302U?\206v \211\317\246\302U\262\203 \211T\262\266\204\320_\313\245\316\245[\317\245%\202X\315T!\262\321\211\211@\262\211A@\262\3058\262\311S_\\\305V\203\357 \211\312\313_\\\314\245Z\262\211\302W\203\320 \315!S\262\211\313\246\302U\205\346 \211\316\246\302U?\206\346 \211\317\246\302U\262\203\357 \211T\262\266\204\320_\313\245\316\245[\317\245\322\211\211@\262\211A@\262\3058\262\311S_\\\305V\203T\211\312\313_\\\314\245Z\262\211\302W\2035\315!S\262\211\313\246\302U\205K\211\316\246\302U?\206K\211\317\246\302U\262\203T\211T\262\266\204&\266\203\323#\211\3058\262\306\302U\203r\303\307!\202\254\302V\203\346S\262\310\211\211@\262\211A@\262\3058\262\311S_\\\305V\203\323\211\312\313_\\\314\245Z\262\211\302W\203\264\315!S\262\211\313\246\302U\205\312\211\316\246\302U?\206\312\211\317\246\302U\262\203\323\211T\262\266\204\320_\313\245\316\245[\317\245%\202\254\315T!\262\321\211\211@\262\211A@\262\3058\262\311S_\\\305V\203C\211\312\313_\\\314\245Z\262\211\302W\203$\315!S\262\211\313\246\302U\205:\211\316\246\302U?\206:\211\317\246\302U\262\203C\211T\262\266\204\320_\313\245\316\245[\317\245\322\211\211@\262\211A@\262\3058\262\311S_\\\305V\203\250\211\312\313_\\\314\245Z\262\211\302W\203\211\315!S\262\211\313\246\302U\205\237\211\316\246\302U?\206\237\211\317\246\302U\262\203\250\211T\262\266\204&\266\203Z\211\245\302Y\205\313\246\302U\205\313\324 \325!#B\207" [date entry 0 user-error "Day count must be positive" 2 nil "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) diary-make-date format diary-ordinal-suffix] 24 (#$ . 77549)])
#@75 Day of year and number of days remaining in the year of date diary entry.
(defalias 'diary-day-of-year #[0 "\301!\207" [date calendar-day-of-year-string] 2 (#$ . 80139)])
#@892 Provide a reminder of a diary entry.
SEXP is a diary-sexp. DAYS is either a single number or a list
of numbers indicating the number(s) of days before the event that
the warning(s) should occur on. A negative number -DAYS has the
same meaning as a list (1 2 ... DAYS). If the current date
is (one of) DAYS before the event indicated by SEXP, then this function
returns a suitable message (as specified by `diary-remind-message').
In addition to the reminders beforehand, the diary entry also
appears on the date itself.
A `diary-nonmarking-symbol' at the beginning of the line of the
`diary-remind' entry specifies that the diary entry (not the
reminder) is non-marking. Marking of reminders is independent of
whether the entry itself is a marking or nonmarking; if optional
parameter MARKING is non-nil then the reminders are marked on the
calendar.
(fn SEXP DAYS &optional MARKING)
(defalias 'diary-remind #[770 "\250\203 \306W\203 \307\310[\"\262\311!\211\203& \203\" \n\203& \202\300\250\203\250\204\250 \2037 \211\203\250\312 \211\3138\262\314\306U\203L \315\316!\202\206\306V\203\300 S\262\317\211\211@\262\211A@\262\3138\262\320S_\\\313V\203\255 \211\321\322_\\\323\245Z\262\211\306W\203\216 \324!S\262\211\322\246\306U\205\244 \211\325\246\306U?\206\244 \211\326\246\306U\262\203\255 \211T\262\266\204\327_\322\245\325\245[\326\245%\202\206\324T!\262\330\211\211@\262\211A@\262\3138\262\320S_\\\313V\203 \211\321\322_\\\323\245Z\262\211\306W\203\376 \324!S\262\211\322\246\306U\205\211\325\246\306U?\206\211\326\246\306U\262\203 \211T\262\266\204\327_\322\245\325\245[\326\245\331\211\211@\262\211A@\262\3138\262\320S_\\\313V\203\202\211\321\322_\\\323\245Z\262\211\306W\203c\324!S\262\211\322\246\306U\205y\211\325\246\306U?\206y\211\326\246\306U\262\203\202\211T\262\266\204&\266\203\\!\311!\211\205\244:\203\234A \332\311
\333#))\202\300<\205\300\205\300\334@#\206\300\334A#)\207" [diary-entry diary-marking-entries-flag diary-marking-entry-flag date days diary-remind-message 0 number-sequence 1 eval calendar-gregorian-from-absolute 2 nil user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) mapconcat "" diary-remind] 23 (#$ . 80318)])
#@348 Insert a diary entry STRING which may be NONMARKING in FILE.
If omitted, NONMARKING defaults to nil and FILE defaults to
`diary-file'. If OMIT-TRAILING-SPACE is non-nil, then do not add
a trailing space to the entry. If DO-NOT-SHOW is non-nil, do not
show the diary buffer.
(fn STRING &optional NONMARKING FILE OMIT-TRAILING-SPACE DO-NOT-SHOW)
(defalias 'diary-make-entry #[1281 "r\206 \203 \305!\202 \206 \306 \307!)\262q\210\n\310\302!=\203* \311 \210~\210\312 \210db\210\313\314\315d\316Ze]\313#)\203J \317 \210\320c\210\321y\210n\203R \322\202S \320\203[ \f\202\\ \322\203f \322\202g \323\261)\207" [diary-file pop-up-frames major-mode case-fold-search diary-nonmarking-symbol find-file-noselect window-dedicated-p find-file-other-window default-value diary-mode diary-unhide-everything t search-backward "Local Variables:" 3000 beginning-of-line "\n" -1 "" " "] 9 (#$ . 82628)])
#@129 Insert a diary entry for the date indicated by point.
Prefix argument ARG makes the entry nonmarking.
(fn ARG &optional EVENT)
(defalias 'diary-insert-entry #[513 "\300\301\302\303\"\303\211#\"\207" [diary-make-entry calendar-date-string calendar-cursor-to-date t] 7 (#$ . 83540) (list current-prefix-arg last-nonmenu-event)])
#@131 Insert a weekly diary entry for the day of the week indicated by point.
Prefix argument ARG makes the entry nonmarking.
(fn ARG)
(defalias 'diary-insert-weekly-entry #[257 "\300\301\302\303!!\"\207" [diary-make-entry calendar-day-name calendar-cursor-to-date t] 5 (#$ . 83877) "P"])
#@151 Return value for `calendar-date-display-form' using `calendar-date-style'.
Optional symbol TYPE is either `monthly' or `yearly'.
(fn &optional TYPE)
(defalias 'diary-date-display-form #[256 "\211\301\267\202 \302\267\202 \303\207\304\207\305\207\306\267\202 \307\207\310\207\311\207\312\267\202( \313\207\314\207\315\207" [calendar-date-style #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (monthly 6 yearly 18)) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (iso 12 european 14)) ((format "*-*-%.2d" (string-to-number day))) (day " * ") ("* " day) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (iso 24 european 26)) ((format "*-%.2d-%.2d" (string-to-number month) (string-to-number day))) (day " " monthname) (monthname " " day) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (iso 36 european 38)) ((format "%s %.2d %.2d" year (string-to-number month) (string-to-number day))) (day " " month " " year) (month " " day " " year)] 3 (#$ . 84169)])
#@402 Subroutine to insert a diary entry related to the date at point.
TYPE is the type of entry (`monthly' or `yearly'). NOMARK non-nil
means make the entry non-marking. Array MONTHS is used in place
of `calendar-month-name-array'. String SYMBOL marks the type of
diary entry. Function ABSFUNC converts absolute dates to dates of
the appropriate type.
(fn &optional TYPE NOMARK MONTHS SYMBOL ABSFUNC)
(defalias 'diary-insert-entry-1 #[1280 "\203\n \302!\202 \206 \303\304!\305\306\307\206 \310\311\203}\211\3128\262\313\314U\203= \315\316!\202w\314V\203\261 S\262\317\211\211@\262\211A@\262\3128\262\320S_\\\312V\203\236 \211\321\322_\\\323\245Z\262\211\314W\203 \324!S\262\211\322\246\314U\205\225 \211\325\246\314U?\206\225 \211\326\246\314U\262\203\236 \211T\262\266\204\327_\322\245\325\245[\326\245%\202w\324T!\262\330\211\211@\262\211A@\262\3128\262\320S_\\\312V\203\211\321\322_\\\323\245Z\262\211\314W\203\357 \324!S\262\211\322\246\314U\205\211\325\246\314U?\206\211\326\246\314U\262\203\211T\262\266\204\327_\322\245\325\245[\326\245\331\211\211@\262\211A@\262\3128\262\320S_\\\312V\203s\211\321\322_\\\323\245Z\262\211\314W\203T\324!S\262\211\322\246\314U\205j\211\325\246\314U?\206j\211\326\246\314U\262\203s\211T\262\266\204&\266\203!\202~ ??##\"*\207" [calendar-date-display-form calendar-month-name-array diary-date-display-form calendar-cursor-to-date t diary-make-entry format "%s%s" "" calendar-date-string 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1)] 32 (#$ . 85283)])
#@133 Insert a monthly diary entry for the day of the month indicated by point.
Prefix argument ARG makes the entry nonmarking.
(fn ARG)
(defalias 'diary-insert-monthly-entry #[257 "\300\301\"\207" [diary-insert-entry-1 monthly] 4 (#$ . 86934) "P"])
#@132 Insert an annual diary entry for the day of the year indicated by point.
Prefix argument ARG makes the entry nonmarking.
(fn ARG)
(defalias 'diary-insert-yearly-entry #[257 "\300\301\"\207" [diary-insert-entry-1 yearly] 4 (#$ . 87187) "P"])
#@122 Insert an anniversary diary entry for the date given by point.
Prefix argument ARG makes the entry nonmarking.
(fn ARG)
(defalias 'diary-insert-anniversary-entry #[257 "\302 \303\304\305 \306\307\310!\311\310##\")\207" [calendar-date-display-form diary-sexp-entry-symbol diary-date-display-form diary-make-entry format "%s(diary-anniversary %s)" calendar-date-string calendar-cursor-to-date t nil] 9 (#$ . 87437) "P"])
#@134 Insert a block diary entry for the days between the point and marked date.
Prefix argument ARG makes the entry nonmarking.
(fn ARG)
(defalias 'diary-insert-block-entry #[257 "\303 \304\305!@\206
\306\307!\310\211\211\3118\262\310\312U\203% \313\314!\202_\312V\203\231 S\262\315\211\211@\262\211A@\262\3118\262\316S_\\\311V\203\206 \211\317\320_\\\321\245Z\262\211\312W\203g \322!S\262\211\320\246\312U\205} \211\323\246\312U?\206} \211\324\246\312U\262\203\206 \211T\262\266\204\325_\320\245\323\245[\324\245%\202_\322T!\262\326\211\211@\262\211A@\262\3118\262\316S_\\\311V\203\366 \211\317\320_\\\321\245Z\262\211\312W\203\327 \322!S\262\211\320\246\312U\205\355 \211\323\246\312U?\206\355 \211\324\246\312U\262\203\366 \211T\262\266\204\325_\320\245\323\245[\324\245\327\211\211@\262\211A@\262\3118\262\316S_\\\311V\203[\211\317\320_\\\321\245Z\262\211\312W\203<\322!S\262\211\320\246\312U\205R\211\323\246\312U?\206R\211\324\246\312U\262\203[\211T\262\266\204&\266\203\211\3118\262\310\312U\203u\313\314!\202\257\312V\203\351S\262\315\211\211@\262\211A@\262\3118\262\316S_\\\311V\203\326\211\317\320_\\\321\245Z\262\211\312W\203\267\322!S\262\211\320\246\312U\205\315\211\323\246\312U?\206\315\211\324\246\312U\262\203\326\211T\262\266\204\325_\320\245\323\245[\324\245%\202\257\322T!\262\326\211\211@\262\211A@\262\3118\262\316S_\\\311V\203F\211\317\320_\\\321\245Z\262\211\312W\203'\322!S\262\211\320\246\312U\205=\211\323\246\312U?\206=\211\324\246\312U\262\203F\211T\262\266\204\325_\320\245\323\245[\324\245\327\211\211@\262\211A@\262\3118\262\316S_\\\311V\203\253\211\317\320_\\\321\245Z\262\211\312W\203\214\322!S\262\211\320\246\312U\205\242\211\323\246\312U?\206\242\211\324\246\312U\262\203\253\211T\262\266\204&\266\203W\203\276\262\262\202\304\262\262\330\331\332\n\333\310\305#\333\310\305#$\")\207" [calendar-mark-ring calendar-date-display-form diary-sexp-entry-symbol diary-date-display-form calendar-cursor-to-date t error "No mark set in this buffer" nil 2 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) diary-make-entry format "%s(diary-block %s %s)" calendar-date-string] 25 (#$ . 87866) "P"])
#@124 Insert a cyclic diary entry starting at the date given by point.
Prefix argument ARG makes the entry nonmarking.
(fn ARG)
(defalias 'diary-insert-cyclic-entry #[257 "\302 \303\304\305 \306\307\310\"\311\312\313!\314\313#$\")\207" [calendar-date-display-form diary-sexp-entry-symbol diary-date-display-form diary-make-entry format "%s(diary-cyclic %d %s)" calendar-read "Repeat every how many days: " #[257 "\211\300V\207" [0] 3 "\n\n(fn X)"] calendar-date-string calendar-cursor-to-date t nil] 10 (#$ . 90212) "P"])
#@71 If `calendar-buffer' is live and diary entries are marked, redraw it.
(defalias 'diary-redraw-calendar #[0 "\203 \212\301 \210)\302\207" [calendar-mark-diary-entries-flag calendar-redraw nil] 1 (#$ . 90737)])
#@26 Keymap for `diary-mode'.
(defvar diary-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\211\207" [make-sparse-keymap define-key "" diary-show-all-entries "" quit-window] 5) (#$ . 90954))
#@70 Recognize sexp diary entry up to LIMIT for font-locking.
(fn LIMIT)
(defalias 'diary-font-lock-sexps #[257 "\302\303\304\305!\305 !#\306#\205, \3071* \214e}\210`\310\311!\210\312`D!\210\306\262)0\207\210\306\207" [diary-nonmarking-symbol diary-sexp-entry-symbol re-search-forward format "^%s?\\(%s\\)" regexp-quote t (error) forward-sexp 1 store-match-data] 7 (#$ . 91165)])
#@325 Create font-lock patterns for `diary-date-forms' using MONTH-ARRAY.
If given, optional SYMBOL must be a prefix to entries. If
optional ABBREV-ARRAY is present, also matches the abbreviations
from this array (with or without a final `.'), in addition to the
full month names.
(fn MONTH-ARRAY &optional SYMBOL ABBREV-ARRAY)
(defalias 'diary-font-lock-date-forms #[769 "\306 \307#\310\311\306\"\"\312\211 \313 \314\315\316\317\320\321!\322\"\323\324%\"-\207" [calendar-day-name-array calendar-day-abbrev-array dayname monthname month day diary-name-pattern t format "\\(%s\\|\\*\\)" "\\([0-9]+\\|\\*\\)" "-?\\([0-9]+\\|\\*\\)" mapcar make-byte-code 257 "\302\303 !\304\300\203 \303\300!\202 \305\306\307\310@\311=\203% \312A!A\237\202' \305#@\311=\203= \313\310\312 !@!P\202> \313\260\314B\207" vconcat vector [diary-nonmarking-symbol "^" regexp-quote "?" "" "\\(" mapconcat eval backup reverse "\\)" (1 'diary)] 11 "\n\n(fn X)" year diary-date-forms] 11 (#$ . 91553)])
#@311 Subroutine of the function `diary-font-lock-keywords'.
If MARKFUNC is a member of `diary-nongregorian-marking-hook', or
LISTFUNC of `diary-nongregorian-listing-hook', then require FEATURE and
return a font-lock pattern matching array of MONTHS and marking SYMBOL.
(fn MARKFUNC LISTFUNC FEATURE MONTHS SYMBOL)
(defalias 'diary-font-lock-keywords-1 '(macro . #[1285 "\300\301\302\303D\304BB\302\303D\305BBE\306\303DD\307EF\207" [when or memq quote (diary-nongregorian-marking-hook) (diary-nongregorian-listing-hook) require diary-font-lock-date-forms] 11 (#$ . 92552)]))
#@44 Regular expression matching a time of day.
(defconst diary-time-regexp "[0-9]?[0-9]\\([AaPp][mM]\\|\\([Hh]\\([0-9][0-9]\\)?\\|[:.][0-9][0-9]\\)\\([AaPp][Mm]\\)?\\)" (#$ . 93136))
#@61 Return a value for the variable `diary-font-lock-keywords'.
(defalias 'diary-font-lock-keywords #[0 "\306\307\310 #\311\n>\204 \312 >\205 \313\314!\210\307\f
\"\315\n>\204& \316 >\2050 \313\317!\210\307&'\"\320\n>\204< \321 >\205F \313\322!\210\307()\"\323\n>\204R \324 >\205\\ \313\325!\210\307*+\"\326\327\330,!\"\331B\326\332\330-!\330.!#\333B\326\334\330-!\"\335B\326\336\330-!\337\340\330
')+F\"\341\"#\342B\343\326\344/\211#\345B\257&\207" [calendar-month-name-array calendar-month-abbrev-array diary-nongregorian-marking-hook diary-nongregorian-listing-hook calendar-hebrew-month-name-array-leap-year diary-hebrew-entry-symbol append diary-font-lock-date-forms nil diary-hebrew-mark-entries diary-hebrew-list-entries require cal-hebrew diary-islamic-mark-entries diary-islamic-list-entries cal-islam diary-bahai-mark-entries diary-bahai-list-entries cal-bahai diary-chinese-mark-entries diary-chinese-list-entries cal-china format "^%s.*$" regexp-quote font-lock-keyword-face "^%s?\\(%s\\)" (1 font-lock-constant-face) "^%s" font-lock-constant-face "^%s?%s" regexp-opt mapcar t (1 font-lock-constant-face) (diary-font-lock-sexps . font-lock-keyword-face) "\\(^\\|\\s-\\)%s\\(-%s\\)?" (0 'diary-time t) calendar-islamic-month-name-array diary-islamic-entry-symbol calendar-bahai-month-name-array diary-bahai-entry-symbol calendar-chinese-month-name-array diary-chinese-entry-symbol diary-include-string diary-nonmarking-symbol diary-sexp-entry-symbol diary-time-regexp] 19 (#$ . 93321)])
#@37 Forms to highlight in `diary-mode'.
(defvar diary-font-lock-keywords (diary-font-lock-keywords) (#$ . 94841))
(defvar diary-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [diary-mode-hook variable-documentation put "Hook run after entering Diary mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp diary-mode-map definition-name diary-mode] 4)
(defvar diary-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" [diary-mode-abbrev-table diary-mode-map variable-documentation put purecopy "Keymap for `diary-mode'." boundp diary-mode-syntax-table definition-name diary-mode (lambda (#1=#:def-tmp-var) (defvar diary-mode-syntax-table #1#)) make-syntax-table "Syntax table for `diary-mode'." (lambda (#1#) (defvar diary-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `diary-mode'." derived-mode-parent] 5)
#@159 Major mode for editing the diary file.
This mode runs the hook `diary-mode-hook', as the final or penultimate step
during initialization.
\{diary-mode-map}
(defalias 'diary-mode #[0 "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210
\306\315!\210\316
\306\317!\210\306\320!\210 \321\322!\210\323\324\325\326\307$\210\323\327\325\326\307$\210 \203J )\330\331!\207" [delay-mode-hooks major-mode mode-name diary-mode-map diary-mode-syntax-table diary-mode-abbrev-table make-local-variable t kill-all-local-variables diary-mode "Diary" use-local-map set-syntax-table font-lock-defaults (diary-font-lock-keywords t) comment-start comment-end add-to-invisibility-spec (diary) add-hook after-save-hook diary-redraw-calendar nil after-revert-hook run-mode-hooks diary-mode-hook local-abbrev-table diary-comment-start diary-comment-end diary-header-line-flag diary-header-line-format header-line-format] 5 (#$ . 96071) nil])
#@112 Return a regexp matching the first line of a fancy diary date header.
This depends on the calendar date style.
(defalias 'diary-fancy-date-pattern #[0 "\306\307\310#\306\n\307\310#\311 \312 \313 \314\315\211\316\317\320#\307\310%-\321P\207" [calendar-day-name-array dayname calendar-month-name-array monthname day month diary-name-pattern nil t "1" "2" "3" replace-regexp-in-string "[0-9]+" mapconcat eval "" "\\(: .*\\)?" year calendar-date-display-form] 7 (#$ . 97020)])
#@64 Search for a fancy diary data header, up to LIMIT.
(fn LIMIT)
(defalias 'diary-fancy-date-matcher #[257 "\300\301\302\303 \"\304#\205 \305\306\224\306\225\307\304$\210\304\207" [re-search-forward format "%s\\(\n +.*\\)*\n=+$" diary-fancy-date-pattern t put-text-property 0 font-lock-multiline] 6 (#$ . 97505)])
#@47 Keywords to highlight in fancy diary display.
(defvar diary-fancy-font-lock-keywords (byte-code "\301\302\303\304\305\306\307\310\211#\311B\257\207" [diary-time-regexp (diary-fancy-date-matcher quote diary) ("^.*\\([aA]nniversary\\|[bB]irthday\\).*$" quote diary-anniversary) ("^.*Yahrzeit.*$" . font-lock-constant-face) ("^\\(Erev \\)?Rosh Hodesh.*" . font-lock-function-name-face) ("^Day.*omer.*$" . font-lock-builtin-face) ("^Parashat.*$" . font-lock-comment-face) format "\\(^\\|\\s-\\)%s\\(-%s\\)?" 'diary-time] 10) (#$ . 97825))
#@252 Function to use for `font-lock-fontify-region-function' in Fancy Diary.
Needed to handle multiline keyword in `diary-fancy-font-lock-keywords'.
Fontify the region between BEG and END, quietly unless VERBOSE is non-nil.
(fn BEG END &optional VERBOSE)
(defalias 'diary-fancy-font-lock-fontify-region-function #[770 "b\210\300y\210\301\302!\203 \303y\210\301\304!\203 \303y\300U\204 \301\305 !\203' \306 \262b\210\300y\210\301\304!\203: \307y\300U\204- \301\302!\203E \306\310!\262\311#\207" [0 looking-at "=+$" -1 " +[^ ]" diary-fancy-date-pattern line-beginning-position 1 2 font-lock-default-fontify-region] 7 (#$ . 98369)])
#@66 Keymap overriding minor-mode maps in `diary-fancy-display-mode'.
(defvar diary-fancy-overriding-map (make-sparse-keymap) (#$ . 99011))
(defvar diary-fancy-display-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [diary-fancy-display-mode-hook variable-documentation put "Hook run after entering Diary mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp diary-fancy-display-mode-map definition-name diary-fancy-display-mode] 4)
(defvar diary-fancy-display-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\322#\207" [diary-fancy-display-mode-abbrev-table diary-fancy-display-mode-map variable-documentation put purecopy "Keymap for `diary-fancy-display-mode'." boundp diary-fancy-display-mode-syntax-table definition-name diary-fancy-display-mode (lambda (#1=#:def-tmp-var) (defvar diary-fancy-display-mode-syntax-table #1#)) make-syntax-table "Syntax table for `diary-fancy-display-mode'." (lambda (#1#) (defvar diary-fancy-display-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `diary-fancy-display-mode'." derived-mode-parent special-mode] 5)
#@288 Major mode used while displaying diary entries using Fancy Display.
In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `diary-fancy-display-mode-hook', as the final or penultimate step
during initialization.
\{diary-fancy-display-mode-map}
(defalias 'diary-fancy-display-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
=\204R \326
\325 C#\210\327 !\210\330\f!\210
\306\331!\210\332\306\333!\210\307!BC\334\335!\210)\336\337!\207" [delay-mode-hooks major-mode mode-name diary-fancy-display-mode-map diary-fancy-display-mode-syntax-table diary-fancy-display-mode-abbrev-table make-local-variable t special-mode diary-fancy-display-mode "Diary" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table font-lock-defaults (diary-fancy-font-lock-keywords t nil nil nil (font-lock-fontify-region-function . diary-fancy-font-lock-fontify-region-function)) minor-mode-overriding-map-alist view-mode 1 run-mode-hooks diary-fancy-display-mode-hook local-abbrev-table diary-fancy-overriding-map] 5 (#$ . 100475) nil])
#@293 Snarf a diary entry from a message assumed to be from MS Outlook.
SUBJECT and BODY are strings giving the message subject and body.
Arg TEST-ONLY non-nil means return non-nil if and only if the
message contains an appointment, don't make a diary entry.
(fn SUBJECT BODY &optional TEST-ONLY)
(defalias 'diary-from-outlook-internal #[770 "\3012b \302\211\203^ \211@\303@\"\304=\203W \204R \211A\262\212\305 \306\304\307\310\311!\312\"\313$\216\314\315\316\317!\203@ !\202B \320\302\321\304
\"$ \"!\210)\210)\322\301\320\"\210A\266\202\202 \266\3020\207" [diary-outlook-formats finished nil string-match 0 current-window-configuration make-byte-code "\301\300!\207" vconcat vector [set-window-configuration] 2 diary-make-entry format replace-match functionp t match-string throw] 16 (#$ . 101843)])
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\207" [autoload gnus-fetch-field "gnus-util" gnus-narrow-to-body "gnus" mm-get-part "mm-decode"] 3)
#@361 Maybe snarf diary entry from Outlook-generated message in Gnus.
Unless the optional argument NOCONFIRM is non-nil (which is the case when
this function is called interactively), then if an entry is found the
user is asked to confirm its addition.
Add this function to `gnus-article-prepare-hook' to notice appointments
automatically.
(fn &optional NOCONFIRM)
(defalias 'diary-from-outlook-gnus #[256 "rq\210\302\303! \203 \304 A@!\202 \214\305 \210\306 )\307\310#\2054 \204, \311\312!\2054 \307\"\210\313\314!\266\202)\207" [gnus-article-buffer gnus-article-mime-handles gnus-fetch-field "subject" mm-get-part gnus-narrow-to-body buffer-string diary-from-outlook-internal t y-or-n-p "Snarf diary entry? " message "Diary entry added"] 7 (#$ . 102829) "p"])
(custom-add-option 'gnus-article-prepare-hook 'diary-from-outlook-gnus)
#@275 Maybe snarf diary entry from Outlook-generated message in Rmail.
Unless the optional argument NOCONFIRM is non-nil (which is the case when
this function is called interactively), then if an entry is found the
user is asked to confirm its addition.
(fn &optional NOCONFIRM)
(defalias 'diary-from-outlook-rmail #[256 "rq\210\301\302!\212\303 \210`)d{\304\305#\205) \204! \306\307!\205) \304\"\210\310\311!\266\202)\207" [rmail-buffer mail-fetch-field "subject" rfc822-goto-eoh diary-from-outlook-internal t y-or-n-p "Snarf diary entry? " message "Diary entry added"] 7 (#$ . 103673) "p"])
#@366 If non-nil, a function of one argument for `diary-from-outlook' to call.
If the current buffer contains an Outlook-style appointment message,
this function should extract it into a diary entry. If the argument is
nil, it should ask for confirmation before adding this entry to the diary.
For examples, see `diary-from-outlook-rmail' and `diary-from-outlook-gnus'.
(defvar diary-from-outlook-function nil (#$ . 104274))
#@410 Maybe snarf diary entry from current Outlook-generated message.
Uses `diary-from-outlook-function' if that is non-nil, else
`diary-from-outlook-rmail' for Rmail or `diary-from-outlook-gnus' for Gnus.
Unless the optional argument NOCONFIRM is non-nil (which is the
case when this function is called interactively), then if an
entry is found the user is asked to confirm its addition.
(fn &optional NOCONFIRM)
(defalias 'diary-from-outlook #[256 "\206 \302\267\202 \303\202 \304\202 \305\306 \"\211!\207" [diary-from-outlook-function major-mode #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (rmail-mode 10 gnus-summary-mode 14 gnus-article-mode 14)) diary-from-outlook-rmail diary-from-outlook-gnus error "Don't know how to snarf in `%s'"] 4 (#$ . 104701) "p"])
(provide 'diary-lib)
Mini Shell