/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / lisp / diary.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 4d 6f | 6e 20 4a 75 6c 20 20 35 |du on Mo|n Jul  5|
|00000040| 20 32 32 3a 34 35 3a 33 | 38 20 31 39 39 33 0a 3b | 22:45:3|8 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 64 69 61 | 72 79 2e 65 6c 0a 3b 3b |lisp/dia|ry.el.;;|
|00000080| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|00000090| 31 39 2e 31 35 2e 31 36 | 2e 0a 3b 3b 3b 20 62 79 |19.15.16|..;;; by|
|000000a0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 46 |tecomp v|ersion F|
|000000b0| 53 46 20 32 2e 31 30 0a | 3b 3b 3b 20 6f 70 74 69 |SF 2.10.|;;; opti|
|000000c0| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|000000d0| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|000000e0| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|000000f0| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000100| 20 45 6d 61 63 73 20 31 | 38 2e 0a 0a 28 69 66 20 | Emacs 1|8...(if |
|00000110| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000120| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000130| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000140| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|00000150| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|00000160| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |..     (|string-l|
|00000170| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|00000180| 6f 6e 20 22 31 39 22 29 | 29 29 0a 20 20 20 20 28 |on "19")|)).    (|
|00000190| 65 72 72 6f 72 20 22 54 | 68 69 73 20 66 69 6c 65 |error "T|his file|
|000001a0| 20 77 61 73 20 63 6f 6d | 70 69 6c 65 64 20 66 6f | was com|piled fo|
|000001b0| 72 20 45 6d 61 63 73 20 | 31 39 22 29 29 0a 0a 28 |r Emacs |19"))..(|
|000001c0| 72 65 71 75 69 72 65 20 | 28 71 75 6f 74 65 20 63 |require |(quote c|
|000001d0| 61 6c 65 6e 64 61 72 29 | 29 0a 28 64 65 66 61 6c |alendar)|).(defal|
|000001e0| 69 61 73 20 27 64 69 61 | 72 79 20 23 5b 28 26 6f |ias 'dia|ry #[(&o|
|000001f0| 70 74 69 6f 6e 61 6c 20 | 61 72 67 29 20 22 c0 09 |ptional |arg) "..|
|00000200| 21 c2 20 1b 89 1c 83 41 | 00 c5 0c 21 83 41 00 c6 |!. ....A|...!.A..|
|00000210| 0c 21 83 3b 00 c7 0b 0e | 08 83 25 00 c9 0e 08 21 |.!.;....|..%....!|
|00000220| 82 37 00 ca 0e 0b 21 83 | 35 00 0e 0b cc 0b 21 48 |.7....!.|5.....!H|
|00000230| 82 37 00 0e 0b 5c 22 82 | 44 00 cd ce 21 82 44 00 |.7...\".|D...!.D.|
|00000240| cd cf 21 2a 87 22 20 5b | 73 75 62 73 74 69 74 75 |..!*." [|substitu|
|00000250| 74 65 2d 69 6e 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |te-in-fi|le-name |
|00000260| 64 69 61 72 79 2d 66 69 | 6c 65 20 63 61 6c 65 6e |diary-fi|le calen|
|00000270| 64 61 72 2d 63 75 72 72 | 65 6e 74 2d 64 61 74 65 |dar-curr|ent-date|
|00000280| 20 64 61 74 65 20 64 2d | 66 69 6c 65 20 66 69 6c | date d-|file fil|
|00000290| 65 2d 65 78 69 73 74 73 | 2d 70 20 66 69 6c 65 2d |e-exists|-p file-|
|000002a0| 72 65 61 64 61 62 6c 65 | 2d 70 20 6c 69 73 74 2d |readable|-p list-|
|000002b0| 64 69 61 72 79 2d 65 6e | 74 72 69 65 73 20 61 72 |diary-en|tries ar|
|000002c0| 67 20 70 72 65 66 69 78 | 2d 6e 75 6d 65 72 69 63 |g prefix|-numeric|
|000002d0| 2d 76 61 6c 75 65 20 76 | 65 63 74 6f 72 70 20 6e |-value v|ectorp n|
|000002e0| 75 6d 62 65 72 2d 6f 66 | 2d 64 69 61 72 79 2d 65 |umber-of|-diary-e|
|000002f0| 6e 74 72 69 65 73 20 63 | 61 6c 65 6e 64 61 72 2d |ntries c|alendar-|
|00000300| 64 61 79 2d 6f 66 2d 77 | 65 65 6b 20 65 72 72 6f |day-of-w|eek erro|
|00000310| 72 20 22 59 6f 75 72 20 | 64 69 61 72 79 20 66 69 |r "Your |diary fi|
|00000320| 6c 65 20 69 73 20 6e 6f | 74 20 72 65 61 64 61 62 |le is no|t readab|
|00000330| 6c 65 21 22 20 22 59 6f | 75 20 64 6f 6e 27 74 20 |le!" "Yo|u don't |
|00000340| 68 61 76 65 20 61 20 64 | 69 61 72 79 20 66 69 6c |have a d|iary fil|
|00000350| 65 21 22 5d 20 36 20 22 | 5c 0a 47 65 6e 65 72 61 |e!"] 6 "|\.Genera|
|00000360| 74 65 20 74 68 65 20 64 | 69 61 72 79 20 77 69 6e |te the d|iary win|
|00000370| 64 6f 77 20 66 6f 72 20 | 41 52 47 20 64 61 79 73 |dow for |ARG days|
|00000380| 20 73 74 61 72 74 69 6e | 67 20 77 69 74 68 20 74 | startin|g with t|
|00000390| 68 65 20 63 75 72 72 65 | 6e 74 20 64 61 74 65 2e |he curre|nt date.|
|000003a0| 0a 49 66 20 6e 6f 20 61 | 72 67 75 6d 65 6e 74 20 |.If no a|rgument |
|000003b0| 69 73 20 70 72 6f 76 69 | 64 65 64 2c 20 74 68 65 |is provi|ded, the|
|000003c0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 64 61 79 73 20 | number |of days |
|000003d0| 6f 66 20 64 69 61 72 79 | 20 65 6e 74 72 69 65 73 |of diary| entries|
|000003e0| 20 69 73 20 67 6f 76 65 | 72 6e 65 64 0a 62 79 20 | is gove|rned.by |
|000003f0| 74 68 65 20 76 61 72 69 | 61 62 6c 65 20 60 6e 75 |the vari|able `nu|
|00000400| 6d 62 65 72 2d 6f 66 2d | 64 69 61 72 79 2d 65 6e |mber-of-|diary-en|
|00000410| 74 72 69 65 73 27 2e 20 | 20 54 68 69 73 20 66 75 |tries'. | This fu|
|00000420| 6e 63 74 69 6f 6e 20 69 | 73 20 73 75 69 74 61 62 |nction i|s suitab|
|00000430| 6c 65 20 66 6f 72 0a 65 | 78 65 63 75 74 69 6f 6e |le for.e|xecution|
|00000440| 20 69 6e 20 61 20 2e 65 | 6d 61 63 73 20 66 69 6c | in a .e|macs fil|
|00000450| 65 2e 22 20 22 50 22 5d | 29 0a 28 64 65 66 61 6c |e." "P"]|).(defal|
|00000460| 69 61 73 20 27 76 69 65 | 77 2d 64 69 61 72 79 2d |ias 'vie|w-diary-|
|00000470| 65 6e 74 72 69 65 73 20 | 23 5b 28 61 72 67 29 20 |entries |#[(arg) |
|00000480| 22 c0 09 21 89 1a 83 29 | 00 c3 5c 6e 21 83 29 00 |"..!...)|..\n!.).|
|00000490| c4 5c 6e 21 83 23 00 c5 | c6 20 86 1d 00 c7 c8 21 |.\n!.#..|. .....!|
|000004a0| 0e 09 5c 22 82 2c 00 c7 | ca 21 82 2c 00 c7 cb 21 |..\".,..|.!.,...!|
|000004b0| 29 87 22 20 5b 73 75 62 | 73 74 69 74 75 74 65 2d |)." [sub|stitute-|
|000004c0| 69 6e 2d 66 69 6c 65 2d | 6e 61 6d 65 20 64 69 61 |in-file-|name dia|
|000004d0| 72 79 2d 66 69 6c 65 20 | 64 2d 66 69 6c 65 20 66 |ry-file |d-file f|
|000004e0| 69 6c 65 2d 65 78 69 73 | 74 73 2d 70 20 66 69 6c |ile-exis|ts-p fil|
|000004f0| 65 2d 72 65 61 64 61 62 | 6c 65 2d 70 20 6c 69 73 |e-readab|le-p lis|
|00000500| 74 2d 64 69 61 72 79 2d | 65 6e 74 72 69 65 73 20 |t-diary-|entries |
|00000510| 63 61 6c 65 6e 64 61 72 | 2d 63 75 72 73 6f 72 2d |calendar|-cursor-|
|00000520| 74 6f 2d 64 61 74 65 20 | 65 72 72 6f 72 20 22 43 |to-date |error "C|
|00000530| 75 72 73 6f 72 20 69 73 | 20 6e 6f 74 20 6f 6e 20 |ursor is| not on |
|00000540| 61 20 64 61 74 65 21 22 | 20 61 72 67 20 22 59 6f |a date!"| arg "Yo|
|00000550| 75 72 20 64 69 61 72 79 | 20 66 69 6c 65 20 69 73 |ur diary| file is|
|00000560| 20 6e 6f 74 20 72 65 61 | 64 61 62 6c 65 21 22 20 | not rea|dable!" |
|00000570| 22 59 6f 75 20 64 6f 6e | 27 74 20 68 61 76 65 20 |"You don|'t have |
|00000580| 61 20 64 69 61 72 79 20 | 66 69 6c 65 21 22 5d 20 |a diary |file!"] |
|00000590| 34 20 22 5c 0a 50 72 65 | 70 61 72 65 20 61 6e 64 |4 "\.Pre|pare and|
|000005a0| 20 64 69 73 70 6c 61 79 | 20 61 20 62 75 66 66 65 | display| a buffe|
|000005b0| 72 20 77 69 74 68 20 64 | 69 61 72 79 20 65 6e 74 |r with d|iary ent|
|000005c0| 72 69 65 73 2e 0a 53 65 | 61 72 63 68 65 73 20 74 |ries..Se|arches t|
|000005d0| 68 65 20 66 69 6c 65 20 | 64 69 61 72 79 2d 66 69 |he file |diary-fi|
|000005e0| 6c 65 20 66 6f 72 20 65 | 6e 74 72 69 65 73 20 74 |le for e|ntries t|
|000005f0| 68 61 74 20 6d 61 74 63 | 68 20 41 52 47 20 64 61 |hat matc|h ARG da|
|00000600| 79 73 20 73 74 61 72 74 | 69 6e 67 20 77 69 74 68 |ys start|ing with|
|00000610| 0a 74 68 65 20 64 61 74 | 65 20 69 6e 64 69 63 61 |.the dat|e indica|
|00000620| 74 65 64 20 62 79 20 74 | 68 65 20 63 75 72 73 6f |ted by t|he curso|
|00000630| 72 20 70 6f 73 69 74 69 | 6f 6e 20 69 6e 20 74 68 |r positi|on in th|
|00000640| 65 20 64 69 73 70 6c 61 | 79 65 64 20 74 68 72 65 |e displa|yed thre|
|00000650| 65 2d 6d 6f 6e 74 68 0a | 63 61 6c 65 6e 64 61 72 |e-month.|calendar|
|00000660| 2e 22 20 22 70 22 5d 29 | 0a 28 61 75 74 6f 6c 6f |." "p"])|.(autolo|
|00000670| 61 64 20 28 71 75 6f 74 | 65 20 63 68 65 63 6b 2d |ad (quot|e check-|
|00000680| 63 61 6c 65 6e 64 61 72 | 2d 68 6f 6c 69 64 61 79 |calendar|-holiday|
|00000690| 73 29 20 22 68 6f 6c 69 | 64 61 79 73 22 20 22 5c |s) "holi|days" "\|
|000006a0| 0a 43 68 65 63 6b 20 74 | 68 65 20 6c 69 73 74 20 |.Check t|he list |
|000006b0| 6f 66 20 68 6f 6c 69 64 | 61 79 73 20 66 6f 72 20 |of holid|ays for |
|000006c0| 61 6e 79 20 74 68 61 74 | 20 6f 63 63 75 72 20 6f |any that| occur o|
|000006d0| 6e 20 44 41 54 45 2e 0a | 54 68 65 20 76 61 6c 75 |n DATE..|The valu|
|000006e0| 65 20 72 65 74 75 72 6e | 65 64 20 69 73 20 61 20 |e return|ed is a |
|000006f0| 6c 69 73 74 20 6f 66 20 | 73 74 72 69 6e 67 73 20 |list of |strings |
|00000700| 6f 66 20 72 65 6c 65 76 | 61 6e 74 20 68 6f 6c 69 |of relev|ant holi|
|00000710| 64 61 79 20 64 65 73 63 | 72 69 70 74 69 6f 6e 73 |day desc|riptions|
|00000720| 2e 0a 54 68 65 20 68 6f | 6c 69 64 61 79 73 20 61 |..The ho|lidays a|
|00000730| 72 65 20 74 68 6f 73 65 | 20 69 6e 20 74 68 65 20 |re those| in the |
|00000740| 6c 69 73 74 20 63 61 6c | 65 6e 64 61 72 2d 68 6f |list cal|endar-ho|
|00000750| 6c 69 64 61 79 73 2e 22 | 20 74 29 0a 28 61 75 74 |lidays."| t).(aut|
|00000760| 6f 6c 6f 61 64 20 28 71 | 75 6f 74 65 20 63 61 6c |oload (q|uote cal|
|00000770| 65 6e 64 61 72 2d 68 6f | 6c 69 64 61 79 2d 6c 69 |endar-ho|liday-li|
|00000780| 73 74 29 20 22 68 6f 6c | 69 64 61 79 73 22 20 22 |st) "hol|idays" "|
|00000790| 5c 0a 46 6f 72 6d 20 74 | 68 65 20 6c 69 73 74 20 |\.Form t|he list |
|000007a0| 6f 66 20 68 6f 6c 69 64 | 61 79 73 20 74 68 61 74 |of holid|ays that|
|000007b0| 20 6f 63 63 75 72 20 6f | 6e 20 64 61 74 65 73 20 | occur o|n dates |
|000007c0| 69 6e 20 74 68 65 20 63 | 61 6c 65 6e 64 61 72 20 |in the c|alendar |
|000007d0| 77 69 6e 64 6f 77 2e 0a | 54 68 65 20 68 6f 6c 69 |window..|The holi|
|000007e0| 64 61 79 73 20 61 72 65 | 20 74 68 6f 73 65 20 69 |days are| those i|
|000007f0| 6e 20 74 68 65 20 6c 69 | 73 74 20 63 61 6c 65 6e |n the li|st calen|
|00000800| 64 61 72 2d 68 6f 6c 69 | 64 61 79 73 2e 22 20 74 |dar-holi|days." t|
|00000810| 29 0a 28 61 75 74 6f 6c | 6f 61 64 20 28 71 75 6f |).(autol|oad (quo|
|00000820| 74 65 20 64 69 61 72 79 | 2d 66 72 65 6e 63 68 2d |te diary|-french-|
|00000830| 64 61 74 65 29 20 22 63 | 61 6c 2d 66 72 65 6e 63 |date) "c|al-frenc|
|00000840| 68 22 20 22 5c 0a 46 72 | 65 6e 63 68 20 63 61 6c |h" "\.Fr|ench cal|
|00000850| 65 6e 64 61 72 20 65 71 | 75 69 76 61 6c 65 6e 74 |endar eq|uivalent|
|00000860| 20 6f 66 20 64 61 74 65 | 20 64 69 61 72 79 20 65 | of date| diary e|
|00000870| 6e 74 72 79 2e 22 20 74 | 29 0a 28 61 75 74 6f 6c |ntry." t|).(autol|
|00000880| 6f 61 64 20 28 71 75 6f | 74 65 20 64 69 61 72 79 |oad (quo|te diary|
|00000890| 2d 6d 61 79 61 6e 2d 64 | 61 74 65 29 20 22 63 61 |-mayan-d|ate) "ca|
|000008a0| 6c 2d 6d 61 79 61 6e 22 | 20 22 5c 0a 4d 61 79 61 |l-mayan"| "\.Maya|
|000008b0| 6e 20 63 61 6c 65 6e 64 | 61 72 20 65 71 75 69 76 |n calend|ar equiv|
|000008c0| 61 6c 65 6e 74 20 6f 66 | 20 64 61 74 65 20 64 69 |alent of| date di|
|000008d0| 61 72 79 20 65 6e 74 72 | 79 2e 22 20 74 29 0a 28 |ary entr|y." t).(|
|000008e0| 61 75 74 6f 6c 6f 61 64 | 20 28 71 75 6f 74 65 20 |autoload| (quote |
|000008f0| 64 69 61 72 79 2d 70 68 | 61 73 65 73 2d 6f 66 2d |diary-ph|ases-of-|
|00000900| 6d 6f 6f 6e 29 20 22 6c | 75 6e 61 72 22 20 22 5c |moon) "l|unar" "\|
|00000910| 0a 4d 6f 6f 6e 20 70 68 | 61 73 65 73 20 64 69 61 |.Moon ph|ases dia|
|00000920| 72 79 20 65 6e 74 72 79 | 2e 22 20 74 29 0a 28 61 |ry entry|." t).(a|
|00000930| 75 74 6f 6c 6f 61 64 20 | 28 71 75 6f 74 65 20 64 |utoload |(quote d|
|00000940| 69 61 72 79 2d 73 75 6e | 72 69 73 65 2d 73 75 6e |iary-sun|rise-sun|
|00000950| 73 65 74 29 20 22 73 6f | 6c 61 72 22 20 22 5c 0a |set) "so|lar" "\.|
|00000960| 4c 6f 63 61 6c 20 74 69 | 6d 65 20 6f 66 20 73 75 |Local ti|me of su|
|00000970| 6e 72 69 73 65 20 61 6e | 64 20 73 75 6e 73 65 74 |nrise an|d sunset|
|00000980| 20 61 73 20 61 20 64 69 | 61 72 79 20 65 6e 74 72 | as a di|ary entr|
|00000990| 79 2e 22 20 74 29 0a 28 | 61 75 74 6f 6c 6f 61 64 |y." t).(|autoload|
|000009a0| 20 28 71 75 6f 74 65 20 | 64 69 61 72 79 2d 73 61 | (quote |diary-sa|
|000009b0| 62 62 61 74 68 2d 63 61 | 6e 64 6c 65 73 29 20 22 |bbath-ca|ndles) "|
|000009c0| 73 6f 6c 61 72 22 20 22 | 5c 0a 4c 6f 63 61 6c 20 |solar" "|\.Local |
|000009d0| 74 69 6d 65 20 6f 66 20 | 63 61 6e 64 6c 65 20 6c |time of |candle l|
|000009e0| 69 67 68 74 69 6e 67 20 | 64 69 61 72 79 20 65 6e |ighting |diary en|
|000009f0| 74 72 79 2d 2d 61 70 70 | 6c 69 65 73 20 69 66 20 |try--app|lies if |
|00000a00| 64 61 74 65 20 69 73 20 | 61 20 46 72 69 64 61 79 |date is |a Friday|
|00000a10| 2e 0a 4e 6f 20 64 69 61 | 72 79 20 65 6e 74 72 79 |..No dia|ry entry|
|00000a20| 20 69 66 20 74 68 65 72 | 65 20 69 73 20 6e 6f 20 | if ther|e is no |
|00000a30| 73 75 6e 73 65 74 20 6f | 6e 20 74 68 61 74 20 64 |sunset o|n that d|
|00000a40| 61 74 65 2e 22 20 74 29 | 0a 28 64 65 66 76 61 72 |ate." t)|.(defvar|
|00000a50| 20 64 69 61 72 79 2d 73 | 79 6e 74 61 78 2d 74 61 | diary-s|yntax-ta|
|00000a60| 62 6c 65 20 28 73 74 61 | 6e 64 61 72 64 2d 73 79 |ble (sta|ndard-sy|
|00000a70| 6e 74 61 78 2d 74 61 62 | 6c 65 29 20 22 5c 0a 54 |ntax-tab|le) "\.T|
|00000a80| 68 65 20 73 79 6e 74 61 | 78 20 74 61 62 6c 65 20 |he synta|x table |
|00000a90| 75 73 65 64 20 77 68 65 | 6e 20 70 61 72 73 69 6e |used whe|n parsin|
|00000aa0| 67 20 64 61 74 65 73 20 | 69 6e 20 74 68 65 20 64 |g dates |in the d|
|00000ab0| 69 61 72 79 20 66 69 6c | 65 2e 0a 49 74 20 69 73 |iary fil|e..It is|
|00000ac0| 20 74 68 65 20 73 74 61 | 6e 64 61 72 64 20 73 79 | the sta|ndard sy|
|00000ad0| 6e 74 61 78 20 74 61 62 | 6c 65 20 75 73 65 64 20 |ntax tab|le used |
|00000ae0| 69 6e 20 46 75 6e 64 61 | 6d 65 6e 74 61 6c 20 6d |in Funda|mental m|
|00000af0| 6f 64 65 2c 20 62 75 74 | 20 77 69 74 68 20 74 68 |ode, but| with th|
|00000b00| 65 0a 73 79 6e 74 61 78 | 20 6f 66 20 60 2a 27 20 |e.syntax| of `*' |
|00000b10| 63 68 61 6e 67 65 64 20 | 74 6f 20 62 65 20 61 20 |changed |to be a |
|00000b20| 77 6f 72 64 20 63 6f 6e | 73 74 69 74 75 65 6e 74 |word con|stituent|
|00000b30| 2e 22 29 0a 28 6d 6f 64 | 69 66 79 2d 73 79 6e 74 |.").(mod|ify-synt|
|00000b40| 61 78 2d 65 6e 74 72 79 | 20 34 32 20 22 77 22 20 |ax-entry| 42 "w" |
|00000b50| 64 69 61 72 79 2d 73 79 | 6e 74 61 78 2d 74 61 62 |diary-sy|ntax-tab|
|00000b60| 6c 65 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6c |le).(def|alias 'l|
|00000b70| 69 73 74 2d 64 69 61 72 | 79 2d 65 6e 74 72 69 65 |ist-diar|y-entrie|
|00000b80| 73 20 23 5b 28 64 61 74 | 65 20 6e 75 6d 62 65 72 |s #[(dat|e number|
|00000b90| 29 20 22 c0 09 57 85 7c | 02 5c 6e 1b c4 1d c4 1e |) "..W.||.\n.....|
|00000ba0| 06 c7 5c 6e 21 1e 08 c9 | 0e 5c 6e 21 1e 0b cc cd |..\n!...|.\n!....|
|00000bb0| 21 88 8a ce 0e 0b 21 89 | 1e 0f 83 2c 00 0e 0f 82 |!.....!.|...,....|
|00000bc0| 31 00 d0 0e 0b d1 5c 22 | 71 88 29 d1 16 12 c4 16 |1.....\"|q.).....|
|00000bd0| 13 d4 20 15 d5 0e 16 21 | 88 d7 8e c4 d8 20 d9 0e |.. ....!|..... ..|
|00000be0| 1a 21 1e 1b 1e 1c 1e 1d | 64 53 62 88 de df 21 84 |.!......|dSb...!.|
|00000bf0| 62 00 e0 75 88 e1 e2 21 | 88 65 62 88 de df 21 84 |b..u...!|.eb...!.|
|00000c00| 6f 00 e1 e2 21 88 e3 65 | 64 e4 e5 d1 25 88 c0 1e |o...!..e|d...%...|
|00000c10| 26 09 0e 26 54 89 16 26 | 59 83 5e 02 0e 27 5c 6e |&..&T..&|Y.^..'\n|
|00000c20| 40 5c 6e 41 40 5c 6e 41 | 41 40 e8 5c 6e 21 1e 29 |@\nA@\nA|A@.\n!.)|
|00000c30| 1e 2a 1e 2b 1e 2c 89 1e | 2d 83 b9 01 0e 2d 40 40 |.*.+.,..|-....-@@|
|00000c40| ee 9a 83 b1 00 0e 2d 40 | 41 82 b4 00 0e 2d 40 1e |......-@|A....-@.|
|00000c50| 2f 0e 2d 40 40 ee 9a 1e | 2e f0 5c 6e 21 f1 f0 5c |/.-@@...|..\n!..\|
|00000c60| 6e 21 c0 f2 4f f3 52 1e | 34 f5 f6 0e 2c 21 f1 f6 |n!..O.R.|4...,!..|
|00000c70| 0e 2c 21 c0 f2 4f f3 b0 | 05 1e 37 f8 f9 0e 2c 21 |.,!..O..|..7...,!|
|00000c80| 50 1e 2c f8 f9 0e 2b 21 | 50 1e 2b f8 f9 0e 2a 21 |P.,...+!|P.+...*!|
|00000c90| 0e 3a 83 03 01 f1 f9 0e | 2a fb a6 21 50 82 04 01 |.:......|*..!P...|
|00000ca0| fc 51 1e 2a fd 0e 1b fe | ff 81 40 00 0e 2f 81 41 |.Q.*....|..@../.A|
|00000cb0| 00 23 81 42 00 b0 05 1e | 43 d1 1e 44 65 62 88 81 |.#.B....|C..Deb..|
|00000cc0| 45 00 0e 43 c4 d1 23 83 | ae 01 0e 2e 83 3c 01 81 |E..C..#.|.....<..|
|00000cd0| 46 00 81 47 00 c4 d1 23 | 88 81 48 00 68 e5 5c 22 |F..G...#|..H.h.\"|
|00000ce0| 84 4e 01 81 48 00 68 e4 | 5c 22 83 5f 01 de 81 49 |.N..H.h.|\"._...I|
|00000cf0| 00 21 84 5f 01 81 4a 00 | e0 21 88 82 5c 22 01 d1 |.!._..J.|.!..\"..|
|00000d00| 16 29 60 c4 1e 4b 1e 4c | 81 46 00 81 4d 00 21 88 |.)`..K.L|.F..M.!.|
|00000d10| 60 16 4b 81 45 00 df c4 | d1 81 4e 00 24 88 de 81 |`.K.E...|..N.$...|
|00000d20| 49 00 21 83 91 01 81 45 | 00 df c4 d1 23 88 82 7e |I.!....E|....#..~|
|00000d30| 01 81 4a 00 e0 21 88 e3 | 0e 4b 60 e5 e4 d1 25 88 |..J..!..|.K`...%.|
|00000d40| 81 4f 00 5c 6e 0e 4c 60 | 7b 5c 22 88 2a 82 5c 22 |.O.\n.L`|{\".*.\"|
|00000d50| 01 2e 09 0e 2d 41 89 16 | 2d 84 a1 00 0e 29 84 cf |....-A..|-....)..|
|00000d60| 01 0e 50 83 cf 01 81 51 | 00 0e 06 5c 6e fc 44 43 |..P....Q|...\n.DC|
|00000d70| 5c 22 16 06 81 52 00 5c | 6e 41 41 40 1e 2a 5c 6e |\"...R.\|nAA@.*\n|
|00000d80| 40 1e 2c 5c 6e 41 40 1e | 2b 5c 6e 41 41 40 1e 2a |@.,\nA@.|+\nAA@.*|
|00000d90| 0e 2b 0e 2c 53 81 53 00 | 5f 5c 5c 1e 54 0e 2c 81 |.+.,S.S.|_\\.T.,.|
|00000da0| 4e 00 56 83 31 02 0e 54 | 0e 2c 81 55 00 5f 81 56 |N.V.1..T|.,.U._.V|
|00000db0| 00 5c 5c e4 a5 5a 16 54 | 0e 2a 81 55 00 a6 c0 55 |.\\..Z.T|.*.U...U|
|00000dc0| 83 31 02 0e 2a fb a6 c0 | 55 83 2c 02 0e 2a 81 57 |.1..*...|U.,..*.W|
|00000dd0| 00 a6 c0 55 83 31 02 0e | 54 54 16 54 0e 54 2c 0e |...U.1..|TT.T.T,.|
|00000de0| 2a 53 81 58 00 5f 0e 2a | 53 81 55 00 a5 0e 2a 53 |*S.X._.*|S.U...*S|
|00000df0| fb a5 5b 0e 2a 53 81 57 | 00 a5 5c 5c 5c 5c 5c 5c |..[.*S.W|..\\\\\\|
|00000e00| 5c 5c 29 54 21 12 c4 16 | 29 2d 82 7a 00 29 81 59 |\\)T!...|)-.z.).Y|
|00000e10| 00 0e 1c 21 88 2c 65 62 | 88 81 5a 00 81 5b 00 81 |...!.,eb|..Z..[..|
|00000e20| 5c 5c 00 81 5d 00 23 88 | 0e 06 2e 06 87 22 20 5b |\\..].#.|....." [|
|00000e30| 30 20 6e 75 6d 62 65 72 | 20 64 61 74 65 20 6f 72 |0 number| date or|
|00000e40| 69 67 69 6e 61 6c 2d 64 | 61 74 65 20 6e 69 6c 20 |iginal-d|ate nil |
|00000e50| 6f 6c 64 2d 64 69 61 72 | 79 2d 73 79 6e 74 61 78 |old-diar|y-syntax|
|00000e60| 2d 74 61 62 6c 65 20 64 | 69 61 72 79 2d 65 6e 74 |-table d|iary-ent|
|00000e70| 72 69 65 73 2d 6c 69 73 | 74 20 63 61 6c 65 6e 64 |ries-lis|t calend|
|00000e80| 61 72 2d 64 61 74 65 2d | 73 74 72 69 6e 67 20 64 |ar-date-|string d|
|00000e90| 61 74 65 2d 73 74 72 69 | 6e 67 20 73 75 62 73 74 |ate-stri|ng subst|
|00000ea0| 69 74 75 74 65 2d 69 6e | 2d 66 69 6c 65 2d 6e 61 |itute-in|-file-na|
|00000eb0| 6d 65 20 64 69 61 72 79 | 2d 66 69 6c 65 20 64 2d |me diary|-file d-|
|00000ec0| 66 69 6c 65 20 6d 65 73 | 73 61 67 65 20 22 50 72 |file mes|sage "Pr|
|00000ed0| 65 70 61 72 69 6e 67 20 | 64 69 61 72 79 2e 2e 2e |eparing |diary...|
|00000ee0| 22 20 67 65 74 2d 66 69 | 6c 65 2d 62 75 66 66 65 |" get-fi|le-buffe|
|00000ef0| 72 20 64 69 61 72 79 2d | 62 75 66 66 65 72 20 66 |r diary-|buffer f|
|00000f00| 69 6e 64 2d 66 69 6c 65 | 2d 6e 6f 73 65 6c 65 63 |ind-file|-noselec|
|00000f10| 74 20 74 20 73 65 6c 65 | 63 74 69 76 65 2d 64 69 |t t sele|ctive-di|
|00000f20| 73 70 6c 61 79 20 73 65 | 6c 65 63 74 69 76 65 2d |splay se|lective-|
|00000f30| 64 69 73 70 6c 61 79 2d | 65 6c 6c 69 70 73 65 73 |display-|ellipses|
|00000f40| 20 73 79 6e 74 61 78 2d | 74 61 62 6c 65 20 73 65 | syntax-|table se|
|00000f50| 74 2d 73 79 6e 74 61 78 | 2d 74 61 62 6c 65 20 64 |t-syntax|-table d|
|00000f60| 69 61 72 79 2d 73 79 6e | 74 61 78 2d 74 61 62 6c |iary-syn|tax-tabl|
|00000f70| 65 20 28 28 73 65 74 2d | 73 79 6e 74 61 78 2d 74 |e ((set-|syntax-t|
|00000f80| 61 62 6c 65 20 6f 6c 64 | 2d 64 69 61 72 79 2d 73 |able old|-diary-s|
|00000f90| 79 6e 74 61 78 2d 74 61 | 62 6c 65 29 29 20 62 75 |yntax-ta|ble)) bu|
|00000fa0| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 20 |ffer-mod|ified-p |
|00000fb0| 72 65 67 65 78 70 2d 71 | 75 6f 74 65 20 64 69 61 |regexp-q|uote dia|
|00000fc0| 72 79 2d 6e 6f 6e 6d 61 | 72 6b 69 6e 67 2d 73 79 |ry-nonma|rking-sy|
|00000fd0| 6d 62 6f 6c 20 6d 61 72 | 6b 20 64 69 61 72 79 2d |mbol mar|k diary-|
|00000fe0| 6d 6f 64 69 66 69 65 64 | 20 62 75 66 66 65 72 2d |modified| buffer-|
|00000ff0| 72 65 61 64 2d 6f 6e 6c | 79 20 6c 6f 6f 6b 69 6e |read-onl|y lookin|
|00001000| 67 2d 61 74 20 22 0d 5c | 5c 7c 5c 6e 22 20 31 20 |g-at ".\|\|\n" 1 |
|00001010| 69 6e 73 65 72 74 2d 73 | 74 72 69 6e 67 20 22 0d |insert-s|tring ".|
|00001020| 22 20 73 75 62 73 74 2d | 63 68 61 72 2d 69 6e 2d |" subst-|char-in-|
|00001030| 72 65 67 69 6f 6e 20 31 | 30 20 31 33 20 69 20 64 |region 1|0 13 i d|
|00001040| 69 61 72 79 2d 64 61 74 | 65 2d 66 6f 72 6d 73 20 |iary-dat|e-forms |
|00001050| 6c 69 73 74 2d 73 65 78 | 70 2d 64 69 61 72 79 2d |list-sex|p-diary-|
|00001060| 65 6e 74 72 69 65 73 20 | 65 6e 74 72 79 2d 66 6f |entries |entry-fo|
|00001070| 75 6e 64 20 79 65 61 72 | 20 64 61 79 20 6d 6f 6e |und year| day mon|
|00001080| 74 68 20 64 20 62 61 63 | 6b 75 70 20 64 61 74 65 |th d bac|kup date|
|00001090| 2d 66 6f 72 6d 20 63 61 | 6c 65 6e 64 61 72 2d 64 |-form ca|lendar-d|
|000010a0| 61 79 2d 6e 61 6d 65 20 | 22 5c 5c 7c 22 20 33 20 |ay-name |"\\|" 3 |
|000010b0| 22 2e 3f 22 20 64 61 79 | 6e 61 6d 65 20 22 5c 5c |".?" day|name "\\|
|000010c0| 2a 5c 5c 7c 22 20 63 61 | 6c 65 6e 64 61 72 2d 6d |*\\|" ca|lendar-m|
|000010d0| 6f 6e 74 68 2d 6e 61 6d | 65 20 6d 6f 6e 74 68 6e |onth-nam|e monthn|
|000010e0| 61 6d 65 20 22 5c 5c 2a | 5c 5c 7c 30 2a 22 20 69 |ame "\\*|\\|0*" i|
|000010f0| 6e 74 2d 74 6f 2d 73 74 | 72 69 6e 67 20 61 62 62 |nt-to-st|ring abb|
|00001100| 72 65 76 69 61 74 65 64 | 2d 63 61 6c 65 6e 64 61 |reviated|-calenda|
|00001110| 72 2d 79 65 61 72 20 31 | 30 30 20 22 22 20 22 5c |r-year 1|00 "" "\|
|00001120| 5c 28 5c 5c 60 5c 5c 7c | 0d 5c 5c 7c 5c 6e 5c 5c |\(\\`\\||.\\|\n\\|
|00001130| 29 22 20 22 3f 5c 5c 28 | 22 20 6d 61 70 63 6f 6e |)" "?\\(|" mapcon|
|00001140| 63 61 74 20 65 76 61 6c | 20 22 5c 5c 29 5c 5c 28 |cat eval| "\\)\\(|
|00001150| 22 20 22 5c 5c 29 22 20 | 72 65 67 65 78 70 20 63 |" "\\)" |regexp c|
|00001160| 61 73 65 2d 66 6f 6c 64 | 2d 73 65 61 72 63 68 20 |ase-fold|-search |
|00001170| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00001180| 64 20 72 65 2d 73 65 61 | 72 63 68 2d 62 61 63 6b |d re-sea|rch-back|
|00001190| 77 61 72 64 20 22 5c 5c | 3c 22 20 63 68 61 72 2d |ward "\\|<" char-|
|000011a0| 65 71 75 61 6c 20 22 20 | 5c 5c 7c 09 22 20 62 61 |equal " |\\|." ba|
|000011b0| 63 6b 77 61 72 64 2d 63 | 68 61 72 20 64 61 74 65 |ckward-c|har date|
|000011c0| 2d 73 74 61 72 74 20 65 | 6e 74 72 79 2d 73 74 61 |-start e|ntry-sta|
|000011d0| 72 74 20 22 0d 5c 5c 7c | 5c 6e 5c 5c 7c 5c 5c 60 |rt ".\\||\n\\|\\`|
|000011e0| 22 20 32 20 61 64 64 2d | 74 6f 2d 64 69 61 72 79 |" 2 add-|to-diary|
|000011f0| 2d 6c 69 73 74 20 64 69 | 61 72 79 2d 6c 69 73 74 |-list di|ary-list|
|00001200| 2d 69 6e 63 6c 75 64 65 | 2d 62 6c 61 6e 6b 73 20 |-include|-blanks |
|00001210| 61 70 70 65 6e 64 20 63 | 61 6c 65 6e 64 61 72 2d |append c|alendar-|
|00001220| 67 72 65 67 6f 72 69 61 | 6e 2d 66 72 6f 6d 2d 61 |gregoria|n-from-a|
|00001230| 62 73 6f 6c 75 74 65 20 | 33 31 20 64 61 79 2d 6f |bsolute |31 day-o|
|00001240| 66 2d 79 65 61 72 20 34 | 20 32 33 20 34 30 30 20 |f-year 4| 23 400 |
|00001250| 33 36 35 20 73 65 74 2d | 62 75 66 66 65 72 2d 6d |365 set-|buffer-m|
|00001260| 6f 64 69 66 69 65 64 2d | 70 20 72 75 6e 2d 68 6f |odified-|p run-ho|
|00001270| 6f 6b 73 20 6e 6f 6e 67 | 72 65 67 6f 72 69 61 6e |oks nong|regorian|
|00001280| 2d 64 69 61 72 79 2d 6c | 69 73 74 69 6e 67 2d 68 |-diary-l|isting-h|
|00001290| 6f 6f 6b 20 6c 69 73 74 | 2d 64 69 61 72 79 2d 65 |ook list|-diary-e|
|000012a0| 6e 74 72 69 65 73 2d 68 | 6f 6f 6b 20 64 69 61 72 |ntries-h|ook diar|
|000012b0| 79 2d 64 69 73 70 6c 61 | 79 2d 68 6f 6f 6b 5d 20 |y-displa|y-hook] |
|000012c0| 38 20 22 5c 0a 43 72 65 | 61 74 65 20 61 6e 64 20 |8 "\.Cre|ate and |
|000012d0| 64 69 73 70 6c 61 79 20 | 61 20 62 75 66 66 65 72 |display |a buffer|
|000012e0| 20 63 6f 6e 74 61 69 6e | 69 6e 67 20 74 68 65 20 | contain|ing the |
|000012f0| 72 65 6c 65 76 61 6e 74 | 20 6c 69 6e 65 73 20 69 |relevant| lines i|
|00001300| 6e 20 64 69 61 72 79 2d | 66 69 6c 65 2e 0a 54 68 |n diary-|file..Th|
|00001310| 65 20 61 72 67 75 6d 65 | 6e 74 73 20 61 72 65 20 |e argume|nts are |
|00001320| 44 41 54 45 20 61 6e 64 | 20 4e 55 4d 42 45 52 3b |DATE and| NUMBER;|
|00001330| 20 74 68 65 20 65 6e 74 | 72 69 65 73 20 73 65 6c | the ent|ries sel|
|00001340| 65 63 74 65 64 20 61 72 | 65 20 74 68 6f 73 65 0a |ected ar|e those.|
|00001350| 66 6f 72 20 4e 55 4d 42 | 45 52 20 64 61 79 73 20 |for NUMB|ER days |
|00001360| 73 74 61 72 74 69 6e 67 | 20 77 69 74 68 20 64 61 |starting| with da|
|00001370| 74 65 20 44 41 54 45 2e | 20 20 54 68 65 20 6f 74 |te DATE.|  The ot|
|00001380| 68 65 72 20 65 6e 74 72 | 69 65 73 20 61 72 65 20 |her entr|ies are |
|00001390| 68 69 64 64 65 6e 0a 75 | 73 69 6e 67 20 73 65 6c |hidden.u|sing sel|
|000013a0| 65 63 74 69 76 65 20 64 | 69 73 70 6c 61 79 2e 0a |ective d|isplay..|
|000013b0| 0a 52 65 74 75 72 6e 73 | 20 61 20 6c 69 73 74 20 |.Returns| a list |
|000013c0| 6f 66 20 61 6c 6c 20 72 | 65 6c 65 76 61 6e 74 20 |of all r|elevant |
|000013d0| 64 69 61 72 79 20 65 6e | 74 72 69 65 73 20 66 6f |diary en|tries fo|
|000013e0| 75 6e 64 2c 20 69 66 20 | 61 6e 79 2c 20 69 6e 20 |und, if |any, in |
|000013f0| 6f 72 64 65 72 20 62 79 | 20 64 61 74 65 2e 0a 54 |order by| date..T|
|00001400| 68 65 20 6c 69 73 74 20 | 65 6e 74 72 69 65 73 20 |he list |entries |
|00001410| 68 61 76 65 20 74 68 65 | 20 66 6f 72 6d 20 28 28 |have the| form ((|
|00001420| 6d 6f 6e 74 68 20 64 61 | 79 20 79 65 61 72 29 20 |month da|y year) |
|00001430| 73 74 72 69 6e 67 29 2e | 20 20 49 66 20 74 68 65 |string).|  If the|
|00001440| 20 76 61 72 69 61 62 6c | 65 0a 60 64 69 61 72 79 | variabl|e.`diary|
|00001450| 2d 6c 69 73 74 2d 69 6e | 63 6c 75 64 65 2d 62 6c |-list-in|clude-bl|
|00001460| 61 6e 6b 73 27 20 69 73 | 20 74 2c 20 74 68 69 73 |anks' is| t, this|
|00001470| 20 6c 69 73 74 20 69 6e | 63 6c 75 64 65 73 20 61 | list in|cludes a|
|00001480| 20 64 75 6d 6d 79 20 64 | 69 61 72 79 20 65 6e 74 | dummy d|iary ent|
|00001490| 72 79 0a 28 63 6f 6e 73 | 69 73 74 69 6e 67 20 6f |ry.(cons|isting o|
|000014a0| 66 20 74 68 65 20 65 6d | 70 74 79 20 73 74 72 69 |f the em|pty stri|
|000014b0| 6e 67 29 20 66 6f 72 20 | 61 20 64 61 74 65 20 77 |ng) for |a date w|
|000014c0| 69 74 68 20 6e 6f 20 64 | 69 61 72 79 20 65 6e 74 |ith no d|iary ent|
|000014d0| 72 69 65 73 2e 0a 0a 41 | 66 74 65 72 20 74 68 65 |ries...A|fter the|
|000014e0| 20 6c 69 73 74 20 69 73 | 20 70 72 65 70 61 72 65 | list is| prepare|
|000014f0| 64 2c 20 74 68 65 20 68 | 6f 6f 6b 73 20 60 6e 6f |d, the h|ooks `no|
|00001500| 6e 67 72 65 67 6f 72 69 | 61 6e 2d 64 69 61 72 79 |ngregori|an-diary|
|00001510| 2d 6c 69 73 74 69 6e 67 | 2d 68 6f 6f 6b 27 2c 0a |-listing|-hook',.|
|00001520| 60 6c 69 73 74 2d 64 69 | 61 72 79 2d 65 6e 74 72 |`list-di|ary-entr|
|00001530| 69 65 73 2d 68 6f 6f 6b | 27 2c 20 61 6e 64 20 60 |ies-hook|', and `|
|00001540| 64 69 61 72 79 2d 64 69 | 73 70 6c 61 79 2d 68 6f |diary-di|splay-ho|
|00001550| 6f 6b 27 20 61 72 65 20 | 72 75 6e 2e 20 20 54 68 |ok' are |run.  Th|
|00001560| 65 73 65 20 68 6f 6f 6b | 73 0a 68 61 76 65 20 74 |ese hook|s.have t|
|00001570| 68 65 20 66 6f 6c 6c 6f | 77 69 6e 67 20 64 69 73 |he follo|wing dis|
|00001580| 74 69 6e 63 74 20 72 6f | 6c 65 73 3a 0a 0a 20 20 |tinct ro|les:..  |
|00001590| 20 20 60 6e 6f 6e 67 72 | 65 67 6f 72 69 61 6e 2d |  `nongr|egorian-|
|000015a0| 64 69 61 72 79 2d 6c 69 | 73 74 69 6e 67 2d 68 6f |diary-li|sting-ho|
|000015b0| 6f 6b 27 20 63 61 6e 20 | 63 75 6c 6c 20 64 61 74 |ok' can |cull dat|
|000015c0| 65 73 20 66 72 6f 6d 20 | 74 68 65 20 64 69 61 72 |es from |the diar|
|000015d0| 79 0a 20 20 20 20 20 20 | 20 20 61 6e 64 20 65 61 |y.      |  and ea|
|000015e0| 63 68 20 69 6e 63 6c 75 | 64 65 64 20 66 69 6c 65 |ch inclu|ded file|
|000015f0| 2e 20 20 55 73 75 61 6c | 6c 79 20 75 73 65 64 20 |.  Usual|ly used |
|00001600| 66 6f 72 20 48 65 62 72 | 65 77 20 6f 72 20 49 73 |for Hebr|ew or Is|
|00001610| 6c 61 6d 69 63 0a 20 20 | 20 20 20 20 20 20 64 69 |lamic.  |      di|
|00001620| 61 72 79 20 65 6e 74 72 | 69 65 73 20 69 6e 20 66 |ary entr|ies in f|
|00001630| 69 6c 65 73 2e 20 20 41 | 70 70 6c 69 65 64 20 74 |iles.  A|pplied t|
|00001640| 6f 20 2a 65 61 63 68 2a | 20 66 69 6c 65 2e 0a 0a |o *each*| file...|
|00001650| 20 20 20 20 60 6c 69 73 | 74 2d 64 69 61 72 79 2d |    `lis|t-diary-|
|00001660| 65 6e 74 72 69 65 73 2d | 68 6f 6f 6b 27 20 61 64 |entries-|hook' ad|
|00001670| 64 73 20 6f 72 20 6d 61 | 6e 69 70 75 6c 61 74 65 |ds or ma|nipulate|
|00001680| 73 20 64 69 61 72 79 20 | 65 6e 74 72 69 65 73 20 |s diary |entries |
|00001690| 66 72 6f 6d 0a 20 20 20 | 20 20 20 20 20 65 78 74 |from.   |     ext|
|000016a0| 65 72 6e 61 6c 20 73 6f | 75 72 63 65 73 2e 20 20 |ernal so|urces.  |
|000016b0| 55 73 65 64 2c 20 66 6f | 72 20 65 78 61 6d 70 6c |Used, fo|r exampl|
|000016c0| 65 2c 20 74 6f 20 69 6e | 63 6c 75 64 65 20 64 69 |e, to in|clude di|
|000016d0| 61 72 79 20 65 6e 74 72 | 69 65 73 0a 20 20 20 20 |ary entr|ies.    |
|000016e0| 20 20 20 20 66 72 6f 6d | 20 6f 74 68 65 72 20 66 |    from| other f|
|000016f0| 69 6c 65 73 20 6f 72 20 | 74 6f 20 73 6f 72 74 20 |iles or |to sort |
|00001700| 74 68 65 20 64 69 61 72 | 79 20 65 6e 74 72 69 65 |the diar|y entrie|
|00001710| 73 2e 20 20 49 6e 76 6f | 6b 65 64 20 2a 6f 6e 63 |s.  Invo|ked *onc|
|00001720| 65 2a 20 6f 6e 6c 79 2e | 0a 0a 20 20 20 20 60 64 |e* only.|..    `d|
|00001730| 69 61 72 79 2d 64 69 73 | 70 6c 61 79 2d 68 6f 6f |iary-dis|play-hoo|
|00001740| 6b 27 20 64 6f 65 73 20 | 74 68 65 20 61 63 74 75 |k' does |the actu|
|00001750| 61 6c 20 64 69 73 70 6c | 61 79 20 6f 66 20 69 6e |al displ|ay of in|
|00001760| 66 6f 72 6d 61 74 69 6f | 6e 2e 20 20 43 6f 75 6c |formatio|n.  Coul|
|00001770| 64 20 62 65 0a 20 20 20 | 20 20 20 20 20 75 73 65 |d be.   |     use|
|00001780| 64 20 61 6c 73 6f 20 66 | 6f 72 20 61 6e 20 61 70 |d also f|or an ap|
|00001790| 70 6f 69 6e 74 6d 65 6e | 74 20 6e 6f 74 69 66 69 |pointmen|t notifi|
|000017a0| 63 61 74 69 6f 6e 20 66 | 75 6e 63 74 69 6f 6e 2e |cation f|unction.|
|000017b0| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 69 |"]).(def|alias 'i|
|000017c0| 6e 63 6c 75 64 65 2d 6f | 74 68 65 72 2d 64 69 61 |nclude-o|ther-dia|
|000017d0| 72 79 2d 66 69 6c 65 73 | 20 23 5b 6e 69 6c 20 22 |ry-files| #[nil "|
|000017e0| 65 62 88 c0 c1 c2 0b 21 | c4 51 c5 c6 23 83 63 00 |eb.....!|.Q..#.c.|
|000017f0| c7 c8 94 c8 95 7b 21 c5 | c9 c5 1e 5c 6e 1e 0b 1e |.....{!.|...\n...|
|00001800| 0c 1e 0d ce 0e 0d 21 83 | 52 00 cf 0e 0d 21 83 42 |......!.|R....!.B|
|00001810| 00 d0 8e d1 0e 12 d3 0e | 14 0e 15 5c 22 5c 22 16 |........|...\"\".|
|00001820| 12 29 82 5f 00 d6 20 88 | d7 d8 0e 0d 5c 22 88 d9 |.)._.. .|....\"..|
|00001830| c8 21 88 82 5f 00 d6 20 | 88 d7 da 0e 0d 5c 22 88 |.!.._.. |.....\".|
|00001840| d9 c8 21 88 2c 82 03 00 | 65 62 87 22 20 5b 72 65 |..!.,...|eb." [re|
|00001850| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|00001860| 22 5c 5c 28 5c 5c 60 5c | 5c 7c 0d 5c 5c 7c 5c 6e |"\\(\\`\|\|.\\|\n|
|00001870| 5c 5c 29 22 20 72 65 67 | 65 78 70 2d 71 75 6f 74 |\\)" reg|exp-quot|
|00001880| 65 20 64 69 61 72 79 2d | 69 6e 63 6c 75 64 65 2d |e diary-|include-|
|00001890| 73 74 72 69 6e 67 20 22 | 20 5c 22 5c 5c 28 5b 5e |string "| \"\\([^|
|000018a0| 5c 22 5d 2a 5c 5c 29 5c | 22 22 20 6e 69 6c 20 74 |\"]*\\)\|"" nil t|
|000018b0| 20 73 75 62 73 74 69 74 | 75 74 65 2d 69 6e 2d 66 | substit|ute-in-f|
|000018c0| 69 6c 65 2d 6e 61 6d 65 | 20 32 20 69 6e 63 6c 75 |ile-name| 2 inclu|
|000018d0| 64 65 2d 6f 74 68 65 72 | 2d 64 69 61 72 79 2d 66 |de-other|-diary-f|
|000018e0| 69 6c 65 73 20 64 69 61 | 72 79 2d 64 69 73 70 6c |iles dia|ry-displ|
|000018f0| 61 79 2d 68 6f 6f 6b 20 | 6c 69 73 74 2d 64 69 61 |ay-hook |list-dia|
|00001900| 72 79 2d 65 6e 74 72 69 | 65 73 2d 68 6f 6f 6b 20 |ry-entri|es-hook |
|00001910| 64 69 61 72 79 2d 6c 69 | 73 74 2d 69 6e 63 6c 75 |diary-li|st-inclu|
|00001920| 64 65 2d 62 6c 61 6e 6b | 73 20 64 69 61 72 79 2d |de-blank|s diary-|
|00001930| 66 69 6c 65 20 66 69 6c | 65 2d 65 78 69 73 74 73 |file fil|e-exists|
|00001940| 2d 70 20 66 69 6c 65 2d | 72 65 61 64 61 62 6c 65 |-p file-|readable|
|00001950| 2d 70 20 28 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |-p ((byt|e-code "|
|00001960| c0 c1 5c 6e 21 21 87 22 | 20 5b 6b 69 6c 6c 2d 62 |..\n!!."| [kill-b|
|00001970| 75 66 66 65 72 20 67 65 | 74 2d 66 69 6c 65 2d 62 |uffer ge|t-file-b|
|00001980| 75 66 66 65 72 20 64 69 | 61 72 79 2d 66 69 6c 65 |uffer di|ary-file|
|00001990| 5d 20 33 29 29 20 61 70 | 70 65 6e 64 20 64 69 61 |] 3)) ap|pend dia|
|000019a0| 72 79 2d 65 6e 74 72 69 | 65 73 2d 6c 69 73 74 20 |ry-entri|es-list |
|000019b0| 6c 69 73 74 2d 64 69 61 | 72 79 2d 65 6e 74 72 69 |list-dia|ry-entri|
|000019c0| 65 73 20 6f 72 69 67 69 | 6e 61 6c 2d 64 61 74 65 |es origi|nal-date|
|000019d0| 20 6e 75 6d 62 65 72 20 | 62 65 65 70 20 6d 65 73 | number |beep mes|
|000019e0| 73 61 67 65 20 22 43 61 | 6e 27 74 20 72 65 61 64 |sage "Ca|n't read|
|000019f0| 20 69 6e 63 6c 75 64 65 | 64 20 64 69 61 72 79 20 | include|d diary |
|00001a00| 66 69 6c 65 20 25 73 22 | 20 73 6c 65 65 70 2d 66 |file %s"| sleep-f|
|00001a10| 6f 72 20 22 43 61 6e 27 | 74 20 66 69 6e 64 20 69 |or "Can'|t find i|
|00001a20| 6e 63 6c 75 64 65 64 20 | 64 69 61 72 79 20 66 69 |ncluded |diary fi|
|00001a30| 6c 65 20 25 73 22 5d 20 | 35 20 22 5c 0a 49 6e 63 |le %s"] |5 "\.Inc|
|00001a40| 6c 75 64 65 20 74 68 65 | 20 64 69 61 72 79 20 65 |lude the| diary e|
|00001a50| 6e 74 72 69 65 73 20 66 | 72 6f 6d 20 6f 74 68 65 |ntries f|rom othe|
|00001a60| 72 20 64 69 61 72 79 20 | 66 69 6c 65 73 20 77 69 |r diary |files wi|
|00001a70| 74 68 20 74 68 6f 73 65 | 20 6f 66 20 64 69 61 72 |th those| of diar|
|00001a80| 79 2d 66 69 6c 65 2e 0a | 54 68 69 73 20 66 75 6e |y-file..|This fun|
|00001a90| 63 74 69 6f 6e 20 69 73 | 20 73 75 69 74 61 62 6c |ction is| suitabl|
|00001aa0| 65 20 66 6f 72 20 75 73 | 65 20 6a 75 73 74 20 62 |e for us|e just b|
|00001ab0| 65 66 6f 72 65 20 66 61 | 6e 63 79 2d 64 69 61 72 |efore fa|ncy-diar|
|00001ac0| 79 2d 64 69 73 70 6c 61 | 79 20 61 73 20 74 68 65 |y-displa|y as the|
|00001ad0| 0a 6c 69 73 74 2d 64 69 | 61 72 79 2d 65 6e 74 72 |.list-di|ary-entr|
|00001ae0| 69 65 73 2d 68 6f 6f 6b | 3b 20 69 74 20 65 6e 61 |ies-hook|; it ena|
|00001af0| 62 6c 65 73 20 79 6f 75 | 20 74 6f 20 75 73 65 20 |bles you| to use |
|00001b00| 73 68 61 72 65 64 20 64 | 69 61 72 79 20 66 69 6c |shared d|iary fil|
|00001b10| 65 73 20 74 6f 67 65 74 | 68 65 72 0a 77 69 74 68 |es toget|her.with|
|00001b20| 20 79 6f 75 72 20 6f 77 | 6e 2e 20 20 54 68 65 20 | your ow|n.  The |
|00001b30| 66 69 6c 65 73 20 69 6e | 63 6c 75 64 65 64 20 61 |files in|cluded a|
|00001b40| 72 65 20 73 70 65 63 69 | 66 69 65 64 20 69 6e 20 |re speci|fied in |
|00001b50| 74 68 65 20 64 69 61 72 | 79 2d 66 69 6c 65 20 62 |the diar|y-file b|
|00001b60| 79 20 6c 69 6e 65 73 20 | 6f 66 0a 74 68 65 20 66 |y lines |of.the f|
|00001b70| 6f 72 6d 0a 20 20 20 20 | 20 20 20 20 23 69 6e 63 |orm.    |    #inc|
|00001b80| 6c 75 64 65 20 5c 22 66 | 69 6c 65 6e 61 6d 65 5c |lude \"f|ilename\|
|00001b90| 22 0a 54 68 69 73 20 69 | 73 20 72 65 63 75 72 73 |".This i|s recurs|
|00001ba0| 69 76 65 3b 20 74 68 61 | 74 20 69 73 2c 20 23 69 |ive; tha|t is, #i|
|00001bb0| 6e 63 6c 75 64 65 20 64 | 69 72 65 63 74 69 76 65 |nclude d|irective|
|00001bc0| 73 20 69 6e 20 64 69 61 | 72 79 20 66 69 6c 65 73 |s in dia|ry files|
|00001bd0| 20 74 68 75 73 20 69 6e | 63 6c 75 64 65 64 0a 61 | thus in|cluded.a|
|00001be0| 72 65 20 6f 62 65 79 65 | 64 2e 20 20 59 6f 75 20 |re obeye|d.  You |
|00001bf0| 63 61 6e 20 63 68 61 6e | 67 65 20 74 68 65 20 5c |can chan|ge the \|
|00001c00| 22 23 69 6e 63 6c 75 64 | 65 5c 22 20 74 6f 20 73 |"#includ|e\" to s|
|00001c10| 6f 6d 65 20 6f 74 68 65 | 72 20 73 74 72 69 6e 67 |ome othe|r string|
|00001c20| 20 62 79 0a 63 68 61 6e | 67 69 6e 67 20 74 68 65 | by.chan|ging the|
|00001c30| 20 76 61 72 69 61 62 6c | 65 20 60 64 69 61 72 79 | variabl|e `diary|
|00001c40| 2d 69 6e 63 6c 75 64 65 | 2d 73 74 72 69 6e 67 27 |-include|-string'|
|00001c50| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00001c60| 73 69 6d 70 6c 65 2d 64 | 69 61 72 79 2d 64 69 73 |simple-d|iary-dis|
|00001c70| 70 6c 61 79 20 23 5b 6e | 69 6c 20 22 08 85 07 00 |play #[n|il "....|
|00001c80| c1 5c 6e 21 1b c4 c5 0e | 06 0b 83 14 00 c7 82 15 |.\n!....|........|
|00001c90| 00 c8 50 c9 ca 0b cb 23 | 23 1e 0c 0e 0d 83 33 00 |..P....#|#.....3.|
|00001ca0| 0e 0d 41 84 72 00 0e 0d | 40 41 40 c8 98 83 72 00 |..A.r...|@A@...r.|
|00001cb0| 0e 0c 47 ce 20 58 83 43 | 00 cf 0e 0c 21 82 91 00 |..G. X.C|....!...|
|00001cc0| d0 0e 11 21 71 88 d2 16 | 13 d4 0e 06 21 88 d5 20 |...!q...|....!.. |
|00001cd0| 88 c9 ca 0b d6 23 63 88 | 65 62 88 d7 d2 21 88 d8 |.....#c.|eb...!..|
|00001ce0| 16 13 d9 0e 11 21 88 cf | da 0e 06 5c 22 82 91 00 |.....!..|...\"...|
|00001cf0| d4 db 0e 06 0b 83 7e 00 | dc 82 7f 00 c8 c9 ca 0b |......~.|........|
|00001d00| cb 23 52 21 88 d9 dd 0e | 1e 21 21 88 cf df 21 2a |.#R!....|.!!...!*|
|00001d10| 87 22 20 5b 68 6f 6c 69 | 64 61 79 73 2d 69 6e 2d |." [holi|days-in-|
|00001d20| 64 69 61 72 79 2d 62 75 | 66 66 65 72 20 63 68 65 |diary-bu|ffer che|
|00001d30| 63 6b 2d 63 61 6c 65 6e | 64 61 72 2d 68 6f 6c 69 |ck-calen|dar-holi|
|00001d40| 64 61 79 73 20 6f 72 69 | 67 69 6e 61 6c 2d 64 61 |days ori|ginal-da|
|00001d50| 74 65 20 68 6f 6c 69 64 | 61 79 2d 6c 69 73 74 20 |te holid|ay-list |
|00001d60| 66 6f 72 6d 61 74 20 22 | 4e 6f 20 64 69 61 72 79 |format "|No diary|
|00001d70| 20 65 6e 74 72 69 65 73 | 20 66 6f 72 20 25 73 20 | entries| for %s |
|00001d80| 25 73 22 20 64 61 74 65 | 2d 73 74 72 69 6e 67 20 |%s" date|-string |
|00001d90| 22 3a 22 20 22 22 20 6d | 61 70 63 6f 6e 63 61 74 |":" "" m|apconcat|
|00001da0| 20 69 64 65 6e 74 69 74 | 79 20 22 3b 20 22 20 6d | identit|y "; " m|
|00001db0| 73 67 20 64 69 61 72 79 | 2d 65 6e 74 72 69 65 73 |sg diary|-entries|
|00001dc0| 2d 6c 69 73 74 20 66 72 | 61 6d 65 2d 77 69 64 74 |-list fr|ame-widt|
|00001dd0| 68 20 6d 65 73 73 61 67 | 65 20 67 65 74 2d 62 75 |h messag|e get-bu|
|00001de0| 66 66 65 72 2d 63 72 65 | 61 74 65 20 68 6f 6c 69 |ffer-cre|ate holi|
|00001df0| 64 61 79 2d 62 75 66 66 | 65 72 20 6e 69 6c 20 62 |day-buff|er nil b|
|00001e00| 75 66 66 65 72 2d 72 65 | 61 64 2d 6f 6e 6c 79 20 |uffer-re|ad-only |
|00001e10| 63 61 6c 65 6e 64 61 72 | 2d 73 65 74 2d 6d 6f 64 |calendar|-set-mod|
|00001e20| 65 2d 6c 69 6e 65 20 65 | 72 61 73 65 2d 62 75 66 |e-line e|rase-buf|
|00001e30| 66 65 72 20 22 5c 6e 22 | 20 73 65 74 2d 62 75 66 |fer "\n"| set-buf|
|00001e40| 66 65 72 2d 6d 6f 64 69 | 66 69 65 64 2d 70 20 74 |fer-modi|fied-p t|
|00001e50| 20 64 69 73 70 6c 61 79 | 2d 62 75 66 66 65 72 20 | display|-buffer |
|00001e60| 22 4e 6f 20 64 69 61 72 | 79 20 65 6e 74 72 69 65 |"No diar|y entrie|
|00001e70| 73 20 66 6f 72 20 25 73 | 22 20 22 44 69 61 72 79 |s for %s|" "Diary|
|00001e80| 20 66 6f 72 20 22 20 22 | 3a 20 22 20 67 65 74 2d | for " "|: " get-|
|00001e90| 66 69 6c 65 2d 62 75 66 | 66 65 72 20 64 2d 66 69 |file-buf|fer d-fi|
|00001ea0| 6c 65 20 22 50 72 65 70 | 61 72 69 6e 67 20 64 69 |le "Prep|aring di|
|00001eb0| 61 72 79 2e 2e 2e 64 6f | 6e 65 22 5d 20 38 20 22 |ary...do|ne"] 8 "|
|00001ec0| 5c 0a 44 69 73 70 6c 61 | 79 20 74 68 65 20 64 69 |\.Displa|y the di|
|00001ed0| 61 72 79 20 62 75 66 66 | 65 72 20 69 66 20 74 68 |ary buff|er if th|
|00001ee0| 65 72 65 20 61 72 65 20 | 61 6e 79 20 72 65 6c 65 |ere are |any rele|
|00001ef0| 76 61 6e 74 20 65 6e 74 | 72 69 65 73 20 6f 72 20 |vant ent|ries or |
|00001f00| 68 6f 6c 69 64 61 79 73 | 2e 22 5d 29 0a 28 64 65 |holidays|."]).(de|
|00001f10| 66 61 6c 69 61 73 20 27 | 66 61 6e 63 79 2d 64 69 |falias '|fancy-di|
|00001f20| 61 72 79 2d 64 69 73 70 | 6c 61 79 20 23 5b 6e 69 |ary-disp|lay #[ni|
|00001f30| 6c 20 22 08 83 12 00 08 | 41 84 6d 00 08 40 41 40 |l ".....|A.m..@A@|
|00001f40| c1 98 83 6d 00 5c 6e 85 | 19 00 c3 0c 21 1d c6 c7 |...m.\n.|....!...|
|00001f50| 0e 08 0d 83 26 00 c9 82 | 27 00 c1 50 ca cb 0d cc |....&...|'..P....|
|00001f60| 23 23 89 1e 0d 47 ce 20 | 58 83 3f 00 cf 0e 0d 21 |##...G. |X.?....!|
|00001f70| 82 6b 00 d0 0e 11 21 71 | 88 d2 16 13 d4 0e 08 21 |.k....!q|.......!|
|00001f80| 88 d5 20 88 ca cb 0d d6 | 23 63 88 65 62 88 d7 d2 |.. .....|#c.eb...|
|00001f90| 21 88 d8 16 13 d9 0e 11 | 21 88 cf da 0e 08 5c 22 |!.......|!.....\"|
|00001fa0| 2a 87 8a db dc 0e 1d 21 | 21 71 88 de 20 1e 1f e0 |*......!|!q.. ...|
|00001fb0| 65 64 e1 e2 d8 25 88 d2 | 16 23 e4 e5 21 88 d7 0e |ed...%..|.#..!...|
|00001fc0| 1f 21 88 2a 8a d0 0e 26 | 21 71 88 d2 16 13 e7 e5 |.!.*...&|!q......|
|00001fd0| 21 88 d4 e8 21 88 d5 20 | 88 08 d2 e9 89 ea 89 89 |!...!.. |........|
|00001fe0| 45 1e 2b 1e 2c 1e 2d 1d | 89 1e 2e 83 f3 01 ef 0e |E.+.,.-.|........|
|00001ff0| 2b 0e 2e 40 40 5c 22 84 | d6 01 0e 2e 40 40 16 2b |+..@@\".|....@@.+|
|00002000| 5c 6e 83 5f 01 f0 0e 2d | f1 0e 2c f2 a6 21 83 f7 |\n._...-|..,..!..|
|00002010| 00 f1 0e 2c f3 a6 21 83 | ec 00 f1 0e 2c f4 a6 21 |...,..!.|....,..!|
|00002020| 83 f7 00 0e 2d f5 55 83 | f7 00 f6 82 fc 00 f7 0e |....-.U.|........|
|00002030| 2d 53 48 0e 2c 45 43 0e | 2b 43 5c 22 83 5f 01 0e |-SH.,EC.|+C\"._..|
|00002040| 2b 40 89 16 2d 83 5f 01 | 0e 2b 41 41 40 89 16 2c |+@..-._.|.+AA@..,|
|00002050| 83 5f 01 0e 2c f8 5f 0e | 2d f9 e9 5c 5c 5c 5c 5c |._..,._.|-..\\\\\|
|00002060| 5c 89 1e 3a f8 a6 54 16 | 2d 0e 3a f8 a5 89 16 2c |\..:..T.|-.:....,|
|00002070| 29 83 5f 01 0e 2d 0e 2c | 1e 3b 1e 3c fd 20 2a 89 |)._..-.,|.;.<. *.|
|00002080| 15 83 5f 01 0e 2c f8 5f | 0e 2d 5c 5c 89 1e 3a f8 |.._..,._|.-\\..:.|
|00002090| a6 54 16 2d 0e 3a f8 a5 | 16 2c 29 fe 0e 2b 21 1e |.T.-.:..|.,)..+!.|
|000020a0| 08 0d d2 1e 3f 89 1e 40 | 83 8f 01 ef 0e 2b 0e 40 |....?..@|.....+.@|
|000020b0| 40 40 5c 22 83 86 01 81 | 41 00 0e 3f 0e 40 40 41 |@@\"....|A..?.@@A|
|000020c0| 5c 22 16 3f 0e 40 41 89 | 16 40 84 6f 01 0e 3f 2a |\".?.@A.|.@.o..?*|
|000020d0| 1e 42 60 65 55 83 9e 01 | c1 82 9f 01 e2 0e 08 b1 |.B`eU...|........|
|000020e0| 02 88 0e 42 83 ae 01 81 | 43 00 63 88 69 1e 44 ca |...B....|C.c.i.D.|
|000020f0| cb 0e 42 d6 81 45 00 0e | 44 81 46 00 5c 22 50 23 |..B..E..|D.F.\"P#|
|00002100| 63 88 29 69 1e 44 e2 81 | 45 00 0e 44 81 47 00 5c |c.)i.D..|E..D.G.\|
|00002110| 22 e2 b1 03 88 2b ea 0e | 2e 40 41 40 47 57 83 ea |"....+..|.@A@GW..|
|00002120| 01 0e 2e 40 41 40 e2 b1 | 02 88 0e 2e 41 89 16 2e |...@A@..|....A...|
|00002130| 84 b9 00 2d d7 d2 21 88 | 65 62 88 d8 16 13 d9 0e |...-..!.|eb......|
|00002140| 26 21 88 cf 81 48 00 21 | 29 87 22 20 5b 64 69 61 |&!...H.!|)." [dia|
|00002150| 72 79 2d 65 6e 74 72 69 | 65 73 2d 6c 69 73 74 20 |ry-entri|es-list |
|00002160| 22 22 20 68 6f 6c 69 64 | 61 79 73 2d 69 6e 2d 64 |"" holid|ays-in-d|
|00002170| 69 61 72 79 2d 62 75 66 | 66 65 72 20 63 68 65 63 |iary-buf|fer chec|
|00002180| 6b 2d 63 61 6c 65 6e 64 | 61 72 2d 68 6f 6c 69 64 |k-calend|ar-holid|
|00002190| 61 79 73 20 6f 72 69 67 | 69 6e 61 6c 2d 64 61 74 |ays orig|inal-dat|
|000021a0| 65 20 68 6f 6c 69 64 61 | 79 2d 6c 69 73 74 20 66 |e holida|y-list f|
|000021b0| 6f 72 6d 61 74 20 22 4e | 6f 20 64 69 61 72 79 20 |ormat "N|o diary |
|000021c0| 65 6e 74 72 69 65 73 20 | 66 6f 72 20 25 73 20 25 |entries |for %s %|
|000021d0| 73 22 20 64 61 74 65 2d | 73 74 72 69 6e 67 20 22 |s" date-|string "|
|000021e0| 3a 22 20 6d 61 70 63 6f | 6e 63 61 74 20 69 64 65 |:" mapco|ncat ide|
|000021f0| 6e 74 69 74 79 20 22 3b | 20 22 20 6d 73 67 20 66 |ntity ";| " msg f|
|00002200| 72 61 6d 65 2d 77 69 64 | 74 68 20 6d 65 73 73 61 |rame-wid|th messa|
|00002210| 67 65 20 67 65 74 2d 62 | 75 66 66 65 72 2d 63 72 |ge get-b|uffer-cr|
|00002220| 65 61 74 65 20 68 6f 6c | 69 64 61 79 2d 62 75 66 |eate hol|iday-buf|
|00002230| 66 65 72 20 6e 69 6c 20 | 62 75 66 66 65 72 2d 72 |fer nil |buffer-r|
|00002240| 65 61 64 2d 6f 6e 6c 79 | 20 63 61 6c 65 6e 64 61 |ead-only| calenda|
|00002250| 72 2d 73 65 74 2d 6d 6f | 64 65 2d 6c 69 6e 65 20 |r-set-mo|de-line |
|00002260| 65 72 61 73 65 2d 62 75 | 66 66 65 72 20 22 5c 6e |erase-bu|ffer "\n|
|00002270| 22 20 73 65 74 2d 62 75 | 66 66 65 72 2d 6d 6f 64 |" set-bu|ffer-mod|
|00002280| 69 66 69 65 64 2d 70 20 | 74 20 64 69 73 70 6c 61 |ified-p |t displa|
|00002290| 79 2d 62 75 66 66 65 72 | 20 22 4e 6f 20 64 69 61 |y-buffer| "No dia|
|000022a0| 72 79 20 65 6e 74 72 69 | 65 73 20 66 6f 72 20 25 |ry entri|es for %|
|000022b0| 73 22 20 67 65 74 2d 66 | 69 6c 65 2d 62 75 66 66 |s" get-f|ile-buff|
|000022c0| 65 72 20 73 75 62 73 74 | 69 74 75 74 65 2d 69 6e |er subst|itute-in|
|000022d0| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 64 69 61 72 79 |-file-na|me diary|
|000022e0| 2d 66 69 6c 65 20 62 75 | 66 66 65 72 2d 6d 6f 64 |-file bu|ffer-mod|
|000022f0| 69 66 69 65 64 2d 70 20 | 64 69 61 72 79 2d 6d 6f |ified-p |diary-mo|
|00002300| 64 69 66 69 65 64 20 73 | 75 62 73 74 2d 63 68 61 |dified s|ubst-cha|
|00002310| 72 2d 69 6e 2d 72 65 67 | 69 6f 6e 20 31 33 20 31 |r-in-reg|ion 13 1|
|00002320| 30 20 73 65 6c 65 63 74 | 69 76 65 2d 64 69 73 70 |0 select|ive-disp|
|00002330| 6c 61 79 20 6b 69 6c 6c | 2d 6c 6f 63 61 6c 2d 76 |lay kill|-local-v|
|00002340| 61 72 69 61 62 6c 65 20 | 6d 6f 64 65 2d 6c 69 6e |ariable |mode-lin|
|00002350| 65 2d 66 6f 72 6d 61 74 | 20 66 61 6e 63 79 2d 64 |e-format| fancy-d|
|00002360| 69 61 72 79 2d 62 75 66 | 66 65 72 20 6d 61 6b 65 |iary-buf|fer make|
|00002370| 2d 6c 6f 63 61 6c 2d 76 | 61 72 69 61 62 6c 65 20 |-local-v|ariable |
|00002380| 22 44 69 61 72 79 20 45 | 6e 74 72 69 65 73 22 20 |"Diary E|ntries" |
|00002390| 31 20 30 20 64 61 74 65 | 20 68 6f 6c 69 64 61 79 |1 0 date| holiday|
|000023a0| 2d 6c 69 73 74 2d 6c 61 | 73 74 2d 79 65 61 72 20 |-list-la|st-year |
|000023b0| 68 6f 6c 69 64 61 79 2d | 6c 69 73 74 2d 6c 61 73 |holiday-|list-las|
|000023c0| 74 2d 6d 6f 6e 74 68 20 | 65 6e 74 72 79 2d 6c 69 |t-month |entry-li|
|000023d0| 73 74 20 63 61 6c 65 6e | 64 61 72 2d 64 61 74 65 |st calen|dar-date|
|000023e0| 2d 65 71 75 61 6c 20 63 | 61 6c 65 6e 64 61 72 2d |-equal c|alendar-|
|000023f0| 64 61 74 65 2d 63 6f 6d | 70 61 72 65 20 7a 65 72 |date-com|pare zer|
|00002400| 6f 70 20 34 20 31 30 30 | 20 34 30 30 20 32 20 32 |op 4 100| 400 2 2|
|00002410| 39 20 5b 33 31 20 32 38 | 20 33 31 20 33 30 20 33 |9 [31 28| 31 30 3|
|00002420| 31 20 33 30 20 33 31 20 | 33 31 20 33 30 20 33 31 |1 30 31 |31 30 31|
|00002430| 20 33 30 20 33 31 5d 20 | 31 32 20 2d 31 20 6d 61 | 30 31] |12 -1 ma|
|00002440| 63 72 6f 2d 79 20 64 69 | 73 70 6c 61 79 65 64 2d |cro-y di|splayed-|
|00002450| 79 65 61 72 20 64 69 73 | 70 6c 61 79 65 64 2d 6d |year dis|played-m|
|00002460| 6f 6e 74 68 20 63 61 6c | 65 6e 64 61 72 2d 68 6f |onth cal|endar-ho|
|00002470| 6c 69 64 61 79 2d 6c 69 | 73 74 20 63 61 6c 65 6e |liday-li|st calen|
|00002480| 64 61 72 2d 64 61 74 65 | 2d 73 74 72 69 6e 67 20 |dar-date|-string |
|00002490| 64 20 68 20 61 70 70 65 | 6e 64 20 64 61 74 65 2d |d h appe|nd date-|
|000024a0| 68 6f 6c 69 64 61 79 2d | 6c 69 73 74 20 22 3a 20 |holiday-|list ": |
|000024b0| 20 22 20 6c 20 6d 61 6b | 65 2d 73 74 72 69 6e 67 | " l mak|e-string|
|000024c0| 20 33 32 20 36 31 20 22 | 50 72 65 70 61 72 69 6e | 32 61 "|Preparin|
|000024d0| 67 20 64 69 61 72 79 2e | 2e 2e 64 6f 6e 65 22 5d |g diary.|..done"]|
|000024e0| 20 38 20 22 5c 0a 50 72 | 65 70 61 72 65 20 61 20 | 8 "\.Pr|epare a |
|000024f0| 64 69 61 72 79 20 62 75 | 66 66 65 72 20 77 69 74 |diary bu|ffer wit|
|00002500| 68 20 72 65 6c 65 76 61 | 6e 74 20 65 6e 74 72 69 |h releva|nt entri|
|00002510| 65 73 20 69 6e 20 61 20 | 66 61 6e 63 79 2c 20 6e |es in a |fancy, n|
|00002520| 6f 6e 65 64 69 74 61 62 | 6c 65 20 66 6f 72 6d 2e |oneditab|le form.|
|00002530| 0a 54 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 20 69 |.This fu|nction i|
|00002540| 73 20 70 72 6f 76 69 64 | 65 64 20 66 6f 72 20 6f |s provid|ed for o|
|00002550| 70 74 69 6f 6e 61 6c 20 | 75 73 65 20 61 73 20 74 |ptional |use as t|
|00002560| 68 65 20 60 6c 69 73 74 | 2d 64 69 61 72 79 2d 65 |he `list|-diary-e|
|00002570| 6e 74 72 69 65 73 2d 68 | 6f 6f 6b 27 2e 22 5d 29 |ntries-h|ook'."])|
|00002580| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 70 72 69 6e |.(defali|as 'prin|
|00002590| 74 2d 64 69 61 72 79 2d | 65 6e 74 72 69 65 73 20 |t-diary-|entries |
|000025a0| 23 5b 6e 69 6c 20 22 c0 | c1 5c 6e 21 21 83 13 00 |#[nil ".|.\n!!...|
|000025b0| 8a c1 5c 6e 21 71 88 c3 | c4 21 29 87 c5 c6 0e 07 |..\n!q..|.!).....|
|000025c0| 21 21 89 1e 08 83 7b 00 | c9 ca 21 cb 1e 0c 1e 0d |!!....{.|..!.....|
|000025d0| 8a 0e 08 71 88 0e 0e 3b | 84 36 00 cf 82 43 00 d0 |...q...;|.6...C..|
|000025e0| d1 0e 0e 5c 22 88 0e 0e | d2 94 d2 95 4f 16 0c d3 |...\"...|....O...|
|000025f0| 0e 0d 65 64 23 88 0e 0d | 71 88 d4 d5 cb d6 23 83 |..ed#...|q.....#.|
|00002600| 5f 00 d7 d8 21 88 82 50 | 00 65 62 88 0e 0c d9 da |_...!..P|.eb.....|
|00002610| 0e 0c 47 db 5c 22 d9 b1 | 04 88 c3 c4 21 88 dc 0e |..G.\"..|....!...|
|00002620| 0d 21 2b 82 7e 00 dd de | 21 29 87 22 20 5b 62 75 |.!+.~...|!)." [bu|
|00002630| 66 66 65 72 70 20 67 65 | 74 2d 62 75 66 66 65 72 |fferp ge|t-buffer|
|00002640| 20 66 61 6e 63 79 2d 64 | 69 61 72 79 2d 62 75 66 | fancy-d|iary-buf|
|00002650| 66 65 72 20 72 75 6e 2d | 68 6f 6f 6b 73 20 70 72 |fer run-|hooks pr|
|00002660| 69 6e 74 2d 64 69 61 72 | 79 2d 65 6e 74 72 69 65 |int-diar|y-entrie|
|00002670| 73 2d 68 6f 6f 6b 20 67 | 65 74 2d 66 69 6c 65 2d |s-hook g|et-file-|
|00002680| 62 75 66 66 65 72 20 73 | 75 62 73 74 69 74 75 74 |buffer s|ubstitut|
|00002690| 65 2d 69 6e 2d 66 69 6c | 65 2d 6e 61 6d 65 20 64 |e-in-fil|e-name d|
|000026a0| 69 61 72 79 2d 66 69 6c | 65 20 64 69 61 72 79 2d |iary-fil|e diary-|
|000026b0| 62 75 66 66 65 72 20 67 | 65 74 2d 62 75 66 66 65 |buffer g|et-buffe|
|000026c0| 72 2d 63 72 65 61 74 65 | 20 22 2a 50 72 69 6e 74 |r-create| "*Print|
|000026d0| 61 62 6c 65 20 44 69 61 | 72 79 20 45 6e 74 72 69 |able Dia|ry Entri|
|000026e0| 65 73 2a 22 20 6e 69 6c | 20 68 65 61 64 69 6e 67 |es*" nil| heading|
|000026f0| 20 74 65 6d 70 2d 62 75 | 66 66 65 72 20 6d 6f 64 | temp-bu|ffer mod|
|00002700| 65 2d 6c 69 6e 65 2d 66 | 6f 72 6d 61 74 20 22 41 |e-line-f|ormat "A|
|00002710| 6c 6c 20 44 69 61 72 79 | 20 45 6e 74 72 69 65 73 |ll Diary| Entries|
|00002720| 22 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |" string|-match "|
|00002730| 5e 2d 2a 5c 5c 28 5b 5e | 2d 5d 2e 2a 5b 5e 2d 5d |^-*\\([^|-].*[^-]|
|00002740| 5c 5c 29 2d 2a 24 22 20 | 31 20 63 6f 70 79 2d 74 |\\)-*$" |1 copy-t|
|00002750| 6f 2d 62 75 66 66 65 72 | 20 72 65 2d 73 65 61 72 |o-buffer| re-sear|
|00002760| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 0d 2e 2a 24 |ch-forwa|rd "..*$|
|00002770| 22 20 74 20 72 65 70 6c | 61 63 65 2d 6d 61 74 63 |" t repl|ace-matc|
|00002780| 68 20 22 22 20 22 5c 6e | 22 20 6d 61 6b 65 2d 73 |h "" "\n|" make-s|
|00002790| 74 72 69 6e 67 20 36 31 | 20 6b 69 6c 6c 2d 62 75 |tring 61| kill-bu|
|000027a0| 66 66 65 72 20 65 72 72 | 6f 72 20 22 59 6f 75 20 |ffer err|or "You |
|000027b0| 64 6f 6e 27 74 20 68 61 | 76 65 20 61 20 64 69 61 |don't ha|ve a dia|
|000027c0| 72 79 20 62 75 66 66 65 | 72 21 22 5d 20 36 20 22 |ry buffe|r!"] 6 "|
|000027d0| 5c 0a 50 72 69 6e 74 20 | 61 20 68 61 72 64 20 63 |\.Print |a hard c|
|000027e0| 6f 70 79 20 6f 66 20 74 | 68 65 20 64 69 61 72 79 |opy of t|he diary|
|000027f0| 20 64 69 73 70 6c 61 79 | 2e 0a 0a 49 66 20 74 68 | display|...If th|
|00002800| 65 20 73 69 6d 70 6c 65 | 20 64 69 61 72 79 20 64 |e simple| diary d|
|00002810| 69 73 70 6c 61 79 20 69 | 73 20 62 65 69 6e 67 20 |isplay i|s being |
|00002820| 75 73 65 64 2c 20 70 72 | 65 70 61 72 65 20 61 20 |used, pr|epare a |
|00002830| 74 65 6d 70 20 62 75 66 | 66 65 72 20 77 69 74 68 |temp buf|fer with|
|00002840| 20 74 68 65 0a 76 69 73 | 69 62 6c 65 20 6c 69 6e | the.vis|ible lin|
|00002850| 65 73 20 6f 66 20 74 68 | 65 20 64 69 61 72 79 20 |es of th|e diary |
|00002860| 62 75 66 66 65 72 2c 20 | 61 64 64 20 61 20 68 65 |buffer, |add a he|
|00002870| 61 64 69 6e 67 20 6c 69 | 6e 65 20 63 6f 6d 70 6f |ading li|ne compo|
|00002880| 73 65 64 20 66 72 6f 6d | 20 74 68 65 20 6d 6f 64 |sed from| the mod|
|00002890| 65 0a 6c 69 6e 65 2c 20 | 70 72 69 6e 74 20 74 68 |e.line, |print th|
|000028a0| 65 20 74 65 6d 70 20 62 | 75 66 66 65 72 2c 20 61 |e temp b|uffer, a|
|000028b0| 6e 64 20 64 65 73 74 72 | 6f 79 20 69 74 2e 0a 0a |nd destr|oy it...|
|000028c0| 49 66 20 74 68 65 20 66 | 61 6e 63 79 20 64 69 61 |If the f|ancy dia|
|000028d0| 72 79 20 64 69 73 70 6c | 61 79 20 69 73 20 62 65 |ry displ|ay is be|
|000028e0| 69 6e 67 20 75 73 65 64 | 2c 20 6a 75 73 74 20 70 |ing used|, just p|
|000028f0| 72 69 6e 74 20 74 68 65 | 20 62 75 66 66 65 72 2e |rint the| buffer.|
|00002900| 0a 0a 54 68 65 20 68 6f | 6f 6b 73 20 67 69 76 65 |..The ho|oks give|
|00002910| 6e 20 62 79 20 74 68 65 | 20 76 61 72 69 61 62 6c |n by the| variabl|
|00002920| 65 20 60 70 72 69 6e 74 | 2d 64 69 61 72 79 2d 65 |e `print|-diary-e|
|00002930| 6e 74 72 69 65 73 2d 68 | 6f 6f 6b 27 20 61 72 65 |ntries-h|ook' are|
|00002940| 20 63 61 6c 6c 65 64 20 | 74 6f 20 64 6f 0a 74 68 | called |to do.th|
|00002950| 65 20 61 63 74 75 61 6c | 20 70 72 69 6e 74 69 6e |e actual| printin|
|00002960| 67 2e 22 20 6e 69 6c 5d | 29 0a 28 64 65 66 61 6c |g." nil]|).(defal|
|00002970| 69 61 73 20 27 73 68 6f | 77 2d 61 6c 6c 2d 64 69 |ias 'sho|w-all-di|
|00002980| 61 72 79 2d 65 6e 74 72 | 69 65 73 20 23 5b 6e 69 |ary-entr|ies #[ni|
|00002990| 6c 20 22 c0 09 21 89 1a | 83 55 00 c3 5c 6e 21 83 |l "..!..|.U..\n!.|
|000029a0| 55 00 c4 5c 6e 21 83 4f | 00 8a c5 5c 6e 21 89 1e |U..\n!.O|...\n!..|
|000029b0| 06 83 23 00 0e 06 82 27 | 00 c7 5c 6e c8 5c 22 71 |..#....'|..\n.\"q|
|000029c0| 88 c9 ca 20 1e 0b 1e 0c | cd 65 64 ce cf c8 25 88 |... ....|.ed...%.|
|000029d0| c9 16 10 d1 d2 21 88 0e | 13 16 12 d4 70 21 88 d5 |.....!..|....p!..|
|000029e0| 0e 0b 21 2c 82 58 00 d6 | d7 21 82 58 00 d6 d8 21 |..!,.X..|.!.X...!|
|000029f0| 29 87 22 20 5b 73 75 62 | 73 74 69 74 75 74 65 2d |)." [sub|stitute-|
|00002a00| 69 6e 2d 66 69 6c 65 2d | 6e 61 6d 65 20 64 69 61 |in-file-|name dia|
|00002a10| 72 79 2d 66 69 6c 65 20 | 64 2d 66 69 6c 65 20 66 |ry-file |d-file f|
|00002a20| 69 6c 65 2d 65 78 69 73 | 74 73 2d 70 20 66 69 6c |ile-exis|ts-p fil|
|00002a30| 65 2d 72 65 61 64 61 62 | 6c 65 2d 70 20 67 65 74 |e-readab|le-p get|
|00002a40| 2d 66 69 6c 65 2d 62 75 | 66 66 65 72 20 64 69 61 |-file-bu|ffer dia|
|00002a50| 72 79 2d 62 75 66 66 65 | 72 20 66 69 6e 64 2d 66 |ry-buffe|r find-f|
|00002a60| 69 6c 65 2d 6e 6f 73 65 | 6c 65 63 74 20 74 20 6e |ile-nose|lect t n|
|00002a70| 69 6c 20 62 75 66 66 65 | 72 2d 6d 6f 64 69 66 69 |il buffe|r-modifi|
|00002a80| 65 64 2d 70 20 64 69 61 | 72 79 2d 6d 6f 64 69 66 |ed-p dia|ry-modif|
|00002a90| 69 65 64 20 62 75 66 66 | 65 72 2d 72 65 61 64 2d |ied buff|er-read-|
|00002aa0| 6f 6e 6c 79 20 73 75 62 | 73 74 2d 63 68 61 72 2d |only sub|st-char-|
|00002ab0| 69 6e 2d 72 65 67 69 6f | 6e 20 31 33 20 31 30 20 |in-regio|n 13 10 |
|00002ac0| 73 65 6c 65 63 74 69 76 | 65 2d 64 69 73 70 6c 61 |selectiv|e-displa|
|00002ad0| 79 20 6d 61 6b 65 2d 6c | 6f 63 61 6c 2d 76 61 72 |y make-l|ocal-var|
|00002ae0| 69 61 62 6c 65 20 6d 6f | 64 65 2d 6c 69 6e 65 2d |iable mo|de-line-|
|00002af0| 66 6f 72 6d 61 74 20 64 | 65 66 61 75 6c 74 2d 6d |format d|efault-m|
|00002b00| 6f 64 65 2d 6c 69 6e 65 | 2d 66 6f 72 6d 61 74 20 |ode-line|-format |
|00002b10| 64 69 73 70 6c 61 79 2d | 62 75 66 66 65 72 20 73 |display-|buffer s|
|00002b20| 65 74 2d 62 75 66 66 65 | 72 2d 6d 6f 64 69 66 69 |et-buffe|r-modifi|
|00002b30| 65 64 2d 70 20 65 72 72 | 6f 72 20 22 59 6f 75 72 |ed-p err|or "Your|
|00002b40| 20 64 69 61 72 79 20 66 | 69 6c 65 20 69 73 20 6e | diary f|ile is n|
|00002b50| 6f 74 20 72 65 61 64 61 | 62 6c 65 21 22 20 22 59 |ot reada|ble!" "Y|
|00002b60| 6f 75 20 64 6f 6e 27 74 | 20 68 61 76 65 20 61 20 |ou don't| have a |
|00002b70| 64 69 61 72 79 20 66 69 | 6c 65 21 22 5d 20 37 20 |diary fi|le!"] 7 |
|00002b80| 22 5c 0a 53 68 6f 77 20 | 61 6c 6c 20 6f 66 20 74 |"\.Show |all of t|
|00002b90| 68 65 20 64 69 61 72 79 | 20 65 6e 74 72 69 65 73 |he diary| entries|
|00002ba0| 20 69 6e 20 74 68 65 20 | 64 69 61 72 79 2d 66 69 | in the |diary-fi|
|00002bb0| 6c 65 2e 0a 54 68 69 73 | 20 66 75 6e 63 74 69 6f |le..This| functio|
|00002bc0| 6e 20 67 65 74 73 20 72 | 69 64 20 6f 66 20 74 68 |n gets r|id of th|
|00002bd0| 65 20 73 65 6c 65 63 74 | 69 76 65 20 64 69 73 70 |e select|ive disp|
|00002be0| 6c 61 79 20 6f 66 20 74 | 68 65 20 64 69 61 72 79 |lay of t|he diary|
|00002bf0| 2d 66 69 6c 65 20 73 6f | 20 74 68 61 74 0a 61 6c |-file so| that.al|
|00002c00| 6c 20 65 6e 74 72 69 65 | 73 2c 20 6e 6f 74 20 6a |l entrie|s, not j|
|00002c10| 75 73 74 20 73 6f 6d 65 | 2c 20 61 72 65 20 76 69 |ust some|, are vi|
|00002c20| 73 69 62 6c 65 2e 20 20 | 49 66 20 74 68 65 72 65 |sible.  |If there|
|00002c30| 20 69 73 20 6e 6f 20 64 | 69 61 72 79 20 62 75 66 | is no d|iary buf|
|00002c40| 66 65 72 2c 20 6f 6e 65 | 0a 69 73 20 63 72 65 61 |fer, one|.is crea|
|00002c50| 74 65 64 2e 22 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |ted." ni|l]).(def|
|00002c60| 61 6c 69 61 73 20 27 64 | 69 61 72 79 2d 6e 61 6d |alias 'd|iary-nam|
|00002c70| 65 2d 70 61 74 74 65 72 | 6e 20 23 5b 28 73 74 72 |e-patter|n #[(str|
|00002c80| 69 6e 67 2d 61 72 72 61 | 79 20 26 6f 70 74 69 6f |ing-arra|y &optio|
|00002c90| 6e 61 6c 20 66 75 6c 6c | 6e 61 6d 65 29 20 22 c0 |nal full|name) ".|
|00002ca0| 19 c2 1b 0c 47 53 0b 54 | 89 13 59 83 35 00 09 89 |....GS.T|..Y.5...|
|00002cb0| c0 98 83 1a 00 c0 82 1b | 00 c5 0c 0b 48 0e 06 83 |........|....H...|
|00002cc0| 27 00 c0 82 30 00 c5 0c | 0b 48 c7 c8 4f c9 51 52 |'...0...|.H..O.QR|
|00002cd0| 11 82 04 00 29 09 29 87 | 22 20 5b 22 22 20 70 61 |....).).|" ["" pa|
|00002ce0| 74 74 65 72 6e 20 2d 31 | 20 69 20 73 74 72 69 6e |ttern -1| i strin|
|00002cf0| 67 2d 61 72 72 61 79 20 | 22 5c 5c 7c 22 20 66 75 |g-array |"\\|" fu|
|00002d00| 6c 6c 6e 61 6d 65 20 30 | 20 33 20 22 2e 3f 22 5d |llname 0| 3 ".?"]|
|00002d10| 20 37 20 22 5c 0a 43 6f | 6e 76 65 72 74 20 61 6e | 7 "\.Co|nvert an|
|00002d20| 20 53 54 52 49 4e 47 2d | 41 52 52 41 59 2c 20 61 | STRING-|ARRAY, a|
|00002d30| 6e 20 61 72 72 61 79 20 | 6f 66 20 73 74 72 69 6e |n array |of strin|
|00002d40| 67 73 20 74 6f 20 61 20 | 70 61 74 74 65 72 6e 2e |gs to a |pattern.|
|00002d50| 0a 54 68 65 20 70 61 74 | 74 65 72 6e 20 77 69 6c |.The pat|tern wil|
|00002d60| 6c 20 6d 61 74 63 68 20 | 61 6e 79 20 6f 66 20 74 |l match |any of t|
|00002d70| 68 65 20 73 74 72 69 6e | 67 73 2c 20 65 69 74 68 |he strin|gs, eith|
|00002d80| 65 72 20 65 6e 74 69 72 | 65 6c 79 20 6f 72 20 61 |er entir|ely or a|
|00002d90| 62 62 72 65 76 69 61 74 | 65 64 0a 74 6f 20 74 68 |bbreviat|ed.to th|
|00002da0| 72 65 65 20 63 68 61 72 | 61 63 74 65 72 73 2e 20 |ree char|acters. |
|00002db0| 20 41 6e 20 61 62 62 72 | 65 76 69 61 74 65 64 20 | An abbr|eviated |
|00002dc0| 66 6f 72 6d 20 77 69 6c | 6c 20 6d 61 74 63 68 20 |form wil|l match |
|00002dd0| 77 69 74 68 20 6f 72 20 | 77 69 74 68 6f 75 74 20 |with or |without |
|00002de0| 61 20 70 65 72 69 6f 64 | 3b 0a 49 66 20 74 68 65 |a period|;.If the|
|00002df0| 20 6f 70 74 69 6f 6e 61 | 6c 20 46 55 4c 4c 4e 41 | optiona|l FULLNA|
|00002e00| 4d 45 20 69 73 20 74 2c | 20 61 62 62 72 65 76 69 |ME is t,| abbrevi|
|00002e10| 61 74 69 6f 6e 73 20 77 | 69 6c 6c 20 6e 6f 74 20 |ations w|ill not |
|00002e20| 6d 61 74 63 68 2c 20 6a | 75 73 74 20 74 68 65 20 |match, j|ust the |
|00002e30| 66 75 6c 6c 0a 6e 61 6d | 65 2e 22 5d 29 0a 28 64 |full.nam|e."]).(d|
|00002e40| 65 66 61 6c 69 61 73 20 | 27 6d 61 72 6b 2d 64 69 |efalias |'mark-di|
|00002e50| 61 72 79 2d 65 6e 74 72 | 69 65 73 20 23 5b 6e 69 |ary-entr|ies #[ni|
|00002e60| 6c 20 22 c0 11 c2 0b 21 | 89 1c 83 2e 02 c5 0c 21 |l "....!|.......!|
|00002e70| 83 2e 02 c6 0c 21 83 24 | 02 8a c7 c8 21 88 c9 0c |.....!.$|....!...|
|00002e80| c0 5c 22 71 88 0e 5c 6e | cb 1e 0c 1e 0d ce 20 16 |.\"q..\n|...... .|
|00002e90| 0c cf 0e 10 21 88 0e 0d | 83 06 02 0e 0d 40 40 d1 |....!...|.....@@.|
|00002ea0| 9a 83 46 00 0e 0d 40 41 | 82 49 00 0e 0d 40 1e 12 |..F...@A|.I...@..|
|00002eb0| d3 0e 14 21 1e 15 d3 0e | 16 21 d7 50 1e 18 d9 1e |...!....|.!.P....|
|00002ec0| 1a d9 1e 1b d9 1e 1c 0e | 12 47 89 1e 1d d5 0e 12 |........|.G......|
|00002ed0| 3e 47 5a 1e 1e 0e 1d 0e | 1e 55 3f 85 7d 00 0e 1e |>GZ.....|.U?.}...|
|00002ee0| df 5c 5c 1e 1e 0e 1d d8 | 0e 12 3e 47 5a 1e 20 0e |.\\.....|..>GZ. .|
|00002ef0| 1d 0e 20 55 3f 85 96 00 | 0e 20 df 5c 5c 1e 20 0e |.. U?...|. .\\. .|
|00002f00| 1d db 0e 12 3e 47 5a 1e | 21 0e 1d 0e 21 55 3f 85 |....>GZ.|!...!U?.|
|00002f10| af 00 0e 21 df 5c 5c 1e | 21 0e 1d da 0e 12 3e 47 |...!.\\.|!.....>G|
|00002f20| 5a 1e 5c 22 0e 1d 0e 5c | 22 55 3f 85 c8 00 0e 5c |Z.\"...\|"U?....\|
|00002f30| 22 df 5c 5c 1e 5c 22 0e | 1d dc 0e 12 3e 47 5a 1e |".\\.\".|....>GZ.|
|00002f40| 23 0e 1d 0e 23 55 3f 85 | e1 00 0e 23 df 5c 5c 1e |#...#U?.|...#.\\.|
|00002f50| 23 e4 e5 e6 0e 12 e7 23 | e8 51 1e 29 c0 1e 2a 65 |#......#|.Q.)..*e|
|00002f60| 62 88 eb 0e 29 cb c0 23 | 83 fc 01 0e 1e 85 09 01 |b...)..#|........|
|00002f70| 0e 1e 94 0e 1e 95 7b 1e | 2c 0e 20 85 17 01 0e 20 |......{.|,. .... |
|00002f80| 94 0e 20 95 7b 1e 2d ee | 0e 5c 22 83 29 01 0e 5c |.. .{.-.|.\".)..\|
|00002f90| 22 94 0e 5c 22 95 7b 82 | 2a 01 ef 21 1e 30 ee 0e |"..\".{.|*..!.0..|
|00002fa0| 21 83 3d 01 0e 21 94 0e | 21 95 7b 82 3e 01 ef 21 |!.=..!..|!.{.>..!|
|00002fb0| 1e 31 0e 23 85 4d 01 0e | 23 94 0e 23 95 7b 89 1e |.1.#.M..|#..#.{..|
|00002fc0| 32 84 57 01 f3 82 a3 01 | 0e 32 47 df 55 83 9f 01 |2.W.....|.2G.U...|
|00002fd0| 0e 34 83 9f 01 f5 20 41 | 41 40 1e 36 ee 0e 32 21 |.4.... A|A@.6..2!|
|00002fe0| 0e 36 f7 a5 f7 5f 5c 5c | 89 1e 38 0e 36 5a f9 56 |.6..._\\|..8.6Z.V|
|00002ff0| 83 88 01 0e 38 f7 5a 82 | 9b 01 0e 36 0e 38 5a f9 |....8.Z.|...6.8Z.|
|00003000| 56 83 99 01 0e 38 f7 5c | 5c 82 9b 01 0e 38 2a 82 |V....8.\|\....8*.|
|00003010| a3 01 ee 0e 32 21 1e 3a | 0e 2c 83 c2 01 fb fc fd |....2!.:|.,......|
|00003020| 0e 2c f3 fe 4f 21 ff 0e | 14 f3 81 40 00 23 5c 22 |.,..O!..|...@.#\"|
|00003030| 41 21 88 82 f7 01 0e 2d | 83 ec 01 0e 2d 81 41 00 |A!.....-|....-.A.|
|00003040| 98 83 d6 01 f3 16 30 82 | ec 01 fc fd 0e 2d f3 fe |......0.|.....-..|
|00003050| 4f 21 ff 0e 16 81 42 00 | 81 43 00 23 5c 22 41 16 |O!....B.|.C.#\"A.|
|00003060| 30 81 44 00 0e 30 0e 31 | 0e 3a 23 88 2e 06 82 f4 |0.D..0.1|.:#.....|
|00003070| 00 0e 0d 41 16 0d 2e 13 | 82 31 00 81 45 00 20 88 |...A....|.1..E. .|
|00003080| 81 46 00 81 47 00 81 48 | 00 5c 22 88 cf 0e 0c 21 |.F..G..H|.\"....!|
|00003090| 88 c7 81 49 00 21 2b 82 | 35 02 81 4a 00 81 4b 00 |...I.!+.|5..J..K.|
|000030a0| 21 82 35 02 81 4a 00 81 | 4c 00 21 29 87 22 20 5b |!.5..J..|L.!)." [|
|000030b0| 74 20 6d 61 72 6b 2d 64 | 69 61 72 79 2d 65 6e 74 |t mark-d|iary-ent|
|000030c0| 72 69 65 73 2d 69 6e 2d | 63 61 6c 65 6e 64 61 72 |ries-in-|calendar|
|000030d0| 20 73 75 62 73 74 69 74 | 75 74 65 2d 69 6e 2d 66 | substit|ute-in-f|
|000030e0| 69 6c 65 2d 6e 61 6d 65 | 20 64 69 61 72 79 2d 66 |ile-name| diary-f|
|000030f0| 69 6c 65 20 64 2d 66 69 | 6c 65 20 66 69 6c 65 2d |ile d-fi|le file-|
|00003100| 65 78 69 73 74 73 2d 70 | 20 66 69 6c 65 2d 72 65 |exists-p| file-re|
|00003110| 61 64 61 62 6c 65 2d 70 | 20 6d 65 73 73 61 67 65 |adable-p| message|
|00003120| 20 22 4d 61 72 6b 69 6e | 67 20 64 69 61 72 79 20 | "Markin|g diary |
|00003130| 65 6e 74 72 69 65 73 2e | 2e 2e 22 20 66 69 6e 64 |entries.|.." find|
|00003140| 2d 66 69 6c 65 2d 6e 6f | 73 65 6c 65 63 74 20 64 |-file-no|select d|
|00003150| 69 61 72 79 2d 64 61 74 | 65 2d 66 6f 72 6d 73 20 |iary-dat|e-forms |
|00003160| 6e 69 6c 20 6f 6c 64 2d | 64 69 61 72 79 2d 73 79 |nil old-|diary-sy|
|00003170| 6e 74 61 78 2d 74 61 62 | 6c 65 20 64 20 73 79 6e |ntax-tab|le d syn|
|00003180| 74 61 78 2d 74 61 62 6c | 65 20 73 65 74 2d 73 79 |tax-tabl|e set-sy|
|00003190| 6e 74 61 78 2d 74 61 62 | 6c 65 20 64 69 61 72 79 |ntax-tab|le diary|
|000031a0| 2d 73 79 6e 74 61 78 2d | 74 61 62 6c 65 20 62 61 |-syntax-|table ba|
|000031b0| 63 6b 75 70 20 64 61 74 | 65 2d 66 6f 72 6d 20 64 |ckup dat|e-form d|
|000031c0| 69 61 72 79 2d 6e 61 6d | 65 2d 70 61 74 74 65 72 |iary-nam|e-patter|
|000031d0| 6e 20 63 61 6c 65 6e 64 | 61 72 2d 64 61 79 2d 6e |n calend|ar-day-n|
|000031e0| 61 6d 65 2d 61 72 72 61 | 79 20 64 61 79 6e 61 6d |ame-arra|y daynam|
|000031f0| 65 20 63 61 6c 65 6e 64 | 61 72 2d 6d 6f 6e 74 68 |e calend|ar-month|
|00003200| 2d 6e 61 6d 65 2d 61 72 | 72 61 79 20 22 5c 5c 7c |-name-ar|ray "\\||
|00003210| 5c 5c 2a 22 20 6d 6f 6e | 74 68 6e 61 6d 65 20 22 |\\*" mon|thname "|
|00003220| 5b 30 2d 39 5d 2b 5c 5c | 7c 5c 5c 2a 22 20 6d 6f |[0-9]+\\||\\*" mo|
|00003230| 6e 74 68 20 64 61 79 20 | 79 65 61 72 20 6c 20 64 |nth day |year l d|
|00003240| 2d 6e 61 6d 65 2d 70 6f | 73 20 32 20 6d 2d 6e 61 |-name-po|s 2 m-na|
|00003250| 6d 65 2d 70 6f 73 20 64 | 2d 70 6f 73 20 6d 2d 70 |me-pos d|-pos m-p|
|00003260| 6f 73 20 79 2d 70 6f 73 | 20 22 5c 5c 28 5c 5c 60 |os y-pos| "\\(\\`|
|00003270| 5c 5c 7c 0d 5c 5c 7c 5c | 6e 5c 5c 29 5c 5c 28 22 |\\|.\\|\|n\\)\\("|
|00003280| 20 6d 61 70 63 6f 6e 63 | 61 74 20 65 76 61 6c 20 | mapconc|at eval |
|00003290| 22 5c 5c 29 5c 5c 28 22 | 20 22 5c 5c 29 22 20 72 |"\\)\\("| "\\)" r|
|000032a0| 65 67 65 78 70 20 63 61 | 73 65 2d 66 6f 6c 64 2d |egexp ca|se-fold-|
|000032b0| 73 65 61 72 63 68 20 72 | 65 2d 73 65 61 72 63 68 |search r|e-search|
|000032c0| 2d 66 6f 72 77 61 72 64 | 20 64 64 2d 6e 61 6d 65 |-forward| dd-name|
|000032d0| 20 6d 6d 2d 6e 61 6d 65 | 20 73 74 72 69 6e 67 2d | mm-name| string-|
|000032e0| 74 6f 2d 69 6e 74 20 22 | 22 20 6d 6d 20 64 64 20 |to-int "|" mm dd |
|000032f0| 79 2d 73 74 72 20 30 20 | 61 62 62 72 65 76 69 61 |y-str 0 |abbrevia|
|00003300| 74 65 64 2d 63 61 6c 65 | 6e 64 61 72 2d 79 65 61 |ted-cale|ndar-yea|
|00003310| 72 20 63 61 6c 65 6e 64 | 61 72 2d 63 75 72 72 65 |r calend|ar-curre|
|00003320| 6e 74 2d 64 61 74 65 20 | 63 75 72 72 65 6e 74 2d |nt-date |current-|
|00003330| 79 20 31 30 30 20 79 20 | 35 30 20 79 79 20 6d 61 |y 100 y |50 yy ma|
|00003340| 72 6b 2d 63 61 6c 65 6e | 64 61 72 2d 64 61 79 73 |rk-calen|dar-days|
|00003350| 2d 6e 61 6d 65 64 20 61 | 73 73 6f 63 20 63 61 70 |-named a|ssoc cap|
|00003360| 69 74 61 6c 69 7a 65 20 | 33 20 63 61 6c 65 6e 64 |italize |3 calend|
|00003370| 61 72 2d 6d 61 6b 65 2d | 61 6c 69 73 74 20 28 6c |ar-make-|alist (l|
|00003380| 61 6d 62 64 61 20 28 78 | 29 20 28 73 75 62 73 74 |ambda (x|) (subst|
|00003390| 72 69 6e 67 20 78 20 30 | 20 33 29 29 20 22 2a 22 |ring x 0| 3)) "*"|
|000033a0| 20 31 20 28 6c 61 6d 62 | 64 61 20 28 78 29 20 28 | 1 (lamb|da (x) (|
|000033b0| 73 75 62 73 74 72 69 6e | 67 20 78 20 30 20 33 29 |substrin|g x 0 3)|
|000033c0| 29 20 6d 61 72 6b 2d 63 | 61 6c 65 6e 64 61 72 2d |) mark-c|alendar-|
|000033d0| 64 61 74 65 2d 70 61 74 | 74 65 72 6e 20 6d 61 72 |date-pat|tern mar|
|000033e0| 6b 2d 73 65 78 70 2d 64 | 69 61 72 79 2d 65 6e 74 |k-sexp-d|iary-ent|
|000033f0| 72 69 65 73 20 72 75 6e | 2d 68 6f 6f 6b 73 20 6e |ries run|-hooks n|
|00003400| 6f 6e 67 72 65 67 6f 72 | 69 61 6e 2d 64 69 61 72 |ongregor|ian-diar|
|00003410| 79 2d 6d 61 72 6b 69 6e | 67 2d 68 6f 6f 6b 20 6d |y-markin|g-hook m|
|00003420| 61 72 6b 2d 64 69 61 72 | 79 2d 65 6e 74 72 69 65 |ark-diar|y-entrie|
|00003430| 73 2d 68 6f 6f 6b 20 22 | 4d 61 72 6b 69 6e 67 20 |s-hook "|Marking |
|00003440| 64 69 61 72 79 20 65 6e | 74 72 69 65 73 2e 2e 2e |diary en|tries...|
|00003450| 64 6f 6e 65 22 20 65 72 | 72 6f 72 20 22 59 6f 75 |done" er|ror "You|
|00003460| 72 20 64 69 61 72 79 20 | 66 69 6c 65 20 69 73 20 |r diary |file is |
|00003470| 6e 6f 74 20 72 65 61 64 | 61 62 6c 65 21 22 20 22 |not read|able!" "|
|00003480| 59 6f 75 20 64 6f 6e 27 | 74 20 68 61 76 65 20 61 |You don'|t have a|
|00003490| 20 64 69 61 72 79 20 66 | 69 6c 65 21 22 5d 20 38 | diary f|ile!"] 8|
|000034a0| 20 22 5c 0a 4d 61 72 6b | 20 64 61 79 73 20 69 6e | "\.Mark| days in|
|000034b0| 20 74 68 65 20 63 61 6c | 65 6e 64 61 72 20 77 69 | the cal|endar wi|
|000034c0| 6e 64 6f 77 20 74 68 61 | 74 20 68 61 76 65 20 64 |ndow tha|t have d|
|000034d0| 69 61 72 79 20 65 6e 74 | 72 69 65 73 2e 0a 45 61 |iary ent|ries..Ea|
|000034e0| 63 68 20 65 6e 74 72 79 | 20 69 6e 20 64 69 61 72 |ch entry| in diar|
|000034f0| 79 2d 66 69 6c 65 20 76 | 69 73 69 62 6c 65 20 69 |y-file v|isible i|
|00003500| 6e 20 74 68 65 20 63 61 | 6c 65 6e 64 61 72 20 77 |n the ca|lendar w|
|00003510| 69 6e 64 6f 77 20 69 73 | 20 6d 61 72 6b 65 64 2e |indow is| marked.|
|00003520| 20 20 41 66 74 65 72 20 | 74 68 65 0a 65 6e 74 72 |  After |the.entr|
|00003530| 69 65 73 20 61 72 65 20 | 6d 61 72 6b 65 64 2c 20 |ies are |marked, |
|00003540| 74 68 65 20 68 6f 6f 6b | 73 20 60 6e 6f 6e 67 72 |the hook|s `nongr|
|00003550| 65 67 6f 72 69 61 6e 2d | 64 69 61 72 79 2d 6d 61 |egorian-|diary-ma|
|00003560| 72 6b 69 6e 67 2d 68 6f | 6f 6b 27 20 61 6e 64 0a |rking-ho|ok' and.|
|00003570| 60 6d 61 72 6b 2d 64 69 | 61 72 79 2d 65 6e 74 72 |`mark-di|ary-entr|
|00003580| 69 65 73 2d 68 6f 6f 6b | 27 20 61 72 65 20 72 75 |ies-hook|' are ru|
|00003590| 6e 2e 22 20 6e 69 6c 5d | 29 0a 28 64 65 66 61 6c |n." nil]|).(defal|
|000035a0| 69 61 73 20 27 6d 61 72 | 6b 2d 73 65 78 70 2d 64 |ias 'mar|k-sexp-d|
|000035b0| 69 61 72 79 2d 65 6e 74 | 72 69 65 73 20 23 5b 6e |iary-ent|ries #[n|
|000035c0| 69 6c 20 22 c0 09 21 1a | c3 5c 6e c4 51 1d c6 1e |il "..!.|.\n.Q...|
|000035d0| 07 c6 1e 08 c6 1e 09 c6 | 1e 5c 6e 8a 0e 0b 71 88 |........|.\n...q.|
|000035e0| 0e 0c 16 07 0e 0d 16 08 | 29 0e 08 ce 5f 0e 07 cf |........|)..._...|
|000035f0| 5c 5c 5c 5c 89 1e 10 ce | a6 54 16 07 0e 10 ce a5 |\\\\....|.T......|
|00003600| 16 08 29 0e 07 d1 0e 08 | 45 41 41 40 1e 12 0e 07 |..).....|EAA@....|
|00003610| d1 0e 08 45 40 1e 13 0e | 07 d1 0e 08 45 41 40 1e |...E@...|....EA@.|
|00003620| 14 0e 07 d1 0e 08 45 41 | 41 40 1e 12 0e 14 0e 13 |......EA|A@......|
|00003630| 53 d5 5f 5c 5c 1e 16 0e | 13 d7 56 83 a2 00 0e 16 |S._\\...|..V.....|
|00003640| 0e 13 d8 5f d9 5c 5c da | a5 5a 16 16 0e 12 d8 a6 |..._.\\.|.Z......|
|00003650| db 55 83 a2 00 0e 12 dc | a6 db 55 83 9d 00 0e 12 |.U......|..U.....|
|00003660| dd a6 db 55 83 a2 00 0e | 16 54 16 16 0e 16 2c 0e |...U....|.T....,.|
|00003670| 12 53 de 5f 0e 12 53 d8 | a5 0e 12 53 dc a5 5b 0e |.S._..S.|...S..[.|
|00003680| 12 53 dd a5 5c 5c 5c 5c | 5c 5c 5c 5c 29 16 09 0e |.S..\\\\|\\\\)...|
|00003690| 08 ce 5f 0e 07 d1 5c 5c | 5c 5c 89 1e 10 ce a6 54 |.._...\\|\\.....T|
|000036a0| 16 07 0e 10 ce a5 16 08 | 29 0e 07 0e 08 d8 a6 db |........|).......|
|000036b0| 55 83 01 01 0e 08 dc a6 | db 55 83 f6 00 0e 08 dd |U.......|.U......|
|000036c0| a6 db 55 83 01 01 0e 07 | d7 55 83 01 01 df 82 06 |..U.....|.U......|
|000036d0| 01 e0 0e 07 53 48 0e 08 | 45 41 41 40 1e 12 0e 07 |....SH..|EAA@....|
|000036e0| 0e 08 d8 a6 db 55 83 36 | 01 0e 08 dc a6 db 55 83 |.....U.6|......U.|
|000036f0| 2b 01 0e 08 dd a6 db 55 | 83 36 01 0e 07 d7 55 83 |+......U|.6....U.|
|00003700| 36 01 df 82 3b 01 e0 0e | 07 53 48 0e 08 45 40 1e |6...;...|.SH..E@.|
|00003710| 13 0e 07 0e 08 d8 a6 db | 55 83 69 01 0e 08 dc a6 |........|U.i.....|
|00003720| db 55 83 5e 01 0e 08 dd | a6 db 55 83 69 01 0e 07 |.U.^....|..U.i...|
|00003730| d7 55 83 69 01 df 82 6e | 01 e0 0e 07 53 48 0e 08 |.U.i...n|....SH..|
|00003740| 45 41 40 1e 14 0e 07 0e | 08 d8 a6 db 55 83 9d 01 |EA@.....|....U...|
|00003750| 0e 08 dc a6 db 55 83 92 | 01 0e 08 dd a6 db 55 83 |.....U..|......U.|
|00003760| 9d 01 0e 07 d7 55 83 9d | 01 df 82 a2 01 e0 0e 07 |.....U..|........|
|00003770| 53 48 0e 08 45 41 41 40 | 1e 12 0e 14 0e 13 53 d5 |SH..EAA@|......S.|
|00003780| 5f 5c 5c 1e 16 0e 13 d7 | 56 83 e8 01 0e 16 0e 13 |_\\.....|V.......|
|00003790| d8 5f d9 5c 5c da a5 5a | 16 16 0e 12 d8 a6 db 55 |._.\\..Z|.......U|
|000037a0| 83 e8 01 0e 12 dc a6 db | 55 83 e3 01 0e 12 dd a6 |........|U.......|
|000037b0| db 55 83 e8 01 0e 16 54 | 16 16 0e 16 2c 0e 12 53 |.U.....T|....,..S|
|000037c0| de 5f 0e 12 53 d8 a5 0e | 12 53 dc a5 5b 0e 12 53 |._..S...|.S..[..S|
|000037d0| dd a5 5c 5c 5c 5c 5c 5c | 5c 5c 29 16 5c 6e 65 62 |..\\\\\\|\\).\neb|
|000037e0| 88 e1 0d c6 e2 23 85 b9 | 02 e3 d1 21 88 60 c6 89 |.....#..|...!.`..|
|000037f0| 89 89 1e 24 1e 25 1e 26 | 1e 27 1e 28 e9 20 88 0e |...$.%.&|.'.(. ..|
|00003800| 28 60 7b 16 27 8a ea eb | 21 88 60 16 24 29 d1 75 |(`{.'...|!.`.$).u|
|00003810| 88 ec 68 ed 5c 22 84 48 | 02 ec 68 da 5c 22 83 58 |..h.\".H|..h.\".X|
|00003820| 02 ee ef 21 84 58 02 e3 | d1 21 88 f0 16 26 82 8c |...!.X..|.!...&..|
|00003830| 02 60 16 25 e1 f1 c6 e2 | 23 88 ee ef 21 83 70 02 |.`.%....|#...!.p.|
|00003840| e1 f1 c6 e2 23 88 82 61 | 02 e3 d1 21 88 0e 25 60 |....#..a|...!..%`|
|00003850| 7b 16 26 f2 f3 0e 26 5c | 22 83 8c 02 0e 26 db 94 |{.&...&\|"....&..|
|00003860| da 49 88 82 7a 02 0e 09 | 53 1e 34 0e 5c 6e 0e 34 |.I..z...|S.4.\n.4|
|00003870| 54 89 16 34 59 83 b4 02 | f5 0e 27 0e 26 f6 0e 34 |T..4Y...|..'.&..4|
|00003880| 21 23 83 91 02 f7 f6 0e | 34 21 21 88 82 91 02 2e |!#......|4!!.....|
|00003890| 06 82 5c 6e 02 2e 06 87 | 22 20 5b 72 65 67 65 78 |..\n....|" [regex|
|000038a0| 70 2d 71 75 6f 74 65 20 | 73 65 78 70 2d 64 69 61 |p-quote |sexp-dia|
|000038b0| 72 79 2d 65 6e 74 72 79 | 2d 73 79 6d 62 6f 6c 20 |ry-entry|-symbol |
|000038c0| 73 65 78 70 2d 6d 61 72 | 6b 20 22 5c 5c 28 5c 5c |sexp-mar|k "\\(\\|
|000038d0| 60 5c 5c 7c 0d 5c 5c 7c | 5c 6e 5c 5c 29 22 20 22 |`\\|.\\||\n\\)" "|
|000038e0| 28 22 20 73 2d 65 6e 74 | 72 79 20 6e 69 6c 20 6d |(" s-ent|ry nil m|
|000038f0| 20 79 20 66 69 72 73 74 | 2d 64 61 74 65 20 6c 61 | y first|-date la|
|00003900| 73 74 2d 64 61 74 65 20 | 63 61 6c 65 6e 64 61 72 |st-date |calendar|
|00003910| 2d 62 75 66 66 65 72 20 | 64 69 73 70 6c 61 79 65 |-buffer |displaye|
|00003920| 64 2d 6d 6f 6e 74 68 20 | 64 69 73 70 6c 61 79 65 |d-month |displaye|
|00003930| 64 2d 79 65 61 72 20 31 | 32 20 2d 32 20 6d 61 63 |d-year 1|2 -2 mac|
|00003940| 72 6f 2d 79 20 31 20 79 | 65 61 72 20 6d 6f 6e 74 |ro-y 1 y|ear mont|
|00003950| 68 20 64 61 79 20 33 31 | 20 64 61 79 2d 6f 66 2d |h day 31| day-of-|
|00003960| 79 65 61 72 20 32 20 34 | 20 32 33 20 31 30 20 30 |year 2 4| 23 10 0|
|00003970| 20 31 30 30 20 34 30 30 | 20 33 36 35 20 32 39 20 | 100 400| 365 29 |
|00003980| 5b 33 31 20 32 38 20 33 | 31 20 33 30 20 33 31 20 |[31 28 3|1 30 31 |
|00003990| 33 30 20 33 31 20 33 31 | 20 33 30 20 33 31 20 33 |30 31 31| 30 31 3|
|000039a0| 30 20 33 31 5d 20 72 65 | 2d 73 65 61 72 63 68 2d |0 31] re|-search-|
|000039b0| 66 6f 72 77 61 72 64 20 | 74 20 62 61 63 6b 77 61 |forward |t backwa|
|000039c0| 72 64 2d 63 68 61 72 20 | 6c 69 6e 65 2d 73 74 61 |rd-char |line-sta|
|000039d0| 72 74 20 65 6e 74 72 79 | 2d 73 74 61 72 74 20 65 |rt entry|-start e|
|000039e0| 6e 74 72 79 20 73 65 78 | 70 20 73 65 78 70 2d 73 |ntry sex|p sexp-s|
|000039f0| 74 61 72 74 20 66 6f 72 | 77 61 72 64 2d 73 65 78 |tart for|ward-sex|
|00003a00| 70 20 72 65 2d 73 65 61 | 72 63 68 2d 62 61 63 6b |p re-sea|rch-back|
|00003a10| 77 61 72 64 20 22 0d 5c | 5c 7c 5c 6e 5c 5c 7c 5c |ward ".\|\|\n\\|\|
|00003a20| 5c 60 22 20 63 68 61 72 | 2d 65 71 75 61 6c 20 31 |\`" char|-equal 1|
|00003a30| 33 20 6c 6f 6f 6b 69 6e | 67 2d 61 74 20 22 20 5c |3 lookin|g-at " \|
|00003a40| 5c 7c 09 22 20 22 22 20 | 22 0d 5c 5c 7c 5c 6e 22 |\|." "" |".\\|\n"|
|00003a50| 20 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 5b | string-|match "[|
|00003a60| 0d 5d 22 20 64 61 74 65 | 20 64 69 61 72 79 2d 73 |.]" date| diary-s|
|00003a70| 65 78 70 2d 65 6e 74 72 | 79 20 63 61 6c 65 6e 64 |exp-entr|y calend|
|00003a80| 61 72 2d 67 72 65 67 6f | 72 69 61 6e 2d 66 72 6f |ar-grego|rian-fro|
|00003a90| 6d 2d 61 62 73 6f 6c 75 | 74 65 20 6d 61 72 6b 2d |m-absolu|te mark-|
|00003aa0| 76 69 73 69 62 6c 65 2d | 63 61 6c 65 6e 64 61 72 |visible-|calendar|
|00003ab0| 2d 64 61 74 65 5d 20 37 | 20 22 5c 0a 4d 61 72 6b |-date] 7| "\.Mark|
|00003ac0| 20 64 61 79 73 20 69 6e | 20 74 68 65 20 63 61 6c | days in| the cal|
|00003ad0| 65 6e 64 61 72 20 77 69 | 6e 64 6f 77 20 74 68 61 |endar wi|ndow tha|
|00003ae0| 74 20 68 61 76 65 20 73 | 65 78 70 20 64 69 61 72 |t have s|exp diar|
|00003af0| 79 20 65 6e 74 72 69 65 | 73 2e 0a 45 61 63 68 20 |y entrie|s..Each |
|00003b00| 65 6e 74 72 79 20 69 6e | 20 64 69 61 72 79 2d 66 |entry in| diary-f|
|00003b10| 69 6c 65 20 28 6f 72 20 | 69 6e 63 6c 75 64 65 64 |ile (or |included|
|00003b20| 20 66 69 6c 65 73 29 20 | 76 69 73 69 62 6c 65 20 | files) |visible |
|00003b30| 69 6e 20 74 68 65 20 63 | 61 6c 65 6e 64 61 72 20 |in the c|alendar |
|00003b40| 77 69 6e 64 6f 77 0a 69 | 73 20 6d 61 72 6b 65 64 |window.i|s marked|
|00003b50| 2e 20 20 53 65 65 20 74 | 68 65 20 64 6f 63 75 6d |.  See t|he docum|
|00003b60| 65 6e 74 61 74 69 6f 6e | 20 66 6f 72 20 74 68 65 |entation| for the|
|00003b70| 20 66 75 6e 63 74 69 6f | 6e 20 60 6c 69 73 74 2d | functio|n `list-|
|00003b80| 73 65 78 70 2d 64 69 61 | 72 79 2d 65 6e 74 72 69 |sexp-dia|ry-entri|
|00003b90| 65 73 27 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |es'."]).|(defalia|
|00003ba0| 73 20 27 6d 61 72 6b 2d | 69 6e 63 6c 75 64 65 64 |s 'mark-|included|
|00003bb0| 2d 64 69 61 72 79 2d 66 | 69 6c 65 73 20 23 5b 6e |-diary-f|iles #[n|
|00003bc0| 69 6c 20 22 65 62 88 c0 | c1 c2 0b 21 c4 51 c5 c6 |il "eb..|...!.Q..|
|00003bd0| 23 83 58 00 c7 c8 94 c8 | 95 7b 21 c9 1e 5c 6e 1e |#.X.....|.{!..\n.|
|00003be0| 0b cc 0e 0b 21 83 47 00 | cd 0e 0b 21 83 37 00 ce |....!.G.|...!.7..|
|00003bf0| 20 88 cf d0 0e 0b 21 21 | 88 82 54 00 d1 20 88 d2 | .....!!|..T.. ..|
|00003c00| d3 0e 0b 5c 22 88 d4 c8 | 21 88 82 54 00 d1 20 88 |...\"...|!..T.. .|
|00003c10| d2 d5 0e 0b 5c 22 88 d4 | c8 21 88 2a 82 03 00 65 |....\"..|.!.*...e|
|00003c20| 62 87 22 20 5b 72 65 2d | 73 65 61 72 63 68 2d 66 |b." [re-|search-f|
|00003c30| 6f 72 77 61 72 64 20 22 | 5c 5c 28 5c 5c 60 5c 5c |orward "|\\(\\`\\|
|00003c40| 7c 0d 5c 5c 7c 5c 6e 5c | 5c 29 22 20 72 65 67 65 ||.\\|\n\|\)" rege|
|00003c50| 78 70 2d 71 75 6f 74 65 | 20 64 69 61 72 79 2d 69 |xp-quote| diary-i|
|00003c60| 6e 63 6c 75 64 65 2d 73 | 74 72 69 6e 67 20 22 20 |nclude-s|tring " |
|00003c70| 5c 22 5c 5c 28 5b 5e 5c | 22 5d 2a 5c 5c 29 5c 22 |\"\\([^\|"]*\\)\"|
|00003c80| 22 20 6e 69 6c 20 74 20 | 73 75 62 73 74 69 74 75 |" nil t |substitu|
|00003c90| 74 65 2d 69 6e 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |te-in-fi|le-name |
|00003ca0| 32 20 6d 61 72 6b 2d 69 | 6e 63 6c 75 64 65 64 2d |2 mark-i|ncluded-|
|00003cb0| 64 69 61 72 79 2d 66 69 | 6c 65 73 20 6d 61 72 6b |diary-fi|les mark|
|00003cc0| 2d 64 69 61 72 79 2d 65 | 6e 74 72 69 65 73 2d 68 |-diary-e|ntries-h|
|00003cd0| 6f 6f 6b 20 64 69 61 72 | 79 2d 66 69 6c 65 20 66 |ook diar|y-file f|
|00003ce0| 69 6c 65 2d 65 78 69 73 | 74 73 2d 70 20 66 69 6c |ile-exis|ts-p fil|
|00003cf0| 65 2d 72 65 61 64 61 62 | 6c 65 2d 70 20 6d 61 72 |e-readab|le-p mar|
|00003d00| 6b 2d 64 69 61 72 79 2d | 65 6e 74 72 69 65 73 20 |k-diary-|entries |
|00003d10| 6b 69 6c 6c 2d 62 75 66 | 66 65 72 20 67 65 74 2d |kill-buf|fer get-|
|00003d20| 66 69 6c 65 2d 62 75 66 | 66 65 72 20 62 65 65 70 |file-buf|fer beep|
|00003d30| 20 6d 65 73 73 61 67 65 | 20 22 43 61 6e 27 74 20 | message| "Can't |
|00003d40| 72 65 61 64 20 69 6e 63 | 6c 75 64 65 64 20 64 69 |read inc|luded di|
|00003d50| 61 72 79 20 66 69 6c 65 | 20 25 73 22 20 73 6c 65 |ary file| %s" sle|
|00003d60| 65 70 2d 66 6f 72 20 22 | 43 61 6e 27 74 20 66 69 |ep-for "|Can't fi|
|00003d70| 6e 64 20 69 6e 63 6c 75 | 64 65 64 20 64 69 61 72 |nd inclu|ded diar|
|00003d80| 79 20 66 69 6c 65 20 25 | 73 22 5d 20 34 20 22 5c |y file %|s"] 4 "\|
|00003d90| 0a 4d 61 72 6b 20 74 68 | 65 20 64 69 61 72 79 20 |.Mark th|e diary |
|00003da0| 65 6e 74 72 69 65 73 20 | 66 72 6f 6d 20 6f 74 68 |entries |from oth|
|00003db0| 65 72 20 64 69 61 72 79 | 20 66 69 6c 65 73 20 77 |er diary| files w|
|00003dc0| 69 74 68 20 74 68 6f 73 | 65 20 6f 66 20 64 69 61 |ith thos|e of dia|
|00003dd0| 72 79 2d 66 69 6c 65 2e | 0a 54 68 69 73 20 66 75 |ry-file.|.This fu|
|00003de0| 6e 63 74 69 6f 6e 20 69 | 73 20 73 75 69 74 61 62 |nction i|s suitab|
|00003df0| 6c 65 20 66 6f 72 20 75 | 73 65 20 61 73 20 74 68 |le for u|se as th|
|00003e00| 65 20 6d 61 72 6b 2d 64 | 69 61 72 79 2d 65 6e 74 |e mark-d|iary-ent|
|00003e10| 72 69 65 73 2d 68 6f 6f | 6b 3b 20 69 74 20 65 6e |ries-hoo|k; it en|
|00003e20| 61 62 6c 65 73 0a 79 6f | 75 20 74 6f 20 75 73 65 |ables.yo|u to use|
|00003e30| 20 73 68 61 72 65 64 20 | 64 69 61 72 79 20 66 69 | shared |diary fi|
|00003e40| 6c 65 73 20 74 6f 67 65 | 74 68 65 72 20 77 69 74 |les toge|ther wit|
|00003e50| 68 20 79 6f 75 72 20 6f | 77 6e 2e 20 20 54 68 65 |h your o|wn.  The|
|00003e60| 20 66 69 6c 65 73 20 69 | 6e 63 6c 75 64 65 64 20 | files i|ncluded |
|00003e70| 61 72 65 0a 73 70 65 63 | 69 66 69 65 64 20 69 6e |are.spec|ified in|
|00003e80| 20 74 68 65 20 64 69 61 | 72 79 2d 66 69 6c 65 20 | the dia|ry-file |
|00003e90| 62 79 20 6c 69 6e 65 73 | 20 6f 66 20 74 68 65 20 |by lines| of the |
|00003ea0| 66 6f 72 6d 0a 20 20 20 | 20 20 20 20 20 23 69 6e |form.   |     #in|
|00003eb0| 63 6c 75 64 65 20 5c 22 | 66 69 6c 65 6e 61 6d 65 |clude \"|filename|
|00003ec0| 5c 22 0a 54 68 69 73 20 | 69 73 20 72 65 63 75 72 |\".This |is recur|
|00003ed0| 73 69 76 65 3b 20 74 68 | 61 74 20 69 73 2c 20 23 |sive; th|at is, #|
|00003ee0| 69 6e 63 6c 75 64 65 20 | 64 69 72 65 63 74 69 76 |include |directiv|
|00003ef0| 65 73 20 69 6e 20 64 69 | 61 72 79 20 66 69 6c 65 |es in di|ary file|
|00003f00| 73 20 74 68 75 73 20 69 | 6e 63 6c 75 64 65 64 0a |s thus i|ncluded.|
|00003f10| 61 72 65 20 6f 62 65 79 | 65 64 2e 20 20 59 6f 75 |are obey|ed.  You|
|00003f20| 20 63 61 6e 20 63 68 61 | 6e 67 65 20 74 68 65 20 | can cha|nge the |
|00003f30| 5c 22 23 69 6e 63 6c 75 | 64 65 5c 22 20 74 6f 20 |\"#inclu|de\" to |
|00003f40| 73 6f 6d 65 20 6f 74 68 | 65 72 20 73 74 72 69 6e |some oth|er strin|
|00003f50| 67 20 62 79 0a 63 68 61 | 6e 67 69 6e 67 20 74 68 |g by.cha|nging th|
|00003f60| 65 20 76 61 72 69 61 62 | 6c 65 20 60 64 69 61 72 |e variab|le `diar|
|00003f70| 79 2d 69 6e 63 6c 75 64 | 65 2d 73 74 72 69 6e 67 |y-includ|e-string|
|00003f80| 27 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |'."]).(d|efalias |
|00003f90| 27 6d 61 72 6b 2d 63 61 | 6c 65 6e 64 61 72 2d 64 |'mark-ca|lendar-d|
|00003fa0| 61 79 73 2d 6e 61 6d 65 | 64 20 23 5b 28 64 61 79 |ays-name|d #[(day|
|00003fb0| 6e 61 6d 65 29 20 22 8a | 08 71 88 09 5c 6e 09 5c |name) ".|.q..\n.\|
|00003fc0| 6e c3 89 1c 1d 1e 06 1e | 07 1e 08 1e 09 0e 06 ca |n.......|........|
|00003fd0| 5f 0e 07 5c 5c 89 1e 0b | ca a6 54 16 07 0e 0b ca |_..\\...|..T.....|
|00003fe0| a5 16 06 29 0e 08 ca 5f | 0e 09 cc 5c 5c 5c 5c 89 |...)..._|...\\\\.|
|00003ff0| 1e 0b ca a6 54 16 09 0e | 0b ca a5 16 08 29 cd ce |....T...|.....)..|
|00004000| 0e 0f 0e 09 0e 08 24 41 | 41 40 1e 10 cd ce 0e 0f |......$A|A@......|
|00004010| 0e 09 0e 08 24 40 1e 11 | cd ce 0e 0f 0e 09 0e 08 |....$@..|........|
|00004020| 24 41 40 1c cd ce 0e 0f | 0e 09 0e 08 24 41 41 40 |$A@.....|....$AA@|
|00004030| 1e 10 0c 0e 11 53 d2 5f | 5c 5c 1e 13 0e 11 d4 56 |.....S._|\\.....V|
|00004040| 83 b3 00 0e 13 0e 11 d5 | 5f d6 5c 5c d7 a5 5a 16 |........|_.\\..Z.|
|00004050| 13 0e 10 d5 a6 d8 55 83 | b3 00 0e 10 d9 a6 d8 55 |......U.|.......U|
|00004060| 83 ae 00 0e 10 da a6 d8 | 55 83 b3 00 0e 13 54 16 |........|U.....T.|
|00004070| 13 0e 13 2c 0e 10 53 db | 5f 0e 10 53 d5 a5 0e 10 |...,..S.|_..S....|
|00004080| 53 d9 a5 5b 0e 10 53 da | a5 5c 5c 5c 5c 5c 5c 5c |S..[..S.|.\\\\\\\|
|00004090| 5c 29 14 cd dc 0e 0f 0e | 07 0e 06 24 41 41 40 1e |\)......|...$AA@.|
|000040a0| 10 cd dc 0e 0f 0e 07 0e | 06 24 40 1e 11 cd dc 0e |........|.$@.....|
|000040b0| 0f 0e 07 0e 06 24 41 40 | 1c cd dc 0e 0f 0e 07 0e |.....$A@|........|
|000040c0| 06 24 41 41 40 1e 10 0c | 0e 11 53 d2 5f 5c 5c 1e |.$AA@...|..S._\\.|
|000040d0| 13 0e 11 d4 56 83 42 01 | 0e 13 0e 11 d5 5f d6 5c |....V.B.|....._.\|
|000040e0| 5c d7 a5 5a 16 13 0e 10 | d5 a6 d8 55 83 42 01 0e |\..Z....|...U.B..|
|000040f0| 10 d9 a6 d8 55 83 3d 01 | 0e 10 da a6 d8 55 83 42 |....U.=.|.....U.B|
|00004100| 01 0e 13 54 16 13 0e 13 | 2c 0e 10 53 db 5f 0e 10 |...T....|,..S._..|
|00004110| 53 d5 a5 0e 10 53 d9 a5 | 5b 0e 10 53 da a5 5c 5c |S....S..|[..S..\\|
|00004120| 5c 5c 5c 5c 5c 5c 29 15 | 0c 0d 58 85 74 01 dd de |\\\\\\).|..X.t...|
|00004130| 0c 21 21 88 0c df 5c 5c | 89 14 82 61 01 2e 07 87 |.!!...\\|...a....|
|00004140| 22 20 5b 63 61 6c 65 6e | 64 61 72 2d 62 75 66 66 |" [calen|dar-buff|
|00004150| 65 72 20 64 69 73 70 6c | 61 79 65 64 2d 6d 6f 6e |er displ|ayed-mon|
|00004160| 74 68 20 64 69 73 70 6c | 61 79 65 64 2d 79 65 61 |th displ|ayed-yea|
|00004170| 72 20 6e 69 6c 20 64 61 | 79 20 6c 61 73 74 2d 64 |r nil da|y last-d|
|00004180| 61 79 20 73 75 63 63 2d | 79 65 61 72 20 73 75 63 |ay succ-|year suc|
|00004190| 63 2d 6d 6f 6e 74 68 20 | 70 72 65 76 2d 79 65 61 |c-month |prev-yea|
|000041a0| 72 20 70 72 65 76 2d 6d | 6f 6e 74 68 20 31 32 20 |r prev-m|onth 12 |
|000041b0| 6d 61 63 72 6f 2d 79 20 | 2d 32 20 63 61 6c 65 6e |macro-y |-2 calen|
|000041c0| 64 61 72 2d 6e 74 68 2d | 6e 61 6d 65 64 2d 64 61 |dar-nth-|named-da|
|000041d0| 79 20 31 20 64 61 79 6e | 61 6d 65 20 79 65 61 72 |y 1 dayn|ame year|
|000041e0| 20 6d 6f 6e 74 68 20 33 | 31 20 64 61 79 2d 6f 66 | month 3|1 day-of|
|000041f0| 2d 79 65 61 72 20 32 20 | 34 20 32 33 20 31 30 20 |-year 2 |4 23 10 |
|00004200| 30 20 31 30 30 20 34 30 | 30 20 33 36 35 20 2d 31 |0 100 40|0 365 -1|
|00004210| 20 6d 61 72 6b 2d 76 69 | 73 69 62 6c 65 2d 63 61 | mark-vi|sible-ca|
|00004220| 6c 65 6e 64 61 72 2d 64 | 61 74 65 20 63 61 6c 65 |lendar-d|ate cale|
|00004230| 6e 64 61 72 2d 67 72 65 | 67 6f 72 69 61 6e 2d 66 |ndar-gre|gorian-f|
|00004240| 72 6f 6d 2d 61 62 73 6f | 6c 75 74 65 20 37 5d 20 |rom-abso|lute 7] |
|00004250| 37 20 22 5c 0a 4d 61 72 | 6b 20 61 6c 6c 20 64 61 |7 "\.Mar|k all da|
|00004260| 74 65 73 20 69 6e 20 74 | 68 65 20 63 61 6c 65 6e |tes in t|he calen|
|00004270| 64 61 72 20 77 69 6e 64 | 6f 77 20 74 68 61 74 20 |dar wind|ow that |
|00004280| 61 72 65 20 64 61 79 20 | 44 41 59 4e 41 4d 45 20 |are day |DAYNAME |
|00004290| 6f 66 20 74 68 65 20 77 | 65 65 6b 2e 0a 30 20 6d |of the w|eek..0 m|
|000042a0| 65 61 6e 73 20 61 6c 6c | 20 53 75 6e 64 61 79 73 |eans all| Sundays|
|000042b0| 2c 20 31 20 6d 65 61 6e | 73 20 61 6c 6c 20 4d 6f |, 1 mean|s all Mo|
|000042c0| 6e 64 61 79 73 2c 20 61 | 6e 64 20 73 6f 20 6f 6e |ndays, a|nd so on|
|000042d0| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|000042e0| 6d 61 72 6b 2d 63 61 6c | 65 6e 64 61 72 2d 64 61 |mark-cal|endar-da|
|000042f0| 74 65 2d 70 61 74 74 65 | 72 6e 20 23 5b 28 6d 6f |te-patte|rn #[(mo|
|00004300| 6e 74 68 20 64 61 79 20 | 79 65 61 72 29 20 22 8a |nth day |year) ".|
|00004310| 08 71 88 09 5c 6e 1b 1c | 0b c5 5f 0c c6 5c 5c 5c |.q..\n..|.._..\\\|
|00004320| 5c 89 1e 07 c5 a6 54 14 | 0e 07 c5 a5 13 29 c8 1e |\.....T.|.....)..|
|00004330| 09 ca 0e 09 54 89 16 09 | 59 85 4a 00 cb 0c 0b 0e |....T...|Y.J.....|
|00004340| 0c 0e 0d 0e 0e 25 88 0b | c5 5f 0c 5c 5c 89 1e 07 |.....%..|._.\\...|
|00004350| c5 a6 54 14 0e 07 c5 a5 | 13 29 82 1f 00 2c 87 22 |..T.....|.)...,."|
|00004360| 20 5b 63 61 6c 65 6e 64 | 61 72 2d 62 75 66 66 65 | [calend|ar-buffe|
|00004370| 72 20 64 69 73 70 6c 61 | 79 65 64 2d 6d 6f 6e 74 |r displa|yed-mont|
|00004380| 68 20 64 69 73 70 6c 61 | 79 65 64 2d 79 65 61 72 |h displa|yed-year|
|00004390| 20 79 20 6d 20 31 32 20 | 2d 32 20 6d 61 63 72 6f | y m 12 |-2 macro|
|000043a0| 2d 79 20 2d 31 20 69 20 | 32 20 6d 61 72 6b 2d 63 |-y -1 i |2 mark-c|
|000043b0| 61 6c 65 6e 64 61 72 2d | 6d 6f 6e 74 68 20 6d 6f |alendar-|month mo|
|000043c0| 6e 74 68 20 64 61 79 20 | 79 65 61 72 5d 20 37 20 |nth day |year] 7 |
|000043d0| 22 5c 0a 4d 61 72 6b 20 | 61 6c 6c 20 64 61 74 65 |"\.Mark |all date|
|000043e0| 73 20 69 6e 20 74 68 65 | 20 63 61 6c 65 6e 64 61 |s in the| calenda|
|000043f0| 72 20 77 69 6e 64 6f 77 | 20 74 68 61 74 20 63 6f |r window| that co|
|00004400| 6e 66 6f 72 6d 20 74 6f | 20 4d 4f 4e 54 48 2f 44 |nform to| MONTH/D|
|00004410| 41 59 2f 59 45 41 52 2e | 0a 41 20 76 61 6c 75 65 |AY/YEAR.|.A value|
|00004420| 20 6f 66 20 30 20 69 6e | 20 61 6e 79 20 70 6f 73 | of 0 in| any pos|
|00004430| 69 74 69 6f 6e 20 69 73 | 20 61 20 77 69 6c 64 2d |ition is| a wild-|
|00004440| 63 61 72 64 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |card."])|.(defali|
|00004450| 61 73 20 27 6d 61 72 6b | 2d 63 61 6c 65 6e 64 61 |as 'mark|-calenda|
|00004460| 72 2d 6d 6f 6e 74 68 20 | 23 5b 28 6d 6f 6e 74 68 |r-month |#[(month|
|00004470| 20 79 65 61 72 20 70 2d | 6d 6f 6e 74 68 20 70 2d | year p-|month p-|
|00004480| 64 61 79 20 70 2d 79 65 | 61 72 29 20 22 08 09 55 |day p-ye|ar) "..U|
|00004490| 83 12 00 5c 6e c3 55 84 | 24 00 0c 5c 6e 55 84 24 |...\n.U.|$..\nU.$|
|000044a0| 00 09 c3 55 85 70 00 5c | 6e c3 55 84 24 00 0c 5c |...U.p.\|n.U.$..\|
|000044b0| 6e 55 85 70 00 0d c3 55 | 83 6a 00 c3 1e 06 0c c7 |nU.p...U|.j......|
|000044c0| a6 c3 55 83 4f 00 0c c8 | a6 c3 55 83 45 00 0c c9 |..U.O...|..U.E...|
|000044d0| a6 c3 55 83 4f 00 08 ca | 55 83 4f 00 cb 82 53 00 |..U.O...|U.O...S.|
|000044e0| cc 08 53 48 0e 06 54 89 | 16 06 59 85 68 00 cd 08 |..SH..T.|..Y.h...|
|000044f0| 0e 06 0c 45 21 88 82 2d | 00 29 87 cd 08 0d 0c 45 |...E!..-|.).....E|
|00004500| 21 87 22 20 5b 6d 6f 6e | 74 68 20 70 2d 6d 6f 6e |!." [mon|th p-mon|
|00004510| 74 68 20 70 2d 79 65 61 | 72 20 30 20 79 65 61 72 |th p-yea|r 0 year|
|00004520| 20 70 2d 64 61 79 20 69 | 20 34 20 31 30 30 20 34 | p-day i| 4 100 4|
|00004530| 30 30 20 32 20 32 39 20 | 5b 33 31 20 32 38 20 33 |00 2 29 |[31 28 3|
|00004540| 31 20 33 30 20 33 31 20 | 33 30 20 33 31 20 33 31 |1 30 31 |30 31 31|
|00004550| 20 33 30 20 33 31 20 33 | 30 20 33 31 5d 20 6d 61 | 30 31 3|0 31] ma|
|00004560| 72 6b 2d 76 69 73 69 62 | 6c 65 2d 63 61 6c 65 6e |rk-visib|le-calen|
|00004570| 64 61 72 2d 64 61 74 65 | 5d 20 34 20 22 5c 0a 4d |dar-date|] 4 "\.M|
|00004580| 61 72 6b 20 64 61 74 65 | 73 20 69 6e 20 74 68 65 |ark date|s in the|
|00004590| 20 4d 4f 4e 54 48 2f 59 | 45 41 52 20 74 68 61 74 | MONTH/Y|EAR that|
|000045a0| 20 63 6f 6e 66 6f 72 6d | 20 74 6f 20 70 61 74 74 | conform| to patt|
|000045b0| 65 72 6e 20 50 2d 4d 4f | 4e 54 48 2f 50 5f 44 41 |ern P-MO|NTH/P_DA|
|000045c0| 59 2f 50 2d 59 45 41 52 | 2e 0a 41 20 76 61 6c 75 |Y/P-YEAR|..A valu|
|000045d0| 65 20 6f 66 20 30 20 69 | 6e 20 61 6e 79 20 70 6f |e of 0 i|n any po|
|000045e0| 73 69 74 69 6f 6e 20 6f | 66 20 74 68 65 20 70 61 |sition o|f the pa|
|000045f0| 74 74 65 72 6e 20 69 73 | 20 61 20 77 69 6c 64 2d |ttern is| a wild-|
|00004600| 63 61 72 64 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |card."])|.(defali|
|00004610| 61 73 20 27 73 6f 72 74 | 2d 64 69 61 72 79 2d 65 |as 'sort|-diary-e|
|00004620| 6e 74 72 69 65 73 20 23 | 5b 6e 69 6c 20 22 c0 09 |ntries #|[nil "..|
|00004630| c2 5c 22 89 11 87 22 20 | 5b 73 6f 72 74 20 64 69 |.\"..." |[sort di|
|00004640| 61 72 79 2d 65 6e 74 72 | 69 65 73 2d 6c 69 73 74 |ary-entr|ies-list|
|00004650| 20 64 69 61 72 79 2d 65 | 6e 74 72 79 2d 63 6f 6d | diary-e|ntry-com|
|00004660| 70 61 72 65 5d 20 33 20 | 22 5c 0a 53 6f 72 74 20 |pare] 3 |"\.Sort |
|00004670| 74 68 65 20 6c 69 73 74 | 20 6f 66 20 64 69 61 72 |the list| of diar|
|00004680| 79 20 65 6e 74 72 69 65 | 73 20 62 79 20 74 69 6d |y entrie|s by tim|
|00004690| 65 20 6f 66 20 64 61 79 | 2e 22 5d 29 0a 28 64 65 |e of day|."]).(de|
|000046a0| 66 61 6c 69 61 73 20 27 | 64 69 61 72 79 2d 65 6e |falias '|diary-en|
|000046b0| 74 72 79 2d 63 6f 6d 70 | 61 72 65 20 23 5b 28 65 |try-comp|are #[(e|
|000046c0| 31 20 65 32 29 20 22 c0 | 09 5c 6e 5c 22 86 1b 00 |1 e2) ".|.\n\"...|
|000046d0| c3 09 40 5c 6e 40 5c 22 | 85 1b 00 c4 09 41 40 21 |..@\n@\"|.....A@!|
|000046e0| c4 5c 6e 41 40 21 57 87 | 22 20 5b 63 61 6c 65 6e |.\nA@!W.|" [calen|
|000046f0| 64 61 72 2d 64 61 74 65 | 2d 63 6f 6d 70 61 72 65 |dar-date|-compare|
|00004700| 20 65 31 20 65 32 20 63 | 61 6c 65 6e 64 61 72 2d | e1 e2 c|alendar-|
|00004710| 64 61 74 65 2d 65 71 75 | 61 6c 20 64 69 61 72 79 |date-equ|al diary|
|00004720| 2d 65 6e 74 72 79 2d 74 | 69 6d 65 5d 20 33 20 22 |-entry-t|ime] 3 "|
|00004730| 5c 0a 52 65 74 75 72 6e | 73 20 74 20 69 66 20 45 |\.Return|s t if E|
|00004740| 31 20 69 73 20 65 61 72 | 6c 69 65 72 20 74 68 61 |1 is ear|lier tha|
|00004750| 6e 20 45 32 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |n E2."])|.(defali|
|00004760| 61 73 20 27 64 69 61 72 | 79 2d 65 6e 74 72 79 2d |as 'diar|y-entry-|
|00004770| 74 69 6d 65 20 23 5b 28 | 73 29 20 22 c0 c1 5c 6e |time #[(|s) "..\n|
|00004780| 5c 22 83 1b 00 c3 5c 6e | c4 94 c4 95 4f 21 c5 5f |\"....\n|....O!._|
|00004790| c3 5c 6e c6 94 c6 95 4f | 21 5c 5c 87 c0 c7 5c 6e |.\n....O|!\\...\n|
|000047a0| 5c 22 83 40 00 c3 5c 6e | c4 94 c4 95 4f 21 c8 a6 |\".@..\n|....O!..|
|000047b0| c5 5f 5c 6e c6 94 c6 95 | 4f c9 98 83 3d 00 ca 82 |._\n....|O...=...|
|000047c0| 3e 00 cb 5c 5c 87 c0 cc | 5c 6e 5c 22 83 6e 00 c3 |>..\\...|\n\".n..|
|000047d0| 5c 6e c4 94 c4 95 4f 21 | c8 a6 c5 5f c3 5c 6e c6 |\n....O!|..._.\n.|
|000047e0| 94 c6 95 4f 21 5c 6e cd | 94 cd 95 4f c9 98 83 6a |...O!\n.|...O...j|
|000047f0| 00 ca 82 6b 00 cb 5c 5c | 5c 5c 87 ce 87 22 20 5b |...k..\\|\\..." [|
|00004800| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 5e 20 |string-m|atch "^ |
|00004810| 2a 5c 5c 28 5b 30 2d 39 | 5d 3f 5b 30 2d 39 5d 5c |*\\([0-9|]?[0-9]\|
|00004820| 5c 29 3a 3f 5c 5c 28 5b | 30 2d 39 5d 5b 30 2d 39 |\):?\\([|0-9][0-9|
|00004830| 5d 5c 5c 29 5c 5c 28 5c | 5c 3e 5c 5c 7c 5b 5e 61 |]\\)\\(\|\>\\|[^a|
|00004840| 70 5d 5c 5c 29 22 20 73 | 20 73 74 72 69 6e 67 2d |p]\\)" s| string-|
|00004850| 74 6f 2d 69 6e 74 20 31 | 20 31 30 30 20 32 20 22 |to-int 1| 100 2 "|
|00004860| 5e 20 2a 5c 5c 28 5b 30 | 2d 39 5d 3f 5b 30 2d 39 |^ *\\([0|-9]?[0-9|
|00004870| 5d 5c 5c 29 5c 5c 28 5b | 61 70 5d 5c 5c 29 6d 5c |]\\)\\([|ap]\\)m\|
|00004880| 5c 3e 22 20 31 32 20 22 | 61 22 20 30 20 31 32 30 |\>" 12 "|a" 0 120|
|00004890| 30 20 22 5e 20 2a 5c 5c | 28 5b 30 2d 39 5d 3f 5b |0 "^ *\\|([0-9]?[|
|000048a0| 30 2d 39 5d 5c 5c 29 3a | 5c 5c 28 5b 30 2d 39 5d |0-9]\\):|\\([0-9]|
|000048b0| 5b 30 2d 39 5d 5c 5c 29 | 5c 5c 28 5b 61 70 5d 5c |[0-9]\\)|\\([ap]\|
|000048c0| 5c 29 6d 5c 5c 3e 22 20 | 33 20 2d 39 39 39 39 5d |\)m\\>" |3 -9999]|
|000048d0| 20 35 20 22 5c 0a 54 69 | 6d 65 20 61 74 20 74 68 | 5 "\.Ti|me at th|
|000048e0| 65 20 62 65 67 69 6e 6e | 69 6e 67 20 6f 66 20 74 |e beginn|ing of t|
|000048f0| 68 65 20 73 74 72 69 6e | 67 20 53 20 69 6e 20 61 |he strin|g S in a|
|00004900| 20 6d 69 6c 69 74 61 72 | 79 2d 73 74 79 6c 65 20 | militar|y-style |
|00004910| 69 6e 74 65 67 65 72 2e | 0a 46 6f 72 20 65 78 61 |integer.|.For exa|
|00004920| 6d 70 6c 65 2c 20 72 65 | 74 75 72 6e 73 20 31 33 |mple, re|turns 13|
|00004930| 32 35 20 66 6f 72 20 31 | 3a 32 35 70 6d 2e 20 20 |25 for 1|:25pm.  |
|00004940| 52 65 74 75 72 6e 73 20 | 2d 39 39 39 39 20 69 66 |Returns |-9999 if|
|00004950| 20 6e 6f 20 74 69 6d 65 | 20 69 73 20 72 65 63 6f | no time| is reco|
|00004960| 67 6e 69 7a 65 64 2e 0a | 54 68 65 20 72 65 63 6f |gnized..|The reco|
|00004970| 67 6e 69 7a 65 64 20 66 | 6f 72 6d 73 20 61 72 65 |gnized f|orms are|
|00004980| 20 58 58 58 58 20 6f 72 | 20 58 3a 58 58 20 6f 72 | XXXX or| X:XX or|
|00004990| 20 58 58 3a 58 58 20 28 | 6d 69 6c 69 74 61 72 79 | XX:XX (|military|
|000049a0| 20 74 69 6d 65 29 2c 20 | 58 58 61 6d 20 6f 72 20 | time), |XXam or |
|000049b0| 58 58 70 6d 2c 0a 61 6e | 64 20 58 58 3a 58 58 61 |XXpm,.an|d XX:XXa|
|000049c0| 6d 20 6f 72 20 58 58 3a | 58 58 70 6d 2e 22 5d 29 |m or XX:|XXpm."])|
|000049d0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6c 69 73 74 |.(defali|as 'list|
|000049e0| 2d 68 65 62 72 65 77 2d | 64 69 61 72 79 2d 65 6e |-hebrew-|diary-en|
|000049f0| 74 72 69 65 73 20 23 5b | 6e 69 6c 20 22 c0 09 57 |tries #[|nil "..W|
|00004a00| 83 3b 02 c2 c3 20 0c c5 | 0e 06 21 1e 07 1e 08 1e |.;... ..|..!.....|
|00004a10| 09 1e 5c 6e c0 1e 0b 09 | 0e 0b 54 89 16 0b 59 83 |..\n....|..T...Y.|
|00004a20| 32 02 0e 0c 1e 0d ce 0e | 08 41 41 40 1e 0f 0e 08 |2.......|.AA@....|
|00004a30| 40 1e 10 0e 08 41 40 1e | 11 0e 08 41 41 40 1e 0f |@....A@.|...AA@..|
|00004a40| 0e 11 0e 10 53 d2 5f 5c | 5c 1e 13 0e 10 d4 56 83 |....S._\|\.....V.|
|00004a50| 80 00 0e 13 0e 10 d5 5f | d6 5c 5c d7 a5 5a 16 13 |......._|.\\..Z..|
|00004a60| 0e 0f d5 a6 c0 55 83 80 | 00 0e 0f d8 a6 c0 55 83 |.....U..|......U.|
|00004a70| 7b 00 0e 0f d9 a6 c0 55 | 83 80 00 0e 13 54 16 13 |{......U|.....T..|
|00004a80| 0e 13 2c 0e 0f 53 da 5f | 0e 0f 53 d5 a5 0e 0f 53 |..,..S._|..S....S|
|00004a90| d8 a5 5b 0e 0f 53 d9 a5 | 5c 5c 5c 5c 5c 5c 5c 5c |..[..S..|\\\\\\\\|
|00004aa0| 29 21 89 1e 1b 40 1e 10 | 0e 1b 41 40 1e 11 0e 1b |)!...@..|..A@....|
|00004ab0| 41 41 40 1e 0f 0e 0d 83 | b3 01 0e 0d 40 40 dc 9a |AA@.....|....@@..|
|00004ac0| 83 c6 00 0e 0d 40 41 82 | c9 00 0e 0d 40 1e 1d 0e |.....@A.|....@...|
|00004ad0| 0d 40 40 dc 9a 1e 1c de | 0e 08 21 df de 0e 08 21 |.@@.....|..!....!|
|00004ae0| c0 e0 4f e1 52 1e 5c 22 | 0e 23 1e 24 e5 e6 0e 10 |..O.R.\"|.#.$....|
|00004af0| 21 50 1e 27 e8 e9 0e 10 | 21 50 1e 10 e8 e9 0e 11 |!P.'....|!P......|
|00004b00| 21 50 1e 11 e8 e9 0e 0f | 21 0e 2a 83 14 01 df e9 |!P......|!.*.....|
|00004b10| 0e 0f d8 a6 21 50 82 15 | 01 eb 51 1e 0f ec 0e 07 |....!P..|..Q.....|
|00004b20| ed c5 0e 2e 21 ef f0 f1 | 0e 1d f2 23 f3 b0 07 1e |....!...|...#....|
|00004b30| 34 f5 1e 36 65 62 88 f7 | 0e 34 c2 f5 23 83 a8 01 |4..6eb..|.4..#...|
|00004b40| 0e 1c 83 46 01 f8 f9 c2 | f5 23 88 fa 68 fb 5c 22 |...F....|.#..h.\"|
|00004b50| 84 54 01 fa 68 d7 5c 22 | 83 61 01 fc fd 21 84 61 |.T..h.\"|.a...!.a|
|00004b60| 01 fe ff 21 88 82 32 01 | 60 c2 1e 40 1e 41 f8 81 |...!..2.|`..@.A..|
|00004b70| 42 00 21 88 60 16 40 f7 | 81 43 00 c2 f5 d4 24 88 |B.!.`.@.|.C....$.|
|00004b80| fc fd 21 83 8a 01 f7 81 | 43 00 c2 f5 23 88 82 79 |..!.....|C...#..y|
|00004b90| 01 fe ff 21 88 81 44 00 | 0e 40 60 fb d7 f5 25 88 |...!..D.|.@`...%.|
|00004ba0| 81 45 00 0e 08 0e 41 60 | 7b 5c 22 88 2a 82 32 01 |.E....A`|{\".*.2.|
|00004bb0| 2e 5c 6e 0e 0d 41 89 16 | 0d 84 b6 00 2d 81 46 00 |.\n..A..|....-.F.|
|00004bc0| 0e 08 41 41 40 1e 0f 0e | 08 40 1e 10 0e 08 41 40 |..AA@...|.@....A@|
|00004bd0| 1e 11 0e 08 41 41 40 1e | 0f 0e 11 0e 10 53 d2 5f |....AA@.|.....S._|
|00004be0| 5c 5c 1e 13 0e 10 d4 56 | 83 0e 02 0e 13 0e 10 d5 |\\.....V|........|
|00004bf0| 5f d6 5c 5c d7 a5 5a 16 | 13 0e 0f d5 a6 c0 55 83 |_.\\..Z.|......U.|
|00004c00| 0e 02 0e 0f d8 a6 c0 55 | 83 09 02 0e 0f d9 a6 c0 |.......U|........|
|00004c10| 55 83 0e 02 0e 13 54 16 | 13 0e 13 2c 0e 0f 53 da |U.....T.|...,..S.|
|00004c20| 5f 0e 0f 53 d5 a5 0e 0f | 53 d8 a5 5b 0e 0f 53 d9 |_..S....|S..[..S.|
|00004c30| a5 5c 5c 5c 5c 5c 5c 5c | 5c 29 54 21 16 08 82 19 |.\\\\\\\|\)T!....|
|00004c40| 00 29 81 47 00 0e 09 21 | 2c 87 65 62 87 22 20 5b |.).G...!|,.eb." [|
|00004c50| 30 20 6e 75 6d 62 65 72 | 20 6e 69 6c 20 62 75 66 |0 number| nil buf|
|00004c60| 66 65 72 2d 6d 6f 64 69 | 66 69 65 64 2d 70 20 6f |fer-modi|fied-p o|
|00004c70| 72 69 67 69 6e 61 6c 2d | 64 61 74 65 20 72 65 67 |riginal-|date reg|
|00004c80| 65 78 70 2d 71 75 6f 74 | 65 20 64 69 61 72 79 2d |exp-quot|e diary-|
|00004c90| 6e 6f 6e 6d 61 72 6b 69 | 6e 67 2d 73 79 6d 62 6f |nonmarki|ng-symbo|
|00004ca0| 6c 20 6d 61 72 6b 20 67 | 64 61 74 65 20 64 69 61 |l mark g|date dia|
|00004cb0| 72 79 2d 6d 6f 64 69 66 | 69 65 64 20 62 75 66 66 |ry-modif|ied buff|
|00004cc0| 65 72 2d 72 65 61 64 2d | 6f 6e 6c 79 20 69 20 64 |er-read-|only i d|
|00004cd0| 69 61 72 79 2d 64 61 74 | 65 2d 66 6f 72 6d 73 20 |iary-dat|e-forms |
|00004ce0| 64 20 63 61 6c 65 6e 64 | 61 72 2d 68 65 62 72 65 |d calend|ar-hebre|
|00004cf0| 77 2d 66 72 6f 6d 2d 61 | 62 73 6f 6c 75 74 65 20 |w-from-a|bsolute |
|00004d00| 79 65 61 72 20 6d 6f 6e | 74 68 20 64 61 79 20 33 |year mon|th day 3|
|00004d10| 31 20 64 61 79 2d 6f 66 | 2d 79 65 61 72 20 32 20 |1 day-of|-year 2 |
|00004d20| 34 20 32 33 20 31 30 20 | 31 30 30 20 34 30 30 20 |4 23 10 |100 400 |
|00004d30| 33 36 35 20 68 64 61 74 | 65 20 62 61 63 6b 75 70 |365 hdat|e backup|
|00004d40| 20 64 61 74 65 2d 66 6f | 72 6d 20 63 61 6c 65 6e | date-fo|rm calen|
|00004d50| 64 61 72 2d 64 61 79 2d | 6e 61 6d 65 20 22 5c 5c |dar-day-|name "\\|
|00004d60| 7c 22 20 33 20 22 2e 3f | 22 20 64 61 79 6e 61 6d ||" 3 ".?|" daynam|
|00004d70| 65 20 63 61 6c 65 6e 64 | 61 72 2d 68 65 62 72 65 |e calend|ar-hebre|
|00004d80| 77 2d 6d 6f 6e 74 68 2d | 6e 61 6d 65 2d 61 72 72 |w-month-|name-arr|
|00004d90| 61 79 2d 6c 65 61 70 2d | 79 65 61 72 20 63 61 6c |ay-leap-|year cal|
|00004da0| 65 6e 64 61 72 2d 6d 6f | 6e 74 68 2d 6e 61 6d 65 |endar-mo|nth-name|
|00004db0| 2d 61 72 72 61 79 20 22 | 5c 5c 2a 5c 5c 7c 22 20 |-array "|\\*\\|" |
|00004dc0| 63 61 6c 65 6e 64 61 72 | 2d 6d 6f 6e 74 68 2d 6e |calendar|-month-n|
|00004dd0| 61 6d 65 20 6d 6f 6e 74 | 68 6e 61 6d 65 20 22 5c |ame mont|hname "\|
|00004de0| 5c 2a 5c 5c 7c 30 2a 22 | 20 69 6e 74 2d 74 6f 2d |\*\\|0*"| int-to-|
|00004df0| 73 74 72 69 6e 67 20 61 | 62 62 72 65 76 69 61 74 |string a|bbreviat|
|00004e00| 65 64 2d 63 61 6c 65 6e | 64 61 72 2d 79 65 61 72 |ed-calen|dar-year|
|00004e10| 20 22 22 20 22 5c 5c 28 | 5c 5c 60 5c 5c 7c 0d 5c | "" "\\(|\\`\\|.\|
|00004e20| 5c 7c 5c 6e 5c 5c 29 22 | 20 22 3f 22 20 68 65 62 |\|\n\\)"| "?" heb|
|00004e30| 72 65 77 2d 64 69 61 72 | 79 2d 65 6e 74 72 79 2d |rew-diar|y-entry-|
|00004e40| 73 79 6d 62 6f 6c 20 22 | 5c 5c 28 22 20 6d 61 70 |symbol "|\\(" map|
|00004e50| 63 6f 6e 63 61 74 20 65 | 76 61 6c 20 22 5c 5c 29 |concat e|val "\\)|
|00004e60| 5c 5c 28 22 20 22 5c 5c | 29 22 20 72 65 67 65 78 |\\(" "\\|)" regex|
|00004e70| 70 20 74 20 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 |p t case|-fold-se|
|00004e80| 61 72 63 68 20 72 65 2d | 73 65 61 72 63 68 2d 66 |arch re-|search-f|
|00004e90| 6f 72 77 61 72 64 20 72 | 65 2d 73 65 61 72 63 68 |orward r|e-search|
|00004ea0| 2d 62 61 63 6b 77 61 72 | 64 20 22 5c 5c 3c 22 20 |-backwar|d "\\<" |
|00004eb0| 63 68 61 72 2d 65 71 75 | 61 6c 20 31 33 20 6c 6f |char-equ|al 13 lo|
|00004ec0| 6f 6b 69 6e 67 2d 61 74 | 20 22 20 5c 5c 7c 09 22 |oking-at| " \\|."|
|00004ed0| 20 62 61 63 6b 77 61 72 | 64 2d 63 68 61 72 20 31 | backwar|d-char 1|
|00004ee0| 20 64 61 74 65 2d 73 74 | 61 72 74 20 65 6e 74 72 | date-st|art entr|
|00004ef0| 79 2d 73 74 61 72 74 20 | 22 0d 5c 5c 7c 5c 6e 5c |y-start |".\\|\n\|
|00004f00| 5c 7c 5c 5c 60 22 20 22 | 0d 5c 5c 7c 5c 6e 22 20 |\|\\`" "|.\\|\n" |
|00004f10| 73 75 62 73 74 2d 63 68 | 61 72 2d 69 6e 2d 72 65 |subst-ch|ar-in-re|
|00004f20| 67 69 6f 6e 20 61 64 64 | 2d 74 6f 2d 64 69 61 72 |gion add|-to-diar|
|00004f30| 79 2d 6c 69 73 74 20 63 | 61 6c 65 6e 64 61 72 2d |y-list c|alendar-|
|00004f40| 67 72 65 67 6f 72 69 61 | 6e 2d 66 72 6f 6d 2d 61 |gregoria|n-from-a|
|00004f50| 62 73 6f 6c 75 74 65 20 | 73 65 74 2d 62 75 66 66 |bsolute |set-buff|
|00004f60| 65 72 2d 6d 6f 64 69 66 | 69 65 64 2d 70 5d 20 31 |er-modif|ied-p] 1|
|00004f70| 30 20 22 5c 0a 41 64 64 | 20 61 6e 79 20 48 65 62 |0 "\.Add| any Heb|
|00004f80| 72 65 77 20 64 61 74 65 | 20 65 6e 74 72 69 65 73 |rew date| entries|
|00004f90| 20 66 72 6f 6d 20 74 68 | 65 20 64 69 61 72 79 2d | from th|e diary-|
|00004fa0| 66 69 6c 65 20 74 6f 20 | 64 69 61 72 79 2d 65 6e |file to |diary-en|
|00004fb0| 74 72 69 65 73 2d 6c 69 | 73 74 2e 0a 48 65 62 72 |tries-li|st..Hebr|
|00004fc0| 65 77 20 64 61 74 65 20 | 64 69 61 72 79 20 65 6e |ew date |diary en|
|00004fd0| 74 72 69 65 73 20 6d 75 | 73 74 20 62 65 20 70 72 |tries mu|st be pr|
|00004fe0| 65 66 61 63 65 64 20 62 | 79 20 61 20 68 65 62 72 |efaced b|y a hebr|
|00004ff0| 65 77 2d 64 69 61 72 79 | 2d 65 6e 74 72 79 2d 73 |ew-diary|-entry-s|
|00005000| 79 6d 62 6f 6c 0a 28 6e | 6f 72 6d 61 6c 6c 79 20 |ymbol.(n|ormally |
|00005010| 61 6e 20 60 48 27 29 2e | 20 20 54 68 65 20 73 61 |an `H').|  The sa|
|00005020| 6d 65 20 64 69 61 72 79 | 2d 64 61 74 65 2d 66 6f |me diary|-date-fo|
|00005030| 72 6d 73 20 67 6f 76 65 | 72 6e 20 74 68 65 20 73 |rms gove|rn the s|
|00005040| 74 79 6c 65 20 6f 66 20 | 74 68 65 20 48 65 62 72 |tyle of |the Hebr|
|00005050| 65 77 0a 63 61 6c 65 6e | 64 61 72 20 65 6e 74 72 |ew.calen|dar entr|
|00005060| 69 65 73 2c 20 65 78 63 | 65 70 74 20 74 68 61 74 |ies, exc|ept that|
|00005070| 20 74 68 65 20 48 65 62 | 72 65 77 20 6d 6f 6e 74 | the Heb|rew mont|
|00005080| 68 20 6e 61 6d 65 73 20 | 6d 75 73 74 20 62 65 20 |h names |must be |
|00005090| 73 70 65 6c 6c 65 64 20 | 69 6e 20 66 75 6c 6c 2e |spelled |in full.|
|000050a0| 0a 54 68 65 20 48 65 62 | 72 65 77 20 6d 6f 6e 74 |.The Heb|rew mont|
|000050b0| 68 73 20 61 72 65 20 6e | 75 6d 62 65 72 65 64 20 |hs are n|umbered |
|000050c0| 66 72 6f 6d 20 31 20 74 | 6f 20 31 33 20 77 69 74 |from 1 t|o 13 wit|
|000050d0| 68 20 4e 69 73 61 6e 20 | 62 65 69 6e 67 20 31 2c |h Nisan |being 1,|
|000050e0| 20 31 32 20 62 65 69 6e | 67 0a 41 64 61 72 20 49 | 12 bein|g.Adar I|
|000050f0| 20 61 6e 64 20 31 33 20 | 62 65 69 6e 67 20 41 64 | and 13 |being Ad|
|00005100| 61 72 20 49 49 3b 20 79 | 6f 75 20 6d 75 73 74 20 |ar II; y|ou must |
|00005110| 75 73 65 20 60 41 64 61 | 72 20 49 27 20 69 66 20 |use `Ada|r I' if |
|00005120| 79 6f 75 20 77 61 6e 74 | 20 41 64 61 72 20 6f 66 |you want| Adar of|
|00005130| 20 61 0a 63 6f 6d 6d 6f | 6e 20 48 65 62 72 65 77 | a.commo|n Hebrew|
|00005140| 20 79 65 61 72 2e 20 20 | 49 66 20 61 20 48 65 62 | year.  |If a Heb|
|00005150| 72 65 77 20 64 61 74 65 | 20 64 69 61 72 79 20 65 |rew date| diary e|
|00005160| 6e 74 72 79 20 62 65 67 | 69 6e 73 20 77 69 74 68 |ntry beg|ins with|
|00005170| 20 61 0a 64 69 61 72 79 | 2d 6e 6f 6e 6d 61 72 6b | a.diary|-nonmark|
|00005180| 69 6e 67 2d 73 79 6d 62 | 6f 6c 20 74 68 65 20 65 |ing-symb|ol the e|
|00005190| 6e 74 72 79 20 77 69 6c | 6c 20 61 70 70 65 61 72 |ntry wil|l appear|
|000051a0| 20 69 6e 20 74 68 65 20 | 64 69 61 72 79 20 6c 69 | in the |diary li|
|000051b0| 73 74 69 6e 67 2c 20 62 | 75 74 20 77 69 6c 6c 0a |sting, b|ut will.|
|000051c0| 6e 6f 74 20 62 65 20 6d | 61 72 6b 65 64 20 69 6e |not be m|arked in|
|000051d0| 20 74 68 65 20 63 61 6c | 65 6e 64 61 72 2e 20 20 | the cal|endar.  |
|000051e0| 54 68 69 73 20 66 75 6e | 63 74 69 6f 6e 20 69 73 |This fun|ction is|
|000051f0| 20 70 72 6f 76 69 64 65 | 64 20 66 6f 72 20 75 73 | provide|d for us|
|00005200| 65 20 77 69 74 68 20 74 | 68 65 0a 6e 6f 6e 67 72 |e with t|he.nongr|
|00005210| 65 67 6f 72 69 61 6e 2d | 64 69 61 72 79 2d 6c 69 |egorian-|diary-li|
|00005220| 73 74 69 6e 67 2d 68 6f | 6f 6b 2e 22 5d 29 0a 28 |sting-ho|ok."]).(|
|00005230| 64 65 66 61 6c 69 61 73 | 20 27 6d 61 72 6b 2d 68 |defalias| 'mark-h|
|00005240| 65 62 72 65 77 2d 64 69 | 61 72 79 2d 65 6e 74 72 |ebrew-di|ary-entr|
|00005250| 69 65 73 20 23 5b 6e 69 | 6c 20 22 08 89 19 85 37 |ies #[ni|l "....7|
|00005260| 02 09 40 40 c2 9a 83 14 | 00 09 40 41 82 16 00 09 |..@@....|..@A....|
|00005270| 40 1b c4 0d 21 1e 06 c4 | 0e 07 c8 5c 22 c9 50 1e |@...!...|...\".P.|
|00005280| 5c 6e cb 1e 0c cb 1e 0d | cb 1e 0e 0b 47 89 1e 0f |\n......|....G...|
|00005290| c6 0b 3e 47 5a 1e 10 0e | 0f 0e 10 55 3f 85 47 00 |..>GZ...|...U?.G.|
|000052a0| 0e 10 d1 5c 5c 1e 10 0e | 0f ca 0b 3e 47 5a 1e 12 |...\\...|...>GZ..|
|000052b0| 0e 0f 0e 12 55 3f 85 5f | 00 0e 12 d1 5c 5c 1e 12 |....U?._|....\\..|
|000052c0| 0e 0f cd 0b 3e 47 5a 1e | 13 0e 0f 0e 13 55 3f 85 |....>GZ.|.....U?.|
|000052d0| 77 00 0e 13 d1 5c 5c 1e | 13 0e 0f cc 0b 3e 47 5a |w....\\.|.....>GZ|
|000052e0| 1e 14 0e 0f 0e 14 55 3f | 85 8f 00 0e 14 d1 5c 5c |......U?|......\\|
|000052f0| 1e 14 0e 0f ce 0b 3e 47 | 5a 1e 15 0e 0f 0e 15 55 |......>G|Z......U|
|00005300| 3f 85 a7 00 0e 15 d1 5c | 5c 1e 15 d6 d7 0e 18 21 |?......\|\......!|
|00005310| d9 da db 0b dc 23 dd b0 | 05 1e 1e c8 1e 1f 65 62 |.....#..|......eb|
|00005320| 88 e0 0e 1e e1 c8 23 83 | 2d 02 0e 10 85 d4 00 0e |......#.|-.......|
|00005330| 10 94 0e 10 95 7b 1e 5c | 22 0e 12 85 e2 00 0e 12 |.....{.\|".......|
|00005340| 94 0e 12 95 7b 1e 23 e4 | 0e 14 83 f4 00 0e 14 94 |....{.#.|........|
|00005350| 0e 14 95 7b 82 f5 00 e5 | 21 1e 26 e4 0e 13 83 08 |...{....|!.&.....|
|00005360| 01 0e 13 94 0e 13 95 7b | 82 09 01 e5 21 1e 27 0e |.......{|....!.'.|
|00005370| 15 85 18 01 0e 15 94 0e | 15 95 7b 89 1e 28 84 5c |........|..{..(.\|
|00005380| 22 01 e9 82 e2 01 0e 28 | 47 d1 55 83 de 01 0e 2a |"......(|G.U....*|
|00005390| 83 de 01 eb ec 20 41 41 | 40 1e 0e ec 20 40 1e 0c |..... AA|@... @..|
|000053a0| ec 20 41 40 1e 0d ec 20 | 41 41 40 1e 0e 0e 0d 0e |. A@... |AA@.....|
|000053b0| 0c 53 ed 5f 5c 5c 1e 2e | 0e 0c d1 56 83 87 01 0e |.S._\\..|...V....|
|000053c0| 2e 0e 0c ef 5f f0 5c 5c | f1 a5 5a 16 2e 0e 0e ef |...._.\\|..Z.....|
|000053d0| a6 e9 55 83 87 01 0e 0e | f2 a6 e9 55 83 82 01 0e |..U.....|...U....|
|000053e0| 0e f3 a6 e9 55 83 87 01 | 0e 2e 54 16 2e 0e 2e 2c |....U...|..T....,|
|000053f0| 0e 0e 53 f4 5f 0e 0e 53 | ef a5 0e 0e 53 f2 a5 5b |..S._..S|....S..[|
|00005400| 0e 0e 53 f3 a5 5c 5c 5c | 5c 5c 5c 5c 5c 29 21 41 |..S..\\\|\\\\\)!A|
|00005410| 41 40 1e 35 e4 0e 28 21 | 0e 35 f2 a5 f2 5f 5c 5c |A@.5..(!|.5..._\\|
|00005420| 89 1e 36 0e 35 5a f7 56 | 83 c7 01 0e 36 f2 5a 82 |..6.5Z.V|....6.Z.|
|00005430| da 01 0e 35 0e 36 5a f7 | 56 83 d8 01 0e 36 f2 5c |...5.6Z.|V....6.\|
|00005440| 5c 82 da 01 0e 36 2a 82 | e2 01 e4 0e 28 21 1e 38 |\....6*.|....(!.8|
|00005450| 0e 5c 22 83 fe 01 f9 fa | fb 0e 5c 22 e9 fc 4f 21 |.\".....|..\"..O!|
|00005460| fd 0d e9 fe 23 5c 22 41 | 21 88 82 28 02 0e 23 83 |....#\"A|!..(..#.|
|00005470| 1d 02 0e 23 ff 98 83 10 | 02 e9 16 26 82 1d 02 fa |...#....|...&....|
|00005480| fb 0e 23 21 fd 0e 07 21 | 5c 22 41 16 26 81 40 00 |..#!...!|\"A.&.@.|
|00005490| 0e 26 0e 27 0e 38 23 88 | 2e 06 82 bf 00 2e 13 09 |.&.'.8#.|........|
|000054a0| 41 89 11 84 06 00 e1 29 | 87 22 20 5b 64 69 61 72 |A......)|." [diar|
|000054b0| 79 2d 64 61 74 65 2d 66 | 6f 72 6d 73 20 64 20 62 |y-date-f|orms d b|
|000054c0| 61 63 6b 75 70 20 64 61 | 74 65 2d 66 6f 72 6d 20 |ackup da|te-form |
|000054d0| 64 69 61 72 79 2d 6e 61 | 6d 65 2d 70 61 74 74 65 |diary-na|me-patte|
|000054e0| 72 6e 20 63 61 6c 65 6e | 64 61 72 2d 64 61 79 2d |rn calen|dar-day-|
|000054f0| 6e 61 6d 65 2d 61 72 72 | 61 79 20 64 61 79 6e 61 |name-arr|ay dayna|
|00005500| 6d 65 20 63 61 6c 65 6e | 64 61 72 2d 68 65 62 72 |me calen|dar-hebr|
|00005510| 65 77 2d 6d 6f 6e 74 68 | 2d 6e 61 6d 65 2d 61 72 |ew-month|-name-ar|
|00005520| 72 61 79 2d 6c 65 61 70 | 2d 79 65 61 72 20 74 20 |ray-leap|-year t |
|00005530| 22 5c 5c 7c 5c 5c 2a 22 | 20 6d 6f 6e 74 68 6e 61 |"\\|\\*"| monthna|
|00005540| 6d 65 20 22 5b 30 2d 39 | 5d 2b 5c 5c 7c 5c 5c 2a |me "[0-9|]+\\|\\*|
|00005550| 22 20 6d 6f 6e 74 68 20 | 64 61 79 20 79 65 61 72 |" month |day year|
|00005560| 20 6c 20 64 2d 6e 61 6d | 65 2d 70 6f 73 20 32 20 | l d-nam|e-pos 2 |
|00005570| 6d 2d 6e 61 6d 65 2d 70 | 6f 73 20 64 2d 70 6f 73 |m-name-p|os d-pos|
|00005580| 20 6d 2d 70 6f 73 20 79 | 2d 70 6f 73 20 22 5c 5c | m-pos y|-pos "\\|
|00005590| 28 5c 5c 60 5c 5c 7c 0d | 5c 5c 7c 5c 6e 5c 5c 29 |(\\`\\|.|\\|\n\\)|
|000055a0| 22 20 72 65 67 65 78 70 | 2d 71 75 6f 74 65 20 68 |" regexp|-quote h|
|000055b0| 65 62 72 65 77 2d 64 69 | 61 72 79 2d 65 6e 74 72 |ebrew-di|ary-entr|
|000055c0| 79 2d 73 79 6d 62 6f 6c | 20 22 5c 5c 28 22 20 6d |y-symbol| "\\(" m|
|000055d0| 61 70 63 6f 6e 63 61 74 | 20 65 76 61 6c 20 22 5c |apconcat| eval "\|
|000055e0| 5c 29 5c 5c 28 22 20 22 | 5c 5c 29 22 20 72 65 67 |\)\\(" "|\\)" reg|
|000055f0| 65 78 70 20 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 |exp case|-fold-se|
|00005600| 61 72 63 68 20 72 65 2d | 73 65 61 72 63 68 2d 66 |arch re-|search-f|
|00005610| 6f 72 77 61 72 64 20 6e | 69 6c 20 64 64 2d 6e 61 |orward n|il dd-na|
|00005620| 6d 65 20 6d 6d 2d 6e 61 | 6d 65 20 73 74 72 69 6e |me mm-na|me strin|
|00005630| 67 2d 74 6f 2d 69 6e 74 | 20 22 22 20 6d 6d 20 64 |g-to-int| "" mm d|
|00005640| 64 20 79 2d 73 74 72 20 | 30 20 61 62 62 72 65 76 |d y-str |0 abbrev|
|00005650| 69 61 74 65 64 2d 63 61 | 6c 65 6e 64 61 72 2d 79 |iated-ca|lendar-y|
|00005660| 65 61 72 20 63 61 6c 65 | 6e 64 61 72 2d 68 65 62 |ear cale|ndar-heb|
|00005670| 72 65 77 2d 66 72 6f 6d | 2d 61 62 73 6f 6c 75 74 |rew-from|-absolut|
|00005680| 65 20 63 61 6c 65 6e 64 | 61 72 2d 63 75 72 72 65 |e calend|ar-curre|
|00005690| 6e 74 2d 64 61 74 65 20 | 33 31 20 64 61 79 2d 6f |nt-date |31 day-o|
|000056a0| 66 2d 79 65 61 72 20 34 | 20 32 33 20 31 30 20 31 |f-year 4| 23 10 1|
|000056b0| 30 30 20 34 30 30 20 33 | 36 35 20 63 75 72 72 65 |00 400 3|65 curre|
|000056c0| 6e 74 2d 79 20 79 20 35 | 30 20 79 79 20 6d 61 72 |nt-y y 5|0 yy mar|
|000056d0| 6b 2d 63 61 6c 65 6e 64 | 61 72 2d 64 61 79 73 2d |k-calend|ar-days-|
|000056e0| 6e 61 6d 65 64 20 61 73 | 73 6f 63 20 63 61 70 69 |named as|soc capi|
|000056f0| 74 61 6c 69 7a 65 20 33 | 20 63 61 6c 65 6e 64 61 |talize 3| calenda|
|00005700| 72 2d 6d 61 6b 65 2d 61 | 6c 69 73 74 20 28 6c 61 |r-make-a|list (la|
|00005710| 6d 62 64 61 20 28 78 29 | 20 28 73 75 62 73 74 72 |mbda (x)| (substr|
|00005720| 69 6e 67 20 78 20 30 20 | 33 29 29 20 22 2a 22 20 |ing x 0 |3)) "*" |
|00005730| 6d 61 72 6b 2d 68 65 62 | 72 65 77 2d 63 61 6c 65 |mark-heb|rew-cale|
|00005740| 6e 64 61 72 2d 64 61 74 | 65 2d 70 61 74 74 65 72 |ndar-dat|e-patter|
|00005750| 6e 5d 20 38 20 22 5c 0a | 4d 61 72 6b 20 64 61 79 |n] 8 "\.|Mark day|
|00005760| 73 20 69 6e 20 74 68 65 | 20 63 61 6c 65 6e 64 61 |s in the| calenda|
|00005770| 72 20 77 69 6e 64 6f 77 | 20 74 68 61 74 20 68 61 |r window| that ha|
|00005780| 76 65 20 48 65 62 72 65 | 77 20 64 61 74 65 20 64 |ve Hebre|w date d|
|00005790| 69 61 72 79 20 65 6e 74 | 72 69 65 73 2e 0a 45 61 |iary ent|ries..Ea|
|000057a0| 63 68 20 65 6e 74 72 79 | 20 69 6e 20 64 69 61 72 |ch entry| in diar|
|000057b0| 79 2d 66 69 6c 65 20 28 | 6f 72 20 69 6e 63 6c 75 |y-file (|or inclu|
|000057c0| 64 65 64 20 66 69 6c 65 | 73 29 20 76 69 73 69 62 |ded file|s) visib|
|000057d0| 6c 65 20 69 6e 20 74 68 | 65 20 63 61 6c 65 6e 64 |le in th|e calend|
|000057e0| 61 72 20 77 69 6e 64 6f | 77 0a 69 73 20 6d 61 72 |ar windo|w.is mar|
|000057f0| 6b 65 64 2e 20 20 48 65 | 62 72 65 77 20 64 61 74 |ked.  He|brew dat|
|00005800| 65 20 65 6e 74 72 69 65 | 73 20 61 72 65 20 70 72 |e entrie|s are pr|
|00005810| 65 66 61 63 65 64 20 62 | 79 20 61 20 68 65 62 72 |efaced b|y a hebr|
|00005820| 65 77 2d 64 69 61 72 79 | 2d 65 6e 74 72 79 2d 73 |ew-diary|-entry-s|
|00005830| 79 6d 62 6f 6c 0a 28 6e | 6f 72 6d 61 6c 6c 79 20 |ymbol.(n|ormally |
|00005840| 61 6e 20 60 48 27 29 2e | 20 20 54 68 65 20 73 61 |an `H').|  The sa|
|00005850| 6d 65 20 64 69 61 72 79 | 2d 64 61 74 65 2d 66 6f |me diary|-date-fo|
|00005860| 72 6d 73 20 67 6f 76 65 | 72 6e 20 74 68 65 20 73 |rms gove|rn the s|
|00005870| 74 79 6c 65 20 6f 66 20 | 74 68 65 20 48 65 62 72 |tyle of |the Hebr|
|00005880| 65 77 0a 63 61 6c 65 6e | 64 61 72 20 65 6e 74 72 |ew.calen|dar entr|
|00005890| 69 65 73 2c 20 65 78 63 | 65 70 74 20 74 68 61 74 |ies, exc|ept that|
|000058a0| 20 74 68 65 20 48 65 62 | 72 65 77 20 6d 6f 6e 74 | the Heb|rew mont|
|000058b0| 68 20 6e 61 6d 65 73 20 | 6d 75 73 74 20 62 65 20 |h names |must be |
|000058c0| 73 70 65 6c 6c 65 64 20 | 69 6e 20 66 75 6c 6c 2e |spelled |in full.|
|000058d0| 0a 54 68 65 20 48 65 62 | 72 65 77 20 6d 6f 6e 74 |.The Heb|rew mont|
|000058e0| 68 73 20 61 72 65 20 6e | 75 6d 62 65 72 65 64 20 |hs are n|umbered |
|000058f0| 66 72 6f 6d 20 31 20 74 | 6f 20 31 33 20 77 69 74 |from 1 t|o 13 wit|
|00005900| 68 20 4e 69 73 61 6e 20 | 62 65 69 6e 67 20 31 2c |h Nisan |being 1,|
|00005910| 20 31 32 20 62 65 69 6e | 67 0a 41 64 61 72 20 49 | 12 bein|g.Adar I|
|00005920| 20 61 6e 64 20 31 33 20 | 62 65 69 6e 67 20 41 64 | and 13 |being Ad|
|00005930| 61 72 20 49 49 3b 20 79 | 6f 75 20 6d 75 73 74 20 |ar II; y|ou must |
|00005940| 75 73 65 20 60 41 64 61 | 72 20 49 27 20 69 66 20 |use `Ada|r I' if |
|00005950| 79 6f 75 20 77 61 6e 74 | 20 41 64 61 72 20 6f 66 |you want| Adar of|
|00005960| 20 61 0a 63 6f 6d 6d 6f | 6e 20 48 65 62 72 65 77 | a.commo|n Hebrew|
|00005970| 20 79 65 61 72 2e 20 20 | 48 65 62 72 65 77 20 64 | year.  |Hebrew d|
|00005980| 61 74 65 20 64 69 61 72 | 79 20 65 6e 74 72 69 65 |ate diar|y entrie|
|00005990| 73 20 74 68 61 74 20 62 | 65 67 69 6e 20 77 69 74 |s that b|egin wit|
|000059a0| 68 20 61 0a 64 69 61 72 | 79 2d 6e 6f 6e 6d 61 72 |h a.diar|y-nonmar|
|000059b0| 6b 69 6e 67 20 73 79 6d | 62 6f 6c 20 77 69 6c 6c |king sym|bol will|
|000059c0| 20 6e 6f 74 20 62 65 20 | 6d 61 72 6b 65 64 20 69 | not be |marked i|
|000059d0| 6e 20 74 68 65 20 63 61 | 6c 65 6e 64 61 72 2e 20 |n the ca|lendar. |
|000059e0| 20 54 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 0a 69 | This fu|nction.i|
|000059f0| 73 20 70 72 6f 76 69 64 | 65 64 20 66 6f 72 20 75 |s provid|ed for u|
|00005a00| 73 65 20 61 73 20 70 61 | 72 74 20 6f 66 20 74 68 |se as pa|rt of th|
|00005a10| 65 20 6e 6f 6e 67 72 65 | 67 6f 72 69 61 6e 2d 64 |e nongre|gorian-d|
|00005a20| 69 61 72 79 2d 6d 61 72 | 6b 69 6e 67 2d 68 6f 6f |iary-mar|king-hoo|
|00005a30| 6b 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |k."]).(d|efalias |
|00005a40| 27 6d 61 72 6b 2d 68 65 | 62 72 65 77 2d 63 61 6c |'mark-he|brew-cal|
|00005a50| 65 6e 64 61 72 2d 64 61 | 74 65 2d 70 61 74 74 65 |endar-da|te-patte|
|00005a60| 72 6e 20 23 5b 28 6d 6f | 6e 74 68 20 64 61 79 20 |rn #[(mo|nth day |
|00005a70| 79 65 61 72 29 20 22 8a | 08 71 88 09 c2 55 84 9a |year) ".|.q...U..|
|00005a80| 02 0b c2 55 84 9a 02 0c | c2 55 84 2f 00 c5 c6 09 |...U....|.U./....|
|00005a90| 0b 0c 45 21 21 1e 07 c8 | 0e 07 21 85 2b 00 c9 0e |..E!!...|..!.+...|
|00005aa0| 07 21 29 82 c9 04 0e 5c | 6e cb 09 57 83 3d 00 09 |.!)....\|n..W.=..|
|00005ab0| cb 5a 82 40 00 09 cc 5c | 5c cd 09 57 83 4c 00 09 |.Z.@...\|\..W.L..|
|00005ac0| cd 5a 82 4f 00 09 ce 5c | 5c cf 09 57 83 5b 00 09 |.Z.O...\|\..W.[..|
|00005ad0| cf 5a 82 5e 00 09 d0 5c | 5c d1 09 57 83 6a 00 09 |.Z.^...\|\..W.j..|
|00005ae0| d1 5a 82 6d 00 09 d2 5c | 5c d3 09 57 83 79 00 09 |.Z.m...\|\..W.y..|
|00005af0| d3 5a 82 7c 00 09 d4 5c | 5c af 05 3e 85 c9 04 0e |.Z.|...\|\..>....|
|00005b00| 5c 6e 0e 15 0e 5c 6e 0e | 15 d6 1c 1e 17 1e 18 1e |\n...\n.|........|
|00005b10| 19 1e 1a 0e 19 db 5f 0e | 1a dc 5c 5c 5c 5c 89 1e |......_.|..\\\\..|
|00005b20| 1d db a6 54 16 1a 0e 1d | db a5 16 19 29 0e 17 db |...T....|....)...|
|00005b30| 5f 0e 18 5c 5c 89 1e 1d | db a6 54 16 18 0e 1d db |_..\\...|..T.....|
|00005b40| a5 16 17 29 0e 1a cc 0e | 19 45 41 41 40 1c 0e 1a |...)....|.EAA@...|
|00005b50| cc 0e 19 45 40 19 0e 1a | cc 0e 19 45 41 40 1b 0e |...E@...|...EA@..|
|00005b60| 1a cc 0e 19 45 41 41 40 | 1c 0b 09 53 de 5f 5c 5c |....EAA@|...S._\\|
|00005b70| 1e 1f 09 ce 56 83 1e 01 | 0e 1f 09 d2 5f e0 5c 5c |....V...|...._.\\|
|00005b80| cd a5 5a 16 1f 0c d2 a6 | c2 55 83 1e 01 0c e1 a6 |..Z.....|.U......|
|00005b90| c2 55 83 19 01 0c e2 a6 | c2 55 83 1e 01 0e 1f 54 |.U......|.U.....T|
|00005ba0| 16 1f 0e 1f 2c 0c 53 e3 | 5f 0c 53 d2 a5 0c 53 e1 |....,.S.|_.S...S.|
|00005bb0| a5 5b 0c 53 e2 a5 5c 5c | 5c 5c 5c 5c 5c 5c 29 1e |.[.S..\\|\\\\\\).|
|00005bc0| 24 0e 18 0e 17 d2 a6 c2 | 55 83 61 01 0e 17 e1 a6 |$.......|U.a.....|
|00005bd0| c2 55 83 56 01 0e 17 e2 | a6 c2 55 83 61 01 0e 18 |.U.V....|..U.a...|
|00005be0| ce 55 83 61 01 e5 82 66 | 01 e6 0e 18 53 48 0e 17 |.U.a...f|....SH..|
|00005bf0| 45 41 41 40 1c 0e 18 0e | 17 d2 a6 c2 55 83 95 01 |EAA@....|....U...|
|00005c00| 0e 17 e1 a6 c2 55 83 8a | 01 0e 17 e2 a6 c2 55 83 |.....U..|......U.|
|00005c10| 95 01 0e 18 ce 55 83 95 | 01 e5 82 9a 01 e6 0e 18 |.....U..|........|
|00005c20| 53 48 0e 17 45 40 19 0e | 18 0e 17 d2 a6 c2 55 83 |SH..E@..|......U.|
|00005c30| c7 01 0e 17 e1 a6 c2 55 | 83 bc 01 0e 17 e2 a6 c2 |.......U|........|
|00005c40| 55 83 c7 01 0e 18 ce 55 | 83 c7 01 e5 82 cc 01 e6 |U......U|........|
|00005c50| 0e 18 53 48 0e 17 45 41 | 40 1b 0e 18 0e 17 d2 a6 |..SH..EA|@.......|
|00005c60| c2 55 83 fa 01 0e 17 e1 | a6 c2 55 83 ef 01 0e 17 |.U......|..U.....|
|00005c70| e2 a6 c2 55 83 fa 01 0e | 18 ce 55 83 fa 01 e5 82 |...U....|..U.....|
|00005c80| ff 01 e6 0e 18 53 48 0e | 17 45 41 41 40 1c 0b 09 |.....SH.|.EAA@...|
|00005c90| 53 de 5f 5c 5c 1e 1f 09 | ce 56 83 3d 02 0e 1f 09 |S._\\...|.V.=....|
|00005ca0| d2 5f e0 5c 5c cd a5 5a | 16 1f 0c d2 a6 c2 55 83 |._.\\..Z|......U.|
|00005cb0| 3d 02 0c e1 a6 c2 55 83 | 38 02 0c e2 a6 c2 55 83 |=.....U.|8.....U.|
|00005cc0| 3d 02 0e 1f 54 16 1f 0e | 1f 2c 0c 53 e3 5f 0c 53 |=...T...|.,.S._.S|
|00005cd0| d2 a5 0c 53 e1 a5 5b 0c | 53 e2 a5 5c 5c 5c 5c 5c |...S..[.|S..\\\\\|
|00005ce0| 5c 5c 5c 29 1e 27 e8 0e | 24 21 1e 29 e8 0e 27 21 |\\\).'..|$!.)..'!|
|00005cf0| 1e 2a 0e 29 41 41 40 1e | 2b 0e 2a 41 41 40 1e 2c |.*.)AA@.|+.*AA@.,|
|00005d00| ed 09 57 83 7d 02 0e 2c | 82 7f 02 0e 2b 14 c5 c6 |..W.}..,|....+...|
|00005d10| 09 0b 0c 45 21 21 1e 07 | c8 0e 07 21 85 95 02 c9 |...E!!..|...!....|
|00005d20| 0e 07 21 2e 0c 82 c9 04 | 0e 5c 6e 0e 15 d6 89 1e |..!.....|.\n.....|
|00005d30| 2e 1e 2f 1e 30 1e 31 0e | 30 db 5f 0e 31 dc 5c 5c |../.0.1.|0._.1.\\|
|00005d40| 5c 5c 89 1e 1d db a6 54 | 16 31 0e 1d db a5 16 30 |\\.....T|.1.....0|
|00005d50| 29 0e 31 cc 0e 30 45 41 | 41 40 1c 0e 31 cc 0e 30 |).1..0EA|A@..1..0|
|00005d60| 45 40 19 0e 31 cc 0e 30 | 45 41 40 1b 0e 31 cc 0e |E@..1..0|EA@..1..|
|00005d70| 30 45 41 41 40 1c 0b 09 | 53 de 5f 5c 5c 1e 1f 09 |0EAA@...|S._\\...|
|00005d80| ce 56 83 1c 03 0e 1f 09 | d2 5f e0 5c 5c cd a5 5a |.V......|._.\\..Z|
|00005d90| 16 1f 0c d2 a6 c2 55 83 | 1c 03 0c e1 a6 c2 55 83 |......U.|......U.|
|00005da0| 17 03 0c e2 a6 c2 55 83 | 1c 03 0e 1f 54 16 1f 0e |......U.|....T...|
|00005db0| 1f 2c 0c 53 e3 5f 0c 53 | d2 a5 0c 53 e1 a5 5b 0c |.,.S._.S|...S..[.|
|00005dc0| 53 e2 a5 5c 5c 5c 5c 5c | 5c 5c 5c 29 16 2f 0e 30 |S..\\\\\|\\\)./.0|
|00005dd0| db 5f 0e 31 cc 5c 5c 5c | 5c 89 1e 1d db a6 54 16 |._.1.\\\|\.....T.|
|00005de0| 31 0e 1d db a5 16 30 29 | 0e 31 0e 30 d2 a6 c2 55 |1.....0)|.1.0...U|
|00005df0| 83 77 03 0e 30 e1 a6 c2 | 55 83 6c 03 0e 30 e2 a6 |.w..0...|U.l..0..|
|00005e00| c2 55 83 77 03 0e 31 ce | 55 83 77 03 e5 82 7c 03 |.U.w..1.|U.w...|.|
|00005e10| e6 0e 31 53 48 0e 30 45 | 41 41 40 1c 0e 31 0e 30 |..1SH.0E|AA@..1.0|
|00005e20| d2 a6 c2 55 83 ab 03 0e | 30 e1 a6 c2 55 83 a0 03 |...U....|0...U...|
|00005e30| 0e 30 e2 a6 c2 55 83 ab | 03 0e 31 ce 55 83 ab 03 |.0...U..|..1.U...|
|00005e40| e5 82 b0 03 e6 0e 31 53 | 48 0e 30 45 40 19 0e 31 |......1S|H.0E@..1|
|00005e50| 0e 30 d2 a6 c2 55 83 dd | 03 0e 30 e1 a6 c2 55 83 |.0...U..|..0...U.|
|00005e60| d2 03 0e 30 e2 a6 c2 55 | 83 dd 03 0e 31 ce 55 83 |...0...U|....1.U.|
|00005e70| dd 03 e5 82 e2 03 e6 0e | 31 53 48 0e 30 45 41 40 |........|1SH.0EA@|
|00005e80| 1b 0e 31 0e 30 d2 a6 c2 | 55 83 10 04 0e 30 e1 a6 |..1.0...|U....0..|
|00005e90| c2 55 83 05 04 0e 30 e2 | a6 c2 55 83 10 04 0e 31 |.U....0.|..U....1|
|00005ea0| ce 55 83 10 04 e5 82 15 | 04 e6 0e 31 53 48 0e 30 |.U......|...1SH.0|
|00005eb0| 45 41 41 40 1c 0b 09 53 | de 5f 5c 5c 1e 1f 09 ce |EAA@...S|._\\....|
|00005ec0| 56 83 53 04 0e 1f 09 d2 | 5f e0 5c 5c cd a5 5a 16 |V.S.....|_.\\..Z.|
|00005ed0| 1f 0c d2 a6 c2 55 83 53 | 04 0c e1 a6 c2 55 83 4e |.....U.S|.....U.N|
|00005ee0| 04 0c e2 a6 c2 55 83 53 | 04 0e 1f 54 16 1f 0e 1f |.....U.S|...T....|
|00005ef0| 2c 0c 53 e3 5f 0c 53 d2 | a5 0c 53 e1 a5 5b 0c 53 |,.S._.S.|..S..[.S|
|00005f00| e2 a5 5c 5c 5c 5c 5c 5c | 5c 5c 29 16 2e 0e 2f 53 |..\\\\\\|\\).../S|
|00005f10| 1e 07 0e 2e 0e 07 54 89 | 16 07 59 85 c8 04 e8 0e |......T.|..Y.....|
|00005f20| 07 21 89 1e 32 40 1e 33 | 0e 32 41 40 1e 34 0e 32 |.!..2@.3|.2A@.4.2|
|00005f30| 41 41 40 1e 35 09 c2 55 | 84 a3 04 09 0e 33 55 83 |AA@.5..U|.....3U.|
|00005f40| c4 04 0b c2 55 84 b0 04 | 0b 0e 34 55 83 c4 04 0c |....U...|..4U....|
|00005f50| c2 55 84 bd 04 0c 0e 35 | 55 83 c4 04 c9 c5 0e 07 |.U.....5|U.......|
|00005f60| 21 21 88 2c 82 73 04 2d | 29 87 22 20 5b 63 61 6c |!!.,.s.-|)." [cal|
|00005f70| 65 6e 64 61 72 2d 62 75 | 66 66 65 72 20 6d 6f 6e |endar-bu|ffer mon|
|00005f80| 74 68 20 30 20 64 61 79 | 20 79 65 61 72 20 63 61 |th 0 day| year ca|
|00005f90| 6c 65 6e 64 61 72 2d 67 | 72 65 67 6f 72 69 61 6e |lendar-g|regorian|
|00005fa0| 2d 66 72 6f 6d 2d 61 62 | 73 6f 6c 75 74 65 20 63 |-from-ab|solute c|
|00005fb0| 61 6c 65 6e 64 61 72 2d | 61 62 73 6f 6c 75 74 65 |alendar-|absolute|
|00005fc0| 2d 66 72 6f 6d 2d 68 65 | 62 72 65 77 20 64 61 74 |-from-he|brew dat|
|00005fd0| 65 20 63 61 6c 65 6e 64 | 61 72 2d 64 61 74 65 2d |e calend|ar-date-|
|00005fe0| 69 73 2d 76 69 73 69 62 | 6c 65 2d 70 20 6d 61 72 |is-visib|le-p mar|
|00005ff0| 6b 2d 76 69 73 69 62 6c | 65 2d 63 61 6c 65 6e 64 |k-visibl|e-calend|
|00006000| 61 72 2d 64 61 74 65 20 | 64 69 73 70 6c 61 79 65 |ar-date |displaye|
|00006010| 64 2d 6d 6f 6e 74 68 20 | 31 31 20 31 20 31 30 20 |d-month |11 1 10 |
|00006020| 32 20 39 20 33 20 38 20 | 34 20 37 20 35 20 64 69 |2 9 3 8 |4 7 5 di|
|00006030| 73 70 6c 61 79 65 64 2d | 79 65 61 72 20 6e 69 6c |splayed-|year nil|
|00006040| 20 79 32 20 6d 32 20 79 | 31 20 6d 31 20 31 32 20 | y2 m2 y|1 m1 12 |
|00006050| 2d 32 20 6d 61 63 72 6f | 2d 79 20 33 31 20 64 61 |-2 macro|-y 31 da|
|00006060| 79 2d 6f 66 2d 79 65 61 | 72 20 32 33 20 31 30 30 |y-of-yea|r 23 100|
|00006070| 20 34 30 30 20 33 36 35 | 20 73 74 61 72 74 2d 64 | 400 365| start-d|
|00006080| 61 74 65 20 32 39 20 5b | 33 31 20 32 38 20 33 31 |ate 29 [|31 28 31|
|00006090| 20 33 30 20 33 31 20 33 | 30 20 33 31 20 33 31 20 | 30 31 3|0 31 31 |
|000060a0| 33 30 20 33 31 20 33 30 | 20 33 31 5d 20 65 6e 64 |30 31 30| 31] end|
|000060b0| 2d 64 61 74 65 20 63 61 | 6c 65 6e 64 61 72 2d 68 |-date ca|lendar-h|
|000060c0| 65 62 72 65 77 2d 66 72 | 6f 6d 2d 61 62 73 6f 6c |ebrew-fr|om-absol|
|000060d0| 75 74 65 20 68 65 62 72 | 65 77 2d 73 74 61 72 74 |ute hebr|ew-start|
|000060e0| 20 68 65 62 72 65 77 2d | 65 6e 64 20 68 65 62 72 | hebrew-|end hebr|
|000060f0| 65 77 2d 79 31 20 68 65 | 62 72 65 77 2d 79 32 20 |ew-y1 he|brew-y2 |
|00006100| 36 20 6c 61 73 74 2d 64 | 61 74 65 20 66 69 72 73 |6 last-d|ate firs|
|00006110| 74 2d 64 61 74 65 20 79 | 20 6d 20 68 2d 64 61 74 |t-date y| m h-dat|
|00006120| 65 20 68 2d 6d 6f 6e 74 | 68 20 68 2d 64 61 79 20 |e h-mont|h h-day |
|00006130| 68 2d 79 65 61 72 5d 20 | 38 20 22 5c 0a 4d 61 72 |h-year] |8 "\.Mar|
|00006140| 6b 20 64 61 74 65 73 20 | 69 6e 20 63 61 6c 65 6e |k dates |in calen|
|00006150| 64 61 72 20 77 69 6e 64 | 6f 77 20 74 68 61 74 20 |dar wind|ow that |
|00006160| 63 6f 6e 66 6f 72 6d 20 | 74 6f 20 48 65 62 72 65 |conform |to Hebre|
|00006170| 77 20 64 61 74 65 20 4d | 4f 4e 54 48 2f 44 41 59 |w date M|ONTH/DAY|
|00006180| 2f 59 45 41 52 2e 0a 41 | 20 76 61 6c 75 65 20 6f |/YEAR..A| value o|
|00006190| 66 20 30 20 69 6e 20 61 | 6e 79 20 70 6f 73 69 74 |f 0 in a|ny posit|
|000061a0| 69 6f 6e 20 69 73 20 61 | 20 77 69 6c 64 2d 63 61 |ion is a| wild-ca|
|000061b0| 72 64 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |rd."]).(|defalias|
|000061c0| 20 27 6c 69 73 74 2d 73 | 65 78 70 2d 64 69 61 72 | 'list-s|exp-diar|
|000061d0| 79 2d 65 6e 74 72 69 65 | 73 20 23 5b 28 64 61 74 |y-entrie|s #[(dat|
|000061e0| 65 29 20 22 c0 09 21 1a | c0 0b 21 1c c5 5c 6e c6 |e) "..!.|..!..\n.|
|000061f0| 0c c7 b0 05 1e 08 c9 1e | 5c 6e 65 62 88 cb 0e 08 |........|\neb....|
|00006200| c9 cc 23 83 c6 00 cd ce | 21 88 60 c9 89 89 89 1e |..#.....|!.`.....|
|00006210| 0f 1e 10 1e 11 1e 12 1e | 13 d4 20 88 0e 13 60 7b |........|.. ...`{|
|00006220| 16 12 8a d5 d6 21 88 60 | 16 0f 29 ce 75 88 d7 68 |.....!.`|..).u..h|
|00006230| d8 5c 22 84 56 00 d7 68 | d9 5c 22 83 66 00 da db |.\".V..h|.\".f...|
|00006240| 21 84 66 00 cd ce 21 88 | dc 16 11 82 9a 00 60 16 |!.f...!.|......`.|
|00006250| 10 cb dd c9 cc 23 88 da | db 21 83 7e 00 cb dd c9 |.....#..|.!.~....|
|00006260| cc 23 88 82 6f 00 cd ce | 21 88 0e 10 60 7b 16 11 |.#..o...|!...`{..|
|00006270| de df 0e 11 5c 22 83 9a | 00 0e 11 e0 94 d9 49 88 |....\"..|......I.|
|00006280| 82 88 00 e1 0e 12 0e 11 | 0e 5c 22 23 89 1e 23 83 |........|.\"#..#.|
|00006290| b1 00 e4 0e 0f 60 d8 d9 | cc 25 88 e5 0e 5c 22 0e |.....`..|.%...\".|
|000062a0| 23 5c 22 88 0e 5c 6e 86 | bf 00 0e 23 16 5c 6e 2e |#\"..\n.|...#.\n.|
|000062b0| 06 82 17 00 0e 5c 6e 2c | 87 22 20 5b 72 65 67 65 |.....\n,|." [rege|
|000062c0| 78 70 2d 71 75 6f 74 65 | 20 64 69 61 72 79 2d 6e |xp-quote| diary-n|
|000062d0| 6f 6e 6d 61 72 6b 69 6e | 67 2d 73 79 6d 62 6f 6c |onmarkin|g-symbol|
|000062e0| 20 6d 61 72 6b 20 73 65 | 78 70 2d 64 69 61 72 79 | mark se|xp-diary|
|000062f0| 2d 65 6e 74 72 79 2d 73 | 79 6d 62 6f 6c 20 73 65 |-entry-s|ymbol se|
|00006300| 78 70 2d 6d 61 72 6b 20 | 22 5c 5c 28 5c 5c 60 5c |xp-mark |"\\(\\`\|
|00006310| 5c 7c 0d 5c 5c 7c 5c 6e | 5c 5c 29 22 20 22 3f 22 |\|.\\|\n|\\)" "?"|
|00006320| 20 22 28 22 20 73 2d 65 | 6e 74 72 79 20 6e 69 6c | "(" s-e|ntry nil|
|00006330| 20 65 6e 74 72 79 2d 66 | 6f 75 6e 64 20 72 65 2d | entry-f|ound re-|
|00006340| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 74 |search-f|orward t|
|00006350| 20 62 61 63 6b 77 61 72 | 64 2d 63 68 61 72 20 31 | backwar|d-char 1|
|00006360| 20 6c 69 6e 65 2d 73 74 | 61 72 74 20 65 6e 74 72 | line-st|art entr|
|00006370| 79 2d 73 74 61 72 74 20 | 65 6e 74 72 79 20 73 65 |y-start |entry se|
|00006380| 78 70 20 73 65 78 70 2d | 73 74 61 72 74 20 66 6f |xp sexp-|start fo|
|00006390| 72 77 61 72 64 2d 73 65 | 78 70 20 72 65 2d 73 65 |rward-se|xp re-se|
|000063a0| 61 72 63 68 2d 62 61 63 | 6b 77 61 72 64 20 22 0d |arch-bac|kward ".|
|000063b0| 5c 5c 7c 5c 6e 5c 5c 7c | 5c 5c 60 22 20 63 68 61 |\\|\n\\||\\`" cha|
|000063c0| 72 2d 65 71 75 61 6c 20 | 31 33 20 31 30 20 6c 6f |r-equal |13 10 lo|
|000063d0| 6f 6b 69 6e 67 2d 61 74 | 20 22 20 5c 5c 7c 09 22 |oking-at| " \\|."|
|000063e0| 20 22 22 20 22 0d 5c 5c | 7c 5c 6e 22 20 73 74 72 | "" ".\\||\n" str|
|000063f0| 69 6e 67 2d 6d 61 74 63 | 68 20 22 5b 0d 5d 22 20 |ing-matc|h "[.]" |
+--------+-------------------------+-------------------------+--------+--------+