/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / calendar / 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 6c 7a 40 61 73 68 |piled by| jlz@ash|
|00000020| 77 65 64 6e 65 73 64 61 | 79 20 6f 6e 20 4d 6f 6e |wednesda|y on Mon|
|00000030| 20 4d 61 72 20 31 35 20 | 30 30 3a 31 33 3a 33 32 | Mar 15 |00:13:32|
|00000040| 20 31 39 39 33 0a 3b 3b | 3b 20 66 72 6f 6d 20 66 | 1993.;;|; from f|
|00000050| 69 6c 65 20 2f 63 61 64 | 69 6c 6c 61 63 2d 61 77 |ile /cad|illac-aw|
|00000060| 32 2f 74 65 73 74 62 69 | 6e 2d 62 75 69 6c 64 73 |2/testbi|n-builds|
|00000070| 2f 6c 65 6d 61 63 73 2f | 6c 69 73 70 2f 63 61 6c |/lemacs/|lisp/cal|
|00000080| 65 6e 64 61 72 2f 64 69 | 61 72 79 2e 65 6c 0a 3b |endar/di|ary.el.;|
|00000090| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|000000a0| 20 31 39 2e 36 20 28 62 | 65 74 61 32 29 20 4c 75 | 19.6 (b|eta2) Lu|
|000000b0| 63 69 64 2e 0a 3b 3b 3b | 20 62 79 74 65 63 6f 6d |cid..;;;| bytecom|
|000000c0| 70 20 76 65 72 73 69 6f | 6e 20 32 2e 31 30 3b 20 |p versio|n 2.10; |
|000000d0| 31 36 2d 66 65 62 2d 39 | 33 2e 0a 3b 3b 3b 20 6f |16-feb-9|3..;;; o|
|000000e0| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|000000f0| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|00000100| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|00000110| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000120| 20 69 6e 20 45 6d 61 63 | 73 31 38 2e 0a 0a 28 69 | in Emac|s18...(i|
|00000130| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000140| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000150| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000160| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|00000170| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|00000180| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n)..    | (string|
|00000190| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|000001a0| 73 69 6f 6e 20 22 31 39 | 22 29 29 29 0a 20 20 20 |sion "19|"))).   |
|000001b0| 20 28 65 72 72 6f 72 20 | 22 54 68 69 73 20 66 69 | (error |"This fi|
|000001c0| 6c 65 20 77 61 73 20 63 | 6f 6d 70 69 6c 65 64 20 |le was c|ompiled |
|000001d0| 66 6f 72 20 45 6d 61 63 | 73 31 39 2e 22 29 29 0a |for Emac|s19.")).|
|000001e0| 0a 28 72 65 71 75 69 72 | 65 20 27 63 61 6c 65 6e |.(requir|e 'calen|
|000001f0| 64 61 72 29 0a 28 66 73 | 65 74 20 27 64 69 61 72 |dar).(fs|et 'diar|
|00000200| 79 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 61 |y #[(&op|tional a|
|00000210| 72 67 29 20 22 c0 09 21 | c2 20 1b 89 1c ab ae c5 |rg) "..!|. ......|
|00000220| 0c 21 ab a9 c6 0c 21 ab | 9f c7 0b 0e 08 ab 86 c9 |.!....!.|........|
|00000230| 0e 08 21 aa 90 ca 0e 0b | 21 ab 88 0e 0b cc 0b 21 |..!.....|!......!|
|00000240| 48 aa 82 0e 0b 5c 22 aa | 88 cd ce 21 aa 83 cd cf |H....\".|...!....|
|00000250| 21 2a 87 22 20 5b 73 75 | 62 73 74 69 74 75 74 65 |!*." [su|bstitute|
|00000260| 2d 69 6e 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 64 69 |-in-file|-name di|
|00000270| 61 72 79 2d 66 69 6c 65 | 20 63 61 6c 65 6e 64 61 |ary-file| calenda|
|00000280| 72 2d 63 75 72 72 65 6e | 74 2d 64 61 74 65 20 64 |r-curren|t-date d|
|00000290| 61 74 65 20 64 2d 66 69 | 6c 65 20 66 69 6c 65 2d |ate d-fi|le file-|
|000002a0| 65 78 69 73 74 73 2d 70 | 20 66 69 6c 65 2d 72 65 |exists-p| file-re|
|000002b0| 61 64 61 62 6c 65 2d 70 | 20 6c 69 73 74 2d 64 69 |adable-p| list-di|
|000002c0| 61 72 79 2d 65 6e 74 72 | 69 65 73 20 61 72 67 20 |ary-entr|ies arg |
|000002d0| 70 72 65 66 69 78 2d 6e | 75 6d 65 72 69 63 2d 76 |prefix-n|umeric-v|
|000002e0| 61 6c 75 65 20 76 65 63 | 74 6f 72 70 20 6e 75 6d |alue vec|torp num|
|000002f0| 62 65 72 2d 6f 66 2d 64 | 69 61 72 79 2d 65 6e 74 |ber-of-d|iary-ent|
|00000300| 72 69 65 73 20 63 61 6c | 65 6e 64 61 72 2d 64 61 |ries cal|endar-da|
|00000310| 79 2d 6f 66 2d 77 65 65 | 6b 20 65 72 72 6f 72 20 |y-of-wee|k error |
|00000320| 22 59 6f 75 72 20 64 69 | 61 72 79 20 66 69 6c 65 |"Your di|ary file|
|00000330| 20 69 73 20 6e 6f 74 20 | 72 65 61 64 61 62 6c 65 | is not |readable|
|00000340| 21 22 20 22 59 6f 75 20 | 64 6f 6e 27 74 20 68 61 |!" "You |don't ha|
|00000350| 76 65 20 61 20 64 69 61 | 72 79 20 66 69 6c 65 21 |ve a dia|ry file!|
|00000360| 22 5d 20 36 20 22 5c 0a | 47 65 6e 65 72 61 74 65 |"] 6 "\.|Generate|
|00000370| 20 74 68 65 20 64 69 61 | 72 79 20 77 69 6e 64 6f | the dia|ry windo|
|00000380| 77 20 66 6f 72 20 41 52 | 47 20 64 61 79 73 20 73 |w for AR|G days s|
|00000390| 74 61 72 74 69 6e 67 20 | 77 69 74 68 20 74 68 65 |tarting |with the|
|000003a0| 20 63 75 72 72 65 6e 74 | 20 64 61 74 65 2e 0a 49 | current| date..I|
|000003b0| 66 20 6e 6f 20 61 72 67 | 75 6d 65 6e 74 20 69 73 |f no arg|ument is|
|000003c0| 20 70 72 6f 76 69 64 65 | 64 2c 20 74 68 65 20 6e | provide|d, the n|
|000003d0| 75 6d 62 65 72 20 6f 66 | 20 64 61 79 73 20 6f 66 |umber of| days of|
|000003e0| 20 64 69 61 72 79 20 65 | 6e 74 72 69 65 73 20 69 | diary e|ntries i|
|000003f0| 73 20 67 6f 76 65 72 6e | 65 64 0a 62 79 20 74 68 |s govern|ed.by th|
|00000400| 65 20 76 61 72 69 61 62 | 6c 65 20 60 6e 75 6d 62 |e variab|le `numb|
|00000410| 65 72 2d 6f 66 2d 64 69 | 61 72 79 2d 65 6e 74 72 |er-of-di|ary-entr|
|00000420| 69 65 73 27 2e 20 20 54 | 68 69 73 20 66 75 6e 63 |ies'.  T|his func|
|00000430| 74 69 6f 6e 20 69 73 20 | 73 75 69 74 61 62 6c 65 |tion is |suitable|
|00000440| 20 66 6f 72 0a 65 78 65 | 63 75 74 69 6f 6e 20 69 | for.exe|cution i|
|00000450| 6e 20 61 20 2e 65 6d 61 | 63 73 20 66 69 6c 65 2e |n a .ema|cs file.|
|00000460| 22 20 22 50 22 5d 29 0a | 28 66 73 65 74 20 27 76 |" "P"]).|(fset 'v|
|00000470| 69 65 77 2d 64 69 61 72 | 79 2d 65 6e 74 72 69 65 |iew-diar|y-entrie|
|00000480| 73 20 23 5b 28 61 72 67 | 29 20 22 c0 09 21 89 1a |s #[(arg|) "..!..|
|00000490| ab 9c c3 5c 6e 21 ab 97 | c4 5c 6e 21 ab 8d c5 c6 |...\n!..|.\n!....|
|000004a0| 20 ae 83 c7 c8 21 0e 09 | 5c 22 aa 88 c7 ca 21 aa | ....!..|\"....!.|
|000004b0| 83 c7 cb 21 29 87 22 20 | 5b 73 75 62 73 74 69 74 |...!)." |[substit|
|000004c0| 75 74 65 2d 69 6e 2d 66 | 69 6c 65 2d 6e 61 6d 65 |ute-in-f|ile-name|
|000004d0| 20 64 69 61 72 79 2d 66 | 69 6c 65 20 64 2d 66 69 | diary-f|ile d-fi|
|000004e0| 6c 65 20 66 69 6c 65 2d | 65 78 69 73 74 73 2d 70 |le file-|exists-p|
|000004f0| 20 66 69 6c 65 2d 72 65 | 61 64 61 62 6c 65 2d 70 | file-re|adable-p|
|00000500| 20 6c 69 73 74 2d 64 69 | 61 72 79 2d 65 6e 74 72 | list-di|ary-entr|
|00000510| 69 65 73 20 63 61 6c 65 | 6e 64 61 72 2d 63 75 72 |ies cale|ndar-cur|
|00000520| 73 6f 72 2d 74 6f 2d 64 | 61 74 65 20 65 72 72 6f |sor-to-d|ate erro|
|00000530| 72 20 22 43 75 72 73 6f | 72 20 69 73 20 6e 6f 74 |r "Curso|r is not|
|00000540| 20 6f 6e 20 61 20 64 61 | 74 65 21 22 20 61 72 67 | on a da|te!" arg|
|00000550| 20 22 59 6f 75 72 20 64 | 69 61 72 79 20 66 69 6c | "Your d|iary fil|
|00000560| 65 20 69 73 20 6e 6f 74 | 20 72 65 61 64 61 62 6c |e is not| readabl|
|00000570| 65 21 22 20 22 59 6f 75 | 20 64 6f 6e 27 74 20 68 |e!" "You| don't h|
|00000580| 61 76 65 20 61 20 64 69 | 61 72 79 20 66 69 6c 65 |ave a di|ary file|
|00000590| 21 22 5d 20 34 20 22 5c | 0a 50 72 65 70 61 72 65 |!"] 4 "\|.Prepare|
|000005a0| 20 61 6e 64 20 64 69 73 | 70 6c 61 79 20 61 20 62 | and dis|play a b|
|000005b0| 75 66 66 65 72 20 77 69 | 74 68 20 64 69 61 72 79 |uffer wi|th diary|
|000005c0| 20 65 6e 74 72 69 65 73 | 2e 0a 53 65 61 72 63 68 | entries|..Search|
|000005d0| 65 73 20 74 68 65 20 66 | 69 6c 65 20 64 69 61 72 |es the f|ile diar|
|000005e0| 79 2d 66 69 6c 65 20 66 | 6f 72 20 65 6e 74 72 69 |y-file f|or entri|
|000005f0| 65 73 20 74 68 61 74 20 | 6d 61 74 63 68 20 41 52 |es that |match AR|
|00000600| 47 20 64 61 79 73 20 73 | 74 61 72 74 69 6e 67 20 |G days s|tarting |
|00000610| 77 69 74 68 0a 74 68 65 | 20 64 61 74 65 20 69 6e |with.the| date in|
|00000620| 64 69 63 61 74 65 64 20 | 62 79 20 74 68 65 20 63 |dicated |by the c|
|00000630| 75 72 73 6f 72 20 70 6f | 73 69 74 69 6f 6e 20 69 |ursor po|sition i|
|00000640| 6e 20 74 68 65 20 64 69 | 73 70 6c 61 79 65 64 20 |n the di|splayed |
|00000650| 74 68 72 65 65 2d 6d 6f | 6e 74 68 0a 63 61 6c 65 |three-mo|nth.cale|
|00000660| 6e 64 61 72 2e 22 20 22 | 70 22 5d 29 0a 28 61 75 |ndar." "|p"]).(au|
|00000670| 74 6f 6c 6f 61 64 20 27 | 63 68 65 63 6b 2d 63 61 |toload '|check-ca|
|00000680| 6c 65 6e 64 61 72 2d 68 | 6f 6c 69 64 61 79 73 20 |lendar-h|olidays |
|00000690| 22 68 6f 6c 69 64 61 79 | 73 22 20 22 5c 0a 43 68 |"holiday|s" "\.Ch|
|000006a0| 65 63 6b 20 74 68 65 20 | 6c 69 73 74 20 6f 66 20 |eck the |list of |
|000006b0| 68 6f 6c 69 64 61 79 73 | 20 66 6f 72 20 61 6e 79 |holidays| for any|
|000006c0| 20 74 68 61 74 20 6f 63 | 63 75 72 20 6f 6e 20 44 | that oc|cur on D|
|000006d0| 41 54 45 2e 0a 54 68 65 | 20 76 61 6c 75 65 20 72 |ATE..The| value r|
|000006e0| 65 74 75 72 6e 65 64 20 | 69 73 20 61 20 6c 69 73 |eturned |is a lis|
|000006f0| 74 20 6f 66 20 73 74 72 | 69 6e 67 73 20 6f 66 20 |t of str|ings of |
|00000700| 72 65 6c 65 76 61 6e 74 | 20 68 6f 6c 69 64 61 79 |relevant| holiday|
|00000710| 20 64 65 73 63 72 69 70 | 74 69 6f 6e 73 2e 0a 54 | descrip|tions..T|
|00000720| 68 65 20 68 6f 6c 69 64 | 61 79 73 20 61 72 65 20 |he holid|ays are |
|00000730| 74 68 6f 73 65 20 69 6e | 20 74 68 65 20 6c 69 73 |those in| the lis|
|00000740| 74 20 63 61 6c 65 6e 64 | 61 72 2d 68 6f 6c 69 64 |t calend|ar-holid|
|00000750| 61 79 73 2e 22 20 74 29 | 0a 28 61 75 74 6f 6c 6f |ays." t)|.(autolo|
|00000760| 61 64 20 27 63 61 6c 65 | 6e 64 61 72 2d 68 6f 6c |ad 'cale|ndar-hol|
|00000770| 69 64 61 79 2d 6c 69 73 | 74 20 22 68 6f 6c 69 64 |iday-lis|t "holid|
|00000780| 61 79 73 22 20 22 5c 0a | 46 6f 72 6d 20 74 68 65 |ays" "\.|Form the|
|00000790| 20 6c 69 73 74 20 6f 66 | 20 68 6f 6c 69 64 61 79 | list of| holiday|
|000007a0| 73 20 74 68 61 74 20 6f | 63 63 75 72 20 6f 6e 20 |s that o|ccur on |
|000007b0| 64 61 74 65 73 20 69 6e | 20 74 68 65 20 63 61 6c |dates in| the cal|
|000007c0| 65 6e 64 61 72 20 77 69 | 6e 64 6f 77 2e 0a 54 68 |endar wi|ndow..Th|
|000007d0| 65 20 68 6f 6c 69 64 61 | 79 73 20 61 72 65 20 74 |e holida|ys are t|
|000007e0| 68 6f 73 65 20 69 6e 20 | 74 68 65 20 6c 69 73 74 |hose in |the list|
|000007f0| 20 63 61 6c 65 6e 64 61 | 72 2d 68 6f 6c 69 64 61 | calenda|r-holida|
|00000800| 79 73 2e 22 20 74 29 0a | 28 61 75 74 6f 6c 6f 61 |ys." t).|(autoloa|
|00000810| 64 20 27 64 69 61 72 79 | 2d 66 72 65 6e 63 68 2d |d 'diary|-french-|
|00000820| 64 61 74 65 20 22 63 61 | 6c 2d 66 72 65 6e 63 68 |date "ca|l-french|
|00000830| 22 20 22 5c 0a 46 72 65 | 6e 63 68 20 63 61 6c 65 |" "\.Fre|nch cale|
|00000840| 6e 64 61 72 20 65 71 75 | 69 76 61 6c 65 6e 74 20 |ndar equ|ivalent |
|00000850| 6f 66 20 64 61 74 65 20 | 64 69 61 72 79 20 65 6e |of date |diary en|
|00000860| 74 72 79 2e 22 20 74 29 | 0a 28 61 75 74 6f 6c 6f |try." t)|.(autolo|
|00000870| 61 64 20 27 64 69 61 72 | 79 2d 6d 61 79 61 6e 2d |ad 'diar|y-mayan-|
|00000880| 64 61 74 65 20 22 63 61 | 6c 2d 6d 61 79 61 6e 22 |date "ca|l-mayan"|
|00000890| 20 22 5c 0a 4d 61 79 61 | 6e 20 63 61 6c 65 6e 64 | "\.Maya|n calend|
|000008a0| 61 72 20 65 71 75 69 76 | 61 6c 65 6e 74 20 6f 66 |ar equiv|alent of|
|000008b0| 20 64 61 74 65 20 64 69 | 61 72 79 20 65 6e 74 72 | date di|ary entr|
|000008c0| 79 2e 22 20 74 29 0a 28 | 61 75 74 6f 6c 6f 61 64 |y." t).(|autoload|
|000008d0| 20 27 64 69 61 72 79 2d | 70 68 61 73 65 73 2d 6f | 'diary-|phases-o|
|000008e0| 66 2d 6d 6f 6f 6e 20 22 | 6c 75 6e 61 72 22 20 22 |f-moon "|lunar" "|
|000008f0| 5c 0a 4d 6f 6f 6e 20 70 | 68 61 73 65 73 20 64 69 |\.Moon p|hases di|
|00000900| 61 72 79 20 65 6e 74 72 | 79 2e 22 20 74 29 0a 28 |ary entr|y." t).(|
|00000910| 61 75 74 6f 6c 6f 61 64 | 20 27 64 69 61 72 79 2d |autoload| 'diary-|
|00000920| 73 75 6e 72 69 73 65 2d | 73 75 6e 73 65 74 20 22 |sunrise-|sunset "|
|00000930| 73 6f 6c 61 72 22 20 22 | 5c 0a 4c 6f 63 61 6c 20 |solar" "|\.Local |
|00000940| 74 69 6d 65 20 6f 66 20 | 73 75 6e 72 69 73 65 20 |time of |sunrise |
|00000950| 61 6e 64 20 73 75 6e 73 | 65 74 20 61 73 20 61 20 |and suns|et as a |
|00000960| 64 69 61 72 79 20 65 6e | 74 72 79 2e 22 20 74 29 |diary en|try." t)|
|00000970| 0a 28 61 75 74 6f 6c 6f | 61 64 20 27 64 69 61 72 |.(autolo|ad 'diar|
|00000980| 79 2d 73 61 62 62 61 74 | 68 2d 63 61 6e 64 6c 65 |y-sabbat|h-candle|
|00000990| 73 20 22 73 6f 6c 61 72 | 22 20 22 5c 0a 4c 6f 63 |s "solar|" "\.Loc|
|000009a0| 61 6c 20 74 69 6d 65 20 | 6f 66 20 63 61 6e 64 6c |al time |of candl|
|000009b0| 65 20 6c 69 67 68 74 69 | 6e 67 20 64 69 61 72 79 |e lighti|ng diary|
|000009c0| 20 65 6e 74 72 79 2d 2d | 61 70 70 6c 69 65 73 20 | entry--|applies |
|000009d0| 69 66 20 64 61 74 65 20 | 69 73 20 61 20 46 72 69 |if date |is a Fri|
|000009e0| 64 61 79 2e 0a 4e 6f 20 | 64 69 61 72 79 20 65 6e |day..No |diary en|
|000009f0| 74 72 79 20 69 66 20 74 | 68 65 72 65 20 69 73 20 |try if t|here is |
|00000a00| 6e 6f 20 73 75 6e 73 65 | 74 20 6f 6e 20 74 68 61 |no sunse|t on tha|
|00000a10| 74 20 64 61 74 65 2e 22 | 20 74 29 0a 28 64 65 66 |t date."| t).(def|
|00000a20| 76 61 72 20 64 69 61 72 | 79 2d 73 79 6e 74 61 78 |var diar|y-syntax|
|00000a30| 2d 74 61 62 6c 65 20 28 | 73 74 61 6e 64 61 72 64 |-table (|standard|
|00000a40| 2d 73 79 6e 74 61 78 2d | 74 61 62 6c 65 29 20 22 |-syntax-|table) "|
|00000a50| 5c 0a 54 68 65 20 73 79 | 6e 74 61 78 20 74 61 62 |\.The sy|ntax tab|
|00000a60| 6c 65 20 75 73 65 64 20 | 77 68 65 6e 20 70 61 72 |le used |when par|
|00000a70| 73 69 6e 67 20 64 61 74 | 65 73 20 69 6e 20 74 68 |sing dat|es in th|
|00000a80| 65 20 64 69 61 72 79 20 | 66 69 6c 65 2e 0a 49 74 |e diary |file..It|
|00000a90| 20 69 73 20 74 68 65 20 | 73 74 61 6e 64 61 72 64 | is the |standard|
|00000aa0| 20 73 79 6e 74 61 78 20 | 74 61 62 6c 65 20 75 73 | syntax |table us|
|00000ab0| 65 64 20 69 6e 20 46 75 | 6e 64 61 6d 65 6e 74 61 |ed in Fu|ndamenta|
|00000ac0| 6c 20 6d 6f 64 65 2c 20 | 62 75 74 20 77 69 74 68 |l mode, |but with|
|00000ad0| 20 74 68 65 0a 73 79 6e | 74 61 78 20 6f 66 20 60 | the.syn|tax of `|
|00000ae0| 2a 27 20 63 68 61 6e 67 | 65 64 20 74 6f 20 62 65 |*' chang|ed to be|
|00000af0| 20 61 20 77 6f 72 64 20 | 63 6f 6e 73 74 69 74 75 | a word |constitu|
|00000b00| 65 6e 74 2e 22 29 0a 28 | 6d 6f 64 69 66 79 2d 73 |ent.").(|modify-s|
|00000b10| 79 6e 74 61 78 2d 65 6e | 74 72 79 20 34 32 20 22 |yntax-en|try 42 "|
|00000b20| 77 22 20 64 69 61 72 79 | 2d 73 79 6e 74 61 78 2d |w" diary|-syntax-|
|00000b30| 74 61 62 6c 65 29 0a 28 | 66 73 65 74 20 27 6c 69 |table).(|fset 'li|
|00000b40| 73 74 2d 64 69 61 72 79 | 2d 65 6e 74 72 69 65 73 |st-diary|-entries|
|00000b50| 20 23 5b 28 64 61 74 65 | 20 6e 75 6d 62 65 72 29 | #[(date| number)|
|00000b60| 20 22 c0 09 57 85 6f 02 | 5c 6e 1b c4 1d c4 1e 06 | "..W.o.|\n......|
|00000b70| c7 5c 6e 21 1e 08 c9 0e | 5c 6e 21 1e 0b cc cd 21 |.\n!....|\n!....!|
|00000b80| 88 8a ce 0e 0b 21 89 1e | 0f ab 84 0e 0f aa 85 d0 |.....!..|........|
|00000b90| 0e 0b d1 5c 22 71 88 29 | d1 16 12 c4 16 13 d4 20 |...\"q.)|....... |
|00000ba0| 15 d5 0e 16 21 88 d7 8e | c4 d8 20 d9 0e 1a 21 1e |....!...|.. ...!.|
|00000bb0| 1b 1e 1c 1e 1d 64 53 62 | 88 de df 21 ac 87 e0 75 |.....dSb|...!...u|
|00000bc0| 88 e1 e2 21 88 65 62 88 | de df 21 ac 84 e1 e2 21 |...!.eb.|..!....!|
|00000bd0| 88 e3 65 64 e4 e5 d1 25 | 88 c0 1e 26 09 0e 26 54 |..ed...%|...&..&T|
|00000be0| 89 16 26 59 83 51 02 0e | 27 5c 6e 40 5c 6e 41 40 |..&Y.Q..|'\n@\nA@|
|00000bf0| 5c 6e 41 41 40 e8 5c 6e | 21 1e 29 1e 2a 1e 2b 1e |\nAA@.\n|!.).*.+.|
|00000c00| 2c 89 1e 2d 83 a9 01 0e | 2d 40 40 ee 9a ab 86 0e |,..-....|-@@.....|
|00000c10| 2d 40 41 aa 83 0e 2d 40 | 1e 2f 0e 2d 40 40 ee 9a |-@A...-@|./.-@@..|
|00000c20| 1e 2e f0 5c 6e 21 f1 f0 | 5c 6e 21 c0 f2 4f f3 52 |...\n!..|\n!..O.R|
|00000c30| 1e 34 f5 f6 0e 2c 21 f1 | f6 0e 2c 21 c0 f2 4f f3 |.4...,!.|..,!..O.|
|00000c40| b0 05 1e 37 f8 f9 0e 2c | 21 50 1e 2c f8 f9 0e 2b |...7...,|!P.,...+|
|00000c50| 21 50 1e 2b f8 f9 0e 2a | 21 0e 3a ab 8a f1 f9 0e |!P.+...*|!.:.....|
|00000c60| 2a fb a6 21 50 aa 81 fc | 51 1e 2a fd 0e 1b fe ff |*..!P...|Q.*.....|
|00000c70| 81 40 00 0e 2f 81 41 00 | 23 81 42 00 b0 05 1e 43 |.@../.A.|#.B....C|
|00000c80| d1 1e 44 65 62 88 81 45 | 00 0e 43 c4 d1 23 ab fa |..Deb..E|..C..#..|
|00000c90| 0e 2e ab 8a 81 46 00 81 | 47 00 c4 d1 23 88 81 48 |.....F..|G...#..H|
|00000ca0| 00 68 e5 5c 22 ac 88 81 | 48 00 68 e4 5c 22 ab 8f |.h.\"...|H.h.\"..|
|00000cb0| de 81 49 00 21 ac 88 81 | 4a 00 e0 21 88 aa 49 d1 |..I.!...|J..!..I.|
|00000cc0| 16 29 60 c4 1e 4b 1e 4c | 81 46 00 81 4d 00 21 88 |.)`..K.L|.F..M.!.|
|00000cd0| 60 16 4b 81 45 00 df c4 | d1 81 4e 00 24 88 de 81 |`.K.E...|..N.$...|
|00000ce0| 49 00 21 ab 8a 81 45 00 | df c4 d1 23 88 aa 6f 81 |I.!...E.|...#..o.|
|00000cf0| 4a 00 e0 21 88 e3 0e 4b | 60 e5 e4 d1 25 88 81 4f |J..!...K|`...%..O|
|00000d00| 00 5c 6e 0e 4c 60 7b 5c | 22 88 2a 82 1a 01 2e 09 |.\n.L`{\|".*.....|
|00000d10| 0e 2d 41 89 16 2d 84 9d | 00 0e 29 ac 90 0e 50 ab |.-A..-..|..)...P.|
|00000d20| 8c 81 51 00 0e 06 5c 6e | fc 44 43 5c 22 16 06 81 |..Q...\n|.DC\"...|
|00000d30| 52 00 5c 6e 40 5c 6e 41 | 40 5c 6e 41 41 40 1e 2a |R.\n@\nA|@\nAA@.*|
|00000d40| 1e 2b 1e 2c 5c 6e 40 1e | 2c 5c 6e 41 40 1e 2b 5c |.+.,\n@.|,\nA@.+\|
|00000d50| 6e 41 41 40 1e 2a 0e 2b | 0e 2c 53 81 53 00 5f 5c |nAA@.*.+|.,S.S._\|
|00000d60| 5c 1e 54 0e 2c 81 4e 00 | 56 ab b2 0e 54 0e 2c 81 |\.T.,.N.|V...T.,.|
|00000d70| 55 00 5f 81 56 00 5c 5c | e4 a5 5a 16 54 0e 2a 81 |U._.V.\\|..Z.T.*.|
|00000d80| 55 00 a6 c0 55 ab 88 0e | 2a fb a6 c0 55 ab 8a 0e |U...U...|*...U...|
|00000d90| 2a 81 57 00 a6 c0 55 ab | 85 0e 54 54 16 54 0e 54 |*.W...U.|..TT.T.T|
|00000da0| 2c 0e 2a 53 81 58 00 5f | 0e 2a 53 81 55 00 a5 0e |,.*S.X._|.*S.U...|
|00000db0| 2a 53 fb a5 5b 0e 2a 53 | 81 57 00 a5 5c 5c 5c 5c |*S..[.*S|.W..\\\\|
|00000dc0| 5c 5c 5c 5c 2b 54 21 12 | c4 16 29 2d 82 76 00 29 |\\\\+T!.|..)-.v.)|
|00000dd0| 81 59 00 0e 1c 21 88 2c | 65 62 88 81 5a 00 81 5b |.Y...!.,|eb..Z..[|
|00000de0| 00 81 5c 5c 00 81 5d 00 | 23 88 0e 06 2e 06 87 22 |..\\..].|#......"|
|00000df0| 20 5b 30 20 6e 75 6d 62 | 65 72 20 64 61 74 65 20 | [0 numb|er date |
|00000e00| 6f 72 69 67 69 6e 61 6c | 2d 64 61 74 65 20 6e 69 |original|-date ni|
|00000e10| 6c 20 6f 6c 64 2d 64 69 | 61 72 79 2d 73 79 6e 74 |l old-di|ary-synt|
|00000e20| 61 78 2d 74 61 62 6c 65 | 20 64 69 61 72 79 2d 65 |ax-table| diary-e|
|00000e30| 6e 74 72 69 65 73 2d 6c | 69 73 74 20 63 61 6c 65 |ntries-l|ist cale|
|00000e40| 6e 64 61 72 2d 64 61 74 | 65 2d 73 74 72 69 6e 67 |ndar-dat|e-string|
|00000e50| 20 64 61 74 65 2d 73 74 | 72 69 6e 67 20 73 75 62 | date-st|ring sub|
|00000e60| 73 74 69 74 75 74 65 2d | 69 6e 2d 66 69 6c 65 2d |stitute-|in-file-|
|00000e70| 6e 61 6d 65 20 64 69 61 | 72 79 2d 66 69 6c 65 20 |name dia|ry-file |
|00000e80| 64 2d 66 69 6c 65 20 6d | 65 73 73 61 67 65 20 22 |d-file m|essage "|
|00000e90| 50 72 65 70 61 72 69 6e | 67 20 64 69 61 72 79 2e |Preparin|g diary.|
|00000ea0| 2e 2e 22 20 67 65 74 2d | 66 69 6c 65 2d 62 75 66 |.." get-|file-buf|
|00000eb0| 66 65 72 20 64 69 61 72 | 79 2d 62 75 66 66 65 72 |fer diar|y-buffer|
|00000ec0| 20 66 69 6e 64 2d 66 69 | 6c 65 2d 6e 6f 73 65 6c | find-fi|le-nosel|
|00000ed0| 65 63 74 20 74 20 73 65 | 6c 65 63 74 69 76 65 2d |ect t se|lective-|
|00000ee0| 64 69 73 70 6c 61 79 20 | 73 65 6c 65 63 74 69 76 |display |selectiv|
|00000ef0| 65 2d 64 69 73 70 6c 61 | 79 2d 65 6c 6c 69 70 73 |e-displa|y-ellips|
|00000f00| 65 73 20 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 20 |es synta|x-table |
|00000f10| 73 65 74 2d 73 79 6e 74 | 61 78 2d 74 61 62 6c 65 |set-synt|ax-table|
|00000f20| 20 64 69 61 72 79 2d 73 | 79 6e 74 61 78 2d 74 61 | diary-s|yntax-ta|
|00000f30| 62 6c 65 20 28 28 73 65 | 74 2d 73 79 6e 74 61 78 |ble ((se|t-syntax|
|00000f40| 2d 74 61 62 6c 65 20 6f | 6c 64 2d 64 69 61 72 79 |-table o|ld-diary|
|00000f50| 2d 73 79 6e 74 61 78 2d | 74 61 62 6c 65 29 29 20 |-syntax-|table)) |
|00000f60| 62 75 66 66 65 72 2d 6d | 6f 64 69 66 69 65 64 2d |buffer-m|odified-|
|00000f70| 70 20 72 65 67 65 78 70 | 2d 71 75 6f 74 65 20 64 |p regexp|-quote d|
|00000f80| 69 61 72 79 2d 6e 6f 6e | 6d 61 72 6b 69 6e 67 2d |iary-non|marking-|
|00000f90| 73 79 6d 62 6f 6c 20 6d | 61 72 6b 20 64 69 61 72 |symbol m|ark diar|
|00000fa0| 79 2d 6d 6f 64 69 66 69 | 65 64 20 62 75 66 66 65 |y-modifi|ed buffe|
|00000fb0| 72 2d 72 65 61 64 2d 6f | 6e 6c 79 20 6c 6f 6f 6b |r-read-o|nly look|
|00000fc0| 69 6e 67 2d 61 74 20 22 | 0d 5c 5c 7c 5c 6e 22 20 |ing-at "|.\\|\n" |
|00000fd0| 31 20 69 6e 73 65 72 74 | 2d 73 74 72 69 6e 67 20 |1 insert|-string |
|00000fe0| 22 0d 22 20 73 75 62 73 | 74 2d 63 68 61 72 2d 69 |"." subs|t-char-i|
|00000ff0| 6e 2d 72 65 67 69 6f 6e | 20 31 30 20 31 33 20 69 |n-region| 10 13 i|
|00001000| 20 64 69 61 72 79 2d 64 | 61 74 65 2d 66 6f 72 6d | diary-d|ate-form|
|00001010| 73 20 6c 69 73 74 2d 73 | 65 78 70 2d 64 69 61 72 |s list-s|exp-diar|
|00001020| 79 2d 65 6e 74 72 69 65 | 73 20 65 6e 74 72 79 2d |y-entrie|s entry-|
|00001030| 66 6f 75 6e 64 20 79 65 | 61 72 20 64 61 79 20 6d |found ye|ar day m|
|00001040| 6f 6e 74 68 20 64 20 62 | 61 63 6b 75 70 20 64 61 |onth d b|ackup da|
|00001050| 74 65 2d 66 6f 72 6d 20 | 63 61 6c 65 6e 64 61 72 |te-form |calendar|
|00001060| 2d 64 61 79 2d 6e 61 6d | 65 20 22 5c 5c 7c 22 20 |-day-nam|e "\\|" |
|00001070| 33 20 22 2e 3f 22 20 64 | 61 79 6e 61 6d 65 20 22 |3 ".?" d|ayname "|
|00001080| 5c 5c 2a 5c 5c 7c 22 20 | 63 61 6c 65 6e 64 61 72 |\\*\\|" |calendar|
|00001090| 2d 6d 6f 6e 74 68 2d 6e | 61 6d 65 20 6d 6f 6e 74 |-month-n|ame mont|
|000010a0| 68 6e 61 6d 65 20 22 5c | 5c 2a 5c 5c 7c 30 2a 22 |hname "\|\*\\|0*"|
|000010b0| 20 69 6e 74 2d 74 6f 2d | 73 74 72 69 6e 67 20 61 | int-to-|string a|
|000010c0| 62 62 72 65 76 69 61 74 | 65 64 2d 63 61 6c 65 6e |bbreviat|ed-calen|
|000010d0| 64 61 72 2d 79 65 61 72 | 20 31 30 30 20 22 22 20 |dar-year| 100 "" |
|000010e0| 22 5c 5c 28 5c 5c 60 5c | 5c 7c 0d 5c 5c 7c 5c 6e |"\\(\\`\|\|.\\|\n|
|000010f0| 5c 5c 29 22 20 22 3f 5c | 5c 28 22 20 6d 61 70 63 |\\)" "?\|\(" mapc|
|00001100| 6f 6e 63 61 74 20 65 76 | 61 6c 20 22 5c 5c 29 5c |oncat ev|al "\\)\|
|00001110| 5c 28 22 20 22 5c 5c 29 | 22 20 72 65 67 65 78 70 |\(" "\\)|" regexp|
|00001120| 20 63 61 73 65 2d 66 6f | 6c 64 2d 73 65 61 72 63 | case-fo|ld-searc|
|00001130| 68 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |h re-sea|rch-forw|
|00001140| 61 72 64 20 72 65 2d 73 | 65 61 72 63 68 2d 62 61 |ard re-s|earch-ba|
|00001150| 63 6b 77 61 72 64 20 22 | 5c 5c 3c 22 20 63 68 61 |ckward "|\\<" cha|
|00001160| 72 2d 65 71 75 61 6c 20 | 22 20 5c 5c 7c 09 22 20 |r-equal |" \\|." |
|00001170| 62 61 63 6b 77 61 72 64 | 2d 63 68 61 72 20 64 61 |backward|-char da|
|00001180| 74 65 2d 73 74 61 72 74 | 20 65 6e 74 72 79 2d 73 |te-start| entry-s|
|00001190| 74 61 72 74 20 22 0d 5c | 5c 7c 5c 6e 5c 5c 7c 5c |tart ".\|\|\n\\|\|
|000011a0| 5c 60 22 20 32 20 61 64 | 64 2d 74 6f 2d 64 69 61 |\`" 2 ad|d-to-dia|
|000011b0| 72 79 2d 6c 69 73 74 20 | 64 69 61 72 79 2d 6c 69 |ry-list |diary-li|
|000011c0| 73 74 2d 69 6e 63 6c 75 | 64 65 2d 62 6c 61 6e 6b |st-inclu|de-blank|
|000011d0| 73 20 61 70 70 65 6e 64 | 20 63 61 6c 65 6e 64 61 |s append| calenda|
|000011e0| 72 2d 67 72 65 67 6f 72 | 69 61 6e 2d 66 72 6f 6d |r-gregor|ian-from|
|000011f0| 2d 61 62 73 6f 6c 75 74 | 65 20 33 31 20 64 61 79 |-absolut|e 31 day|
|00001200| 2d 6f 66 2d 79 65 61 72 | 20 34 20 32 33 20 34 30 |-of-year| 4 23 40|
|00001210| 30 20 33 36 35 20 73 65 | 74 2d 62 75 66 66 65 72 |0 365 se|t-buffer|
|00001220| 2d 6d 6f 64 69 66 69 65 | 64 2d 70 20 72 75 6e 2d |-modifie|d-p run-|
|00001230| 68 6f 6f 6b 73 20 6e 6f | 6e 67 72 65 67 6f 72 69 |hooks no|ngregori|
|00001240| 61 6e 2d 64 69 61 72 79 | 2d 6c 69 73 74 69 6e 67 |an-diary|-listing|
|00001250| 2d 68 6f 6f 6b 20 6c 69 | 73 74 2d 64 69 61 72 79 |-hook li|st-diary|
|00001260| 2d 65 6e 74 72 69 65 73 | 2d 68 6f 6f 6b 20 64 69 |-entries|-hook di|
|00001270| 61 72 79 2d 64 69 73 70 | 6c 61 79 2d 68 6f 6f 6b |ary-disp|lay-hook|
|00001280| 5d 20 38 20 22 5c 0a 43 | 72 65 61 74 65 20 61 6e |] 8 "\.C|reate an|
|00001290| 64 20 64 69 73 70 6c 61 | 79 20 61 20 62 75 66 66 |d displa|y a buff|
|000012a0| 65 72 20 63 6f 6e 74 61 | 69 6e 69 6e 67 20 74 68 |er conta|ining th|
|000012b0| 65 20 72 65 6c 65 76 61 | 6e 74 20 6c 69 6e 65 73 |e releva|nt lines|
|000012c0| 20 69 6e 20 64 69 61 72 | 79 2d 66 69 6c 65 2e 0a | in diar|y-file..|
|000012d0| 41 6c 6c 20 6c 69 6e 65 | 73 20 74 68 61 74 20 61 |All line|s that a|
|000012e0| 70 70 6c 79 20 74 6f 20 | 44 41 54 45 20 61 6e 64 |pply to |DATE and|
|000012f0| 20 74 68 65 20 6e 65 78 | 74 20 4e 55 4d 42 45 52 | the nex|t NUMBER|
|00001300| 2d 31 20 64 61 79 73 20 | 61 72 65 20 69 6e 63 6c |-1 days |are incl|
|00001310| 75 64 65 64 2e 0a 0a 4d | 61 6b 65 73 20 61 6c 6c |uded...M|akes all|
|00001320| 20 64 69 61 72 79 20 65 | 6e 74 72 69 65 73 20 69 | diary e|ntries i|
|00001330| 6e 20 74 68 65 20 64 69 | 61 72 79 20 66 69 6c 65 |n the di|ary file|
|00001340| 20 69 6e 76 69 73 69 62 | 6c 65 20 28 75 73 69 6e | invisib|le (usin|
|00001350| 67 20 73 65 6c 65 63 74 | 69 76 65 20 64 69 73 70 |g select|ive disp|
|00001360| 6c 61 79 29 2c 0a 2a 65 | 78 63 65 70 74 2a 20 74 |lay),.*e|xcept* t|
|00001370| 68 6f 73 65 20 74 68 61 | 74 20 61 72 65 20 72 65 |hose tha|t are re|
|00001380| 6c 65 76 61 6e 74 2e 0a | 0a 52 65 74 75 72 6e 73 |levant..|.Returns|
|00001390| 20 61 20 6c 69 73 74 20 | 6f 66 20 61 6c 6c 20 72 | a list |of all r|
|000013a0| 65 6c 65 76 61 6e 74 20 | 64 69 61 72 79 20 65 6e |elevant |diary en|
|000013b0| 74 72 69 65 73 20 66 6f | 75 6e 64 2c 20 69 66 20 |tries fo|und, if |
|000013c0| 61 6e 79 2c 20 69 6e 20 | 6f 72 64 65 72 20 62 79 |any, in |order by|
|000013d0| 20 64 61 74 65 2e 0a 54 | 68 65 20 6c 69 73 74 20 | date..T|he list |
|000013e0| 65 6e 74 72 69 65 73 20 | 68 61 76 65 20 74 68 65 |entries |have the|
|000013f0| 20 66 6f 72 6d 20 28 28 | 6d 6f 6e 74 68 20 64 61 | form ((|month da|
|00001400| 79 20 79 65 61 72 29 20 | 73 74 72 69 6e 67 29 2e |y year) |string).|
|00001410| 20 20 49 66 20 74 68 65 | 20 76 61 72 69 61 62 6c |  If the| variabl|
|00001420| 65 0a 60 64 69 61 72 79 | 2d 6c 69 73 74 2d 69 6e |e.`diary|-list-in|
|00001430| 63 6c 75 64 65 2d 62 6c | 61 6e 6b 73 27 20 69 73 |clude-bl|anks' is|
|00001440| 20 74 2c 20 74 68 69 73 | 20 6c 69 73 74 20 77 69 | t, this| list wi|
|00001450| 6c 6c 20 69 6e 63 6c 75 | 64 65 20 61 20 64 75 6d |ll inclu|de a dum|
|00001460| 6d 79 20 64 69 61 72 79 | 20 65 6e 74 72 79 0a 28 |my diary| entry.(|
|00001470| 63 6f 6e 73 69 73 74 69 | 6e 67 20 6f 66 20 74 68 |consisti|ng of th|
|00001480| 65 20 65 6d 70 74 79 20 | 73 74 72 69 6e 67 29 20 |e empty |string) |
|00001490| 66 6f 72 20 61 20 64 61 | 74 65 20 77 69 74 68 20 |for a da|te with |
|000014a0| 6e 6f 20 64 69 61 72 79 | 20 65 6e 74 72 69 65 73 |no diary| entries|
|000014b0| 2e 0a 0a 41 66 74 65 72 | 20 74 68 65 20 6c 69 73 |...After| the lis|
|000014c0| 74 20 69 73 20 70 72 65 | 70 61 72 65 64 2c 20 74 |t is pre|pared, t|
|000014d0| 68 65 20 68 6f 6f 6b 73 | 20 60 6e 6f 6e 67 72 65 |he hooks| `nongre|
|000014e0| 67 6f 72 69 61 6e 2d 64 | 69 61 72 79 2d 6c 69 73 |gorian-d|iary-lis|
|000014f0| 74 69 6e 67 2d 68 6f 6f | 6b 27 2c 0a 60 6c 69 73 |ting-hoo|k',.`lis|
|00001500| 74 2d 64 69 61 72 79 2d | 65 6e 74 72 69 65 73 2d |t-diary-|entries-|
|00001510| 68 6f 6f 6b 27 2c 20 61 | 6e 64 20 60 64 69 61 72 |hook', a|nd `diar|
|00001520| 79 2d 64 69 73 70 6c 61 | 79 2d 68 6f 6f 6b 27 20 |y-displa|y-hook' |
|00001530| 61 72 65 20 72 75 6e 2e | 20 20 54 68 65 73 65 20 |are run.|  These |
|00001540| 68 6f 6f 6b 73 0a 68 61 | 76 65 20 74 68 65 20 66 |hooks.ha|ve the f|
|00001550| 6f 6c 6c 6f 77 69 6e 67 | 20 64 69 73 74 69 6e 63 |ollowing| distinc|
|00001560| 74 20 72 6f 6c 65 73 3a | 0a 0a 20 20 20 20 60 6e |t roles:|..    `n|
|00001570| 6f 6e 67 72 65 67 6f 72 | 69 61 6e 2d 64 69 61 72 |ongregor|ian-diar|
|00001580| 79 2d 6c 69 73 74 69 6e | 67 2d 68 6f 6f 6b 27 20 |y-listin|g-hook' |
|00001590| 63 61 6e 20 63 75 6c 6c | 20 64 61 74 65 73 20 66 |can cull| dates f|
|000015a0| 72 6f 6d 20 74 68 65 20 | 64 69 61 72 79 0a 20 20 |rom the |diary.  |
|000015b0| 20 20 20 20 20 20 61 6e | 64 20 65 61 63 68 20 69 |      an|d each i|
|000015c0| 6e 63 6c 75 64 65 64 20 | 66 69 6c 65 2e 20 20 55 |ncluded |file.  U|
|000015d0| 73 75 61 6c 6c 79 20 75 | 73 65 64 20 66 6f 72 20 |sually u|sed for |
|000015e0| 48 65 62 72 65 77 20 6f | 72 20 49 73 6c 61 6d 69 |Hebrew o|r Islami|
|000015f0| 63 0a 20 20 20 20 20 20 | 20 20 64 69 61 72 79 20 |c.      |  diary |
|00001600| 65 6e 74 72 69 65 73 20 | 69 6e 20 66 69 6c 65 73 |entries |in files|
|00001610| 2e 20 20 41 70 70 6c 69 | 65 64 20 74 6f 20 2a 65 |.  Appli|ed to *e|
|00001620| 61 63 68 2a 20 66 69 6c | 65 2e 0a 0a 20 20 20 20 |ach* fil|e...    |
|00001630| 60 6c 69 73 74 2d 64 69 | 61 72 79 2d 65 6e 74 72 |`list-di|ary-entr|
|00001640| 69 65 73 2d 68 6f 6f 6b | 27 20 61 64 64 73 20 6f |ies-hook|' adds o|
|00001650| 72 20 6d 61 6e 69 70 75 | 6c 61 74 65 73 20 64 69 |r manipu|lates di|
|00001660| 61 72 79 20 65 6e 74 72 | 69 65 73 20 66 72 6f 6d |ary entr|ies from|
|00001670| 0a 20 20 20 20 20 20 20 | 20 65 78 74 65 72 6e 61 |.       | externa|
|00001680| 6c 20 73 6f 75 72 63 65 | 73 2e 20 20 55 73 65 64 |l source|s.  Used|
|00001690| 2c 20 66 6f 72 20 65 78 | 61 6d 70 6c 65 2c 20 74 |, for ex|ample, t|
|000016a0| 6f 20 69 6e 63 6c 75 64 | 65 20 64 69 61 72 79 20 |o includ|e diary |
|000016b0| 65 6e 74 72 69 65 73 0a | 20 20 20 20 20 20 20 20 |entries.|        |
|000016c0| 66 72 6f 6d 20 6f 74 68 | 65 72 20 66 69 6c 65 73 |from oth|er files|
|000016d0| 20 6f 72 20 74 6f 20 73 | 6f 72 74 20 74 68 65 20 | or to s|ort the |
|000016e0| 64 69 61 72 79 20 65 6e | 74 72 69 65 73 2e 20 20 |diary en|tries.  |
|000016f0| 49 6e 76 6f 6b 65 64 20 | 2a 6f 6e 63 65 2a 20 6f |Invoked |*once* o|
|00001700| 6e 6c 79 2e 0a 0a 20 20 | 20 20 60 64 69 61 72 79 |nly...  |  `diary|
|00001710| 2d 64 69 73 70 6c 61 79 | 2d 68 6f 6f 6b 27 20 64 |-display|-hook' d|
|00001720| 6f 65 73 20 74 68 65 20 | 61 63 74 75 61 6c 20 64 |oes the |actual d|
|00001730| 69 73 70 6c 61 79 20 6f | 66 20 69 6e 66 6f 72 6d |isplay o|f inform|
|00001740| 61 74 69 6f 6e 2e 20 20 | 43 6f 75 6c 64 20 62 65 |ation.  |Could be|
|00001750| 0a 20 20 20 20 20 20 20 | 20 75 73 65 64 20 61 6c |.       | used al|
|00001760| 73 6f 20 66 6f 72 20 61 | 6e 20 61 70 70 6f 69 6e |so for a|n appoin|
|00001770| 74 6d 65 6e 74 20 6e 6f | 74 69 66 69 63 61 74 69 |tment no|tificati|
|00001780| 6f 6e 20 66 75 6e 63 74 | 69 6f 6e 2e 22 5d 29 0a |on funct|ion."]).|
|00001790| 28 66 73 65 74 20 27 69 | 6e 63 6c 75 64 65 2d 6f |(fset 'i|nclude-o|
|000017a0| 74 68 65 72 2d 64 69 61 | 72 79 2d 66 69 6c 65 73 |ther-dia|ry-files|
|000017b0| 20 23 5b 6e 69 6c 20 22 | 65 62 88 c0 c1 c2 0b 21 | #[nil "|eb.....!|
|000017c0| c4 51 c5 c6 23 ab ce c7 | c8 94 c8 95 7b 21 c5 c9 |.Q..#...|....{!..|
|000017d0| c5 1e 5c 6e 1e 0b 1e 0c | 1e 0d ce 0e 0d 21 ab a6 |..\n....|.....!..|
|000017e0| cf 0e 0d 21 ab 91 d0 8e | d1 0e 12 d3 0e 14 0e 15 |...!....|........|
|000017f0| 5c 22 5c 22 16 12 29 aa | 9c d6 20 88 d7 d8 0e 0d |\"\"..).|.. .....|
|00001800| 5c 22 88 d9 c8 21 88 aa | 8d d6 20 88 d7 da 0e 0d |\"...!..|.. .....|
|00001810| 5c 22 88 d9 c8 21 88 2c | aa 26 65 62 87 22 20 5b |\"...!.,|.&eb." [|
|00001820| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00001830| 64 20 22 5c 5c 28 5c 5c | 60 5c 5c 7c 0d 5c 5c 7c |d "\\(\\|`\\|.\\||
|00001840| 5c 6e 5c 5c 29 22 20 72 | 65 67 65 78 70 2d 71 75 |\n\\)" r|egexp-qu|
|00001850| 6f 74 65 20 64 69 61 72 | 79 2d 69 6e 63 6c 75 64 |ote diar|y-includ|
|00001860| 65 2d 73 74 72 69 6e 67 | 20 22 20 5c 22 5c 5c 28 |e-string| " \"\\(|
|00001870| 5b 5e 5c 22 5d 2a 5c 5c | 29 5c 22 22 20 6e 69 6c |[^\"]*\\|)\"" nil|
|00001880| 20 74 20 73 75 62 73 74 | 69 74 75 74 65 2d 69 6e | t subst|itute-in|
|00001890| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 32 20 69 6e 63 |-file-na|me 2 inc|
|000018a0| 6c 75 64 65 2d 6f 74 68 | 65 72 2d 64 69 61 72 79 |lude-oth|er-diary|
|000018b0| 2d 66 69 6c 65 73 20 64 | 69 61 72 79 2d 64 69 73 |-files d|iary-dis|
|000018c0| 70 6c 61 79 2d 68 6f 6f | 6b 20 6c 69 73 74 2d 64 |play-hoo|k list-d|
|000018d0| 69 61 72 79 2d 65 6e 74 | 72 69 65 73 2d 68 6f 6f |iary-ent|ries-hoo|
|000018e0| 6b 20 64 69 61 72 79 2d | 6c 69 73 74 2d 69 6e 63 |k diary-|list-inc|
|000018f0| 6c 75 64 65 2d 62 6c 61 | 6e 6b 73 20 64 69 61 72 |lude-bla|nks diar|
|00001900| 79 2d 66 69 6c 65 20 66 | 69 6c 65 2d 65 78 69 73 |y-file f|ile-exis|
|00001910| 74 73 2d 70 20 66 69 6c | 65 2d 72 65 61 64 61 62 |ts-p fil|e-readab|
|00001920| 6c 65 2d 70 20 28 28 62 | 79 74 65 2d 63 6f 64 65 |le-p ((b|yte-code|
|00001930| 20 22 c0 c1 5c 6e 21 21 | 87 22 20 5b 6b 69 6c 6c | "..\n!!|." [kill|
|00001940| 2d 62 75 66 66 65 72 20 | 67 65 74 2d 66 69 6c 65 |-buffer |get-file|
|00001950| 2d 62 75 66 66 65 72 20 | 64 69 61 72 79 2d 66 69 |-buffer |diary-fi|
|00001960| 6c 65 5d 20 33 29 29 20 | 61 70 70 65 6e 64 20 64 |le] 3)) |append d|
|00001970| 69 61 72 79 2d 65 6e 74 | 72 69 65 73 2d 6c 69 73 |iary-ent|ries-lis|
|00001980| 74 20 6c 69 73 74 2d 64 | 69 61 72 79 2d 65 6e 74 |t list-d|iary-ent|
|00001990| 72 69 65 73 20 6f 72 69 | 67 69 6e 61 6c 2d 64 61 |ries ori|ginal-da|
|000019a0| 74 65 20 6e 75 6d 62 65 | 72 20 62 65 65 70 20 6d |te numbe|r beep m|
|000019b0| 65 73 73 61 67 65 20 22 | 43 61 6e 27 74 20 72 65 |essage "|Can't re|
|000019c0| 61 64 20 69 6e 63 6c 75 | 64 65 64 20 64 69 61 72 |ad inclu|ded diar|
|000019d0| 79 20 66 69 6c 65 20 25 | 73 22 20 73 6c 65 65 70 |y file %|s" sleep|
|000019e0| 2d 66 6f 72 20 22 43 61 | 6e 27 74 20 66 69 6e 64 |-for "Ca|n't find|
|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 | 5d 20 35 20 22 5c 0a 49 |file %s"|] 5 "\.I|
|00001a10| 6e 63 6c 75 64 65 20 74 | 68 65 20 64 69 61 72 79 |nclude t|he diary|
|00001a20| 20 65 6e 74 72 69 65 73 | 20 66 72 6f 6d 20 6f 74 | entries| from ot|
|00001a30| 68 65 72 20 64 69 61 72 | 79 20 66 69 6c 65 73 20 |her diar|y files |
|00001a40| 77 69 74 68 20 74 68 6f | 73 65 20 6f 66 20 64 69 |with tho|se of di|
|00001a50| 61 72 79 2d 66 69 6c 65 | 2e 0a 54 68 69 73 20 66 |ary-file|..This f|
|00001a60| 75 6e 63 74 69 6f 6e 20 | 69 73 20 73 75 69 74 61 |unction |is suita|
|00001a70| 62 6c 65 20 66 6f 72 20 | 75 73 65 20 6a 75 73 74 |ble for |use just|
|00001a80| 20 62 65 66 6f 72 65 20 | 66 61 6e 63 79 2d 64 69 | before |fancy-di|
|00001a90| 61 72 79 2d 64 69 73 70 | 6c 61 79 20 61 73 20 74 |ary-disp|lay as t|
|00001aa0| 68 65 0a 6c 69 73 74 2d | 64 69 61 72 79 2d 65 6e |he.list-|diary-en|
|00001ab0| 74 72 69 65 73 2d 68 6f | 6f 6b 3b 20 69 74 20 65 |tries-ho|ok; it e|
|00001ac0| 6e 61 62 6c 65 73 20 79 | 6f 75 20 74 6f 20 75 73 |nables y|ou to us|
|00001ad0| 65 20 73 68 61 72 65 64 | 20 64 69 61 72 79 20 66 |e shared| diary f|
|00001ae0| 69 6c 65 73 20 74 6f 67 | 65 74 68 65 72 0a 77 69 |iles tog|ether.wi|
|00001af0| 74 68 20 79 6f 75 72 20 | 6f 77 6e 2e 20 20 54 68 |th your |own.  Th|
|00001b00| 65 20 66 69 6c 65 73 20 | 69 6e 63 6c 75 64 65 64 |e files |included|
|00001b10| 20 61 72 65 20 73 70 65 | 63 69 66 69 65 64 20 69 | are spe|cified i|
|00001b20| 6e 20 74 68 65 20 64 69 | 61 72 79 2d 66 69 6c 65 |n the di|ary-file|
|00001b30| 20 62 79 20 6c 69 6e 65 | 73 20 6f 66 0a 74 68 65 | by line|s of.the|
|00001b40| 20 66 6f 72 6d 0a 20 20 | 20 20 20 20 20 20 23 69 | form.  |      #i|
|00001b50| 6e 63 6c 75 64 65 20 5c | 22 66 69 6c 65 6e 61 6d |nclude \|"filenam|
|00001b60| 65 5c 22 0a 54 68 69 73 | 20 69 73 20 72 65 63 75 |e\".This| is recu|
|00001b70| 72 73 69 76 65 3b 20 74 | 68 61 74 20 69 73 2c 20 |rsive; t|hat is, |
|00001b80| 23 69 6e 63 6c 75 64 65 | 20 64 69 72 65 63 74 69 |#include| directi|
|00001b90| 76 65 73 20 69 6e 20 64 | 69 61 72 79 20 66 69 6c |ves in d|iary fil|
|00001ba0| 65 73 20 74 68 75 73 20 | 69 6e 63 6c 75 64 65 64 |es thus |included|
|00001bb0| 0a 61 72 65 20 6f 62 65 | 79 65 64 2e 20 20 59 6f |.are obe|yed.  Yo|
|00001bc0| 75 20 63 61 6e 20 63 68 | 61 6e 67 65 20 74 68 65 |u can ch|ange the|
|00001bd0| 20 5c 22 23 69 6e 63 6c | 75 64 65 5c 22 20 74 6f | \"#incl|ude\" to|
|00001be0| 20 73 6f 6d 65 20 6f 74 | 68 65 72 20 73 74 72 69 | some ot|her stri|
|00001bf0| 6e 67 20 62 79 0a 63 68 | 61 6e 67 69 6e 67 20 74 |ng by.ch|anging t|
|00001c00| 68 65 20 76 61 72 69 61 | 62 6c 65 20 60 64 69 61 |he varia|ble `dia|
|00001c10| 72 79 2d 69 6e 63 6c 75 | 64 65 2d 73 74 72 69 6e |ry-inclu|de-strin|
|00001c20| 67 27 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 73 69 |g'."]).(|fset 'si|
|00001c30| 6d 70 6c 65 2d 64 69 61 | 72 79 2d 64 69 73 70 6c |mple-dia|ry-displ|
|00001c40| 61 79 20 23 5b 6e 69 6c | 20 22 08 ad 83 c1 5c 6e |ay #[nil| "....\n|
|00001c50| 21 1b c4 c5 0e 06 0b ab | 83 c7 aa 81 c8 50 c9 ca |!.......|.....P..|
|00001c60| 0b cb 23 23 1e 0c 0e 0d | ab 8e 0e 0d 41 ac c5 0e |..##....|....A...|
|00001c70| 0d 40 41 40 c8 98 ab bc | 0e 0c 47 ce 20 58 ab 86 |.@A@....|..G. X..|
|00001c80| cf 0e 0c 21 aa cb d0 0e | 11 21 71 88 d2 16 13 d4 |...!....|.!q.....|
|00001c90| 0e 06 21 88 d5 20 88 c9 | ca 0b d6 23 63 88 65 62 |..!.. ..|...#c.eb|
|00001ca0| 88 d7 d2 21 88 d8 16 13 | d9 0e 11 21 88 cf da 0e |...!....|...!....|
|00001cb0| 06 5c 22 aa 9d d4 db 0e | 06 0b ab 83 dc aa 81 c8 |.\".....|........|
|00001cc0| c9 ca 0b cb 23 52 21 88 | d9 dd 0e 1e 21 21 88 cf |....#R!.|....!!..|
|00001cd0| df 21 2a 87 22 20 5b 68 | 6f 6c 69 64 61 79 73 2d |.!*." [h|olidays-|
|00001ce0| 69 6e 2d 64 69 61 72 79 | 2d 62 75 66 66 65 72 20 |in-diary|-buffer |
|00001cf0| 63 68 65 63 6b 2d 63 61 | 6c 65 6e 64 61 72 2d 68 |check-ca|lendar-h|
|00001d00| 6f 6c 69 64 61 79 73 20 | 6f 72 69 67 69 6e 61 6c |olidays |original|
|00001d10| 2d 64 61 74 65 20 68 6f | 6c 69 64 61 79 2d 6c 69 |-date ho|liday-li|
|00001d20| 73 74 20 66 6f 72 6d 61 | 74 20 22 4e 6f 20 64 69 |st forma|t "No di|
|00001d30| 61 72 79 20 65 6e 74 72 | 69 65 73 20 66 6f 72 20 |ary entr|ies for |
|00001d40| 25 73 20 25 73 22 20 64 | 61 74 65 2d 73 74 72 69 |%s %s" d|ate-stri|
|00001d50| 6e 67 20 22 3a 22 20 22 | 22 20 6d 61 70 63 6f 6e |ng ":" "|" mapcon|
|00001d60| 63 61 74 20 69 64 65 6e | 74 69 74 79 20 22 3b 20 |cat iden|tity "; |
|00001d70| 22 20 6d 73 67 20 64 69 | 61 72 79 2d 65 6e 74 72 |" msg di|ary-entr|
|00001d80| 69 65 73 2d 6c 69 73 74 | 20 73 63 72 65 65 6e 2d |ies-list| screen-|
|00001d90| 77 69 64 74 68 20 6d 65 | 73 73 61 67 65 20 67 65 |width me|ssage ge|
|00001da0| 74 2d 62 75 66 66 65 72 | 2d 63 72 65 61 74 65 20 |t-buffer|-create |
|00001db0| 68 6f 6c 69 64 61 79 2d | 62 75 66 66 65 72 20 6e |holiday-|buffer n|
|00001dc0| 69 6c 20 62 75 66 66 65 | 72 2d 72 65 61 64 2d 6f |il buffe|r-read-o|
|00001dd0| 6e 6c 79 20 63 61 6c 65 | 6e 64 61 72 2d 73 65 74 |nly cale|ndar-set|
|00001de0| 2d 6d 6f 64 65 2d 6c 69 | 6e 65 20 65 72 61 73 65 |-mode-li|ne erase|
|00001df0| 2d 62 75 66 66 65 72 20 | 22 5c 6e 22 20 73 65 74 |-buffer |"\n" set|
|00001e00| 2d 62 75 66 66 65 72 2d | 6d 6f 64 69 66 69 65 64 |-buffer-|modified|
|00001e10| 2d 70 20 74 20 64 69 73 | 70 6c 61 79 2d 62 75 66 |-p t dis|play-buf|
|00001e20| 66 65 72 20 22 4e 6f 20 | 64 69 61 72 79 20 65 6e |fer "No |diary en|
|00001e30| 74 72 69 65 73 20 66 6f | 72 20 25 73 22 20 22 44 |tries fo|r %s" "D|
|00001e40| 69 61 72 79 20 66 6f 72 | 20 22 20 22 3a 20 22 20 |iary for| " ": " |
|00001e50| 67 65 74 2d 66 69 6c 65 | 2d 62 75 66 66 65 72 20 |get-file|-buffer |
|00001e60| 64 2d 66 69 6c 65 20 22 | 50 72 65 70 61 72 69 6e |d-file "|Preparin|
|00001e70| 67 20 64 69 61 72 79 2e | 2e 2e 64 6f 6e 65 22 5d |g diary.|..done"]|
|00001e80| 20 38 20 22 5c 0a 44 69 | 73 70 6c 61 79 20 74 68 | 8 "\.Di|splay th|
|00001e90| 65 20 64 69 61 72 79 20 | 62 75 66 66 65 72 20 69 |e diary |buffer i|
|00001ea0| 66 20 74 68 65 72 65 20 | 61 72 65 20 61 6e 79 20 |f there |are any |
|00001eb0| 72 65 6c 65 76 61 6e 74 | 20 65 6e 74 72 69 65 73 |relevant| entries|
|00001ec0| 20 6f 72 20 68 6f 6c 69 | 64 61 79 73 2e 22 5d 29 | or holi|days."])|
|00001ed0| 0a 28 66 73 65 74 20 27 | 66 61 6e 63 79 2d 64 69 |.(fset '|fancy-di|
|00001ee0| 61 72 79 2d 64 69 73 70 | 6c 61 79 20 23 5b 6e 69 |ary-disp|lay #[ni|
|00001ef0| 6c 20 22 08 ab 8c 08 41 | ac de 08 40 41 40 c1 98 |l "....A|...@A@..|
|00001f00| ab d6 5c 6e ad 83 c3 0c | 21 1d c6 c7 0e 08 0d ab |..\n....|!.......|
|00001f10| 83 c9 aa 81 c1 50 ca cb | 0d cc 23 23 89 1e 0d 47 |.....P..|..##...G|
|00001f20| ce 20 58 ab 86 cf 0e 0d | 21 aa ac d0 0e 11 21 71 |. X.....|!.....!q|
|00001f30| 88 d2 16 13 d4 0e 08 21 | 88 d5 20 88 ca cb 0d d6 |.......!|.. .....|
|00001f40| 23 63 88 65 62 88 d7 d2 | 21 88 d8 16 13 d9 0e 11 |#c.eb...|!.......|
|00001f50| 21 88 cf da 0e 08 5c 22 | 2a 87 8a db dc 0e 1d 21 |!.....\"|*......!|
|00001f60| 21 71 88 de 20 1e 1f e0 | 65 64 e1 e2 d8 25 88 d2 |!q.. ...|ed...%..|
|00001f70| 16 23 e4 e5 21 88 d7 0e | 1f 21 88 2a 8a d0 0e 26 |.#..!...|.!.*...&|
|00001f80| 21 71 88 d2 16 13 e7 e5 | 21 88 d4 e8 21 88 d5 20 |!q......|!...!.. |
|00001f90| 88 08 d2 e9 89 ea 89 89 | 45 1e 2b 1e 2c 1e 2d 1d |........|E.+.,.-.|
|00001fa0| 89 1e 2e 83 da 01 ef 0e | 2b 0e 2e 40 40 5c 22 84 |........|+..@@\".|
|00001fb0| be 01 0e 2e 40 40 16 2b | 5c 6e 83 4d 01 f0 0e 2d |....@@.+|\n.M...-|
|00001fc0| 0e 2c f1 a6 ea 55 ab 88 | 0e 2c f2 a6 ea 55 ab 88 |.,...U..|.,...U..|
|00001fd0| 0e 2c f3 a6 ea 55 ab 89 | 0e 2d f4 55 ab 83 f5 aa |.,...U..|.-.U....|
|00001fe0| 85 f6 0e 2d 53 48 0e 2c | 45 43 0e 2b 43 5c 22 ab |...-SH.,|EC.+C\".|
|00001ff0| d4 0e 2b 40 89 16 2d ab | cc 0e 2b 41 41 40 89 16 |..+@..-.|..+AA@..|
|00002000| 2c ab c2 0e 2c f7 5f 0e | 2d f8 e9 5c 5c 5c 5c 5c |,...,._.|-..\\\\\|
|00002010| 5c 89 1e 39 f7 a6 54 16 | 2d 0e 39 f7 a5 89 16 2c |\..9..T.|-.9....,|
|00002020| 29 ab a5 0e 2d 0e 2c 1e | 3a 1e 3b fc 20 2a 89 15 |)...-.,.|:.;. *..|
|00002030| ab 96 0e 2c f7 5f 0e 2d | 5c 5c 89 1e 39 f7 a6 54 |...,._.-|\\..9..T|
|00002040| 16 2d 0e 39 f7 a5 16 2c | 29 fd 0e 2b 21 1e 08 0d |.-.9...,|)..+!...|
|00002050| d2 1e 3e 89 1e 3f ab 9e | ef 0e 2b 0e 3f 40 40 5c |..>..?..|..+.?@@\|
|00002060| 22 ab 8c 81 40 00 0e 3e | 0e 3f 40 41 5c 22 16 3e |"...@..>|.?@A\".>|
|00002070| 0e 3f 41 89 16 3f ac 62 | 0e 3e 2a 1e 41 60 65 55 |.?A..?.b|.>*.A`eU|
|00002080| ab 83 c1 aa 81 e2 0e 08 | b1 02 88 0e 41 ab 85 81 |........|....A...|
|00002090| 42 00 63 88 69 1e 43 ca | cb 0e 41 d6 81 44 00 0e |B.c.i.C.|..A..D..|
|000020a0| 43 81 45 00 5c 22 50 23 | 63 88 29 69 1e 43 e2 81 |C.E.\"P#|c.)i.C..|
|000020b0| 44 00 0e 43 81 46 00 5c | 22 e2 b1 03 88 2b ea 0e |D..C.F.\|"....+..|
|000020c0| 2e 40 41 40 47 57 ab 89 | 0e 2e 40 41 40 e2 b1 02 |.@A@GW..|..@A@...|
|000020d0| 88 0e 2e 41 89 16 2e 84 | b1 00 2d d7 d2 21 88 65 |...A....|..-..!.e|
|000020e0| 62 88 d8 16 13 d9 0e 26 | 21 88 cf 81 47 00 21 29 |b......&|!...G.!)|
|000020f0| 87 22 20 5b 64 69 61 72 | 79 2d 65 6e 74 72 69 65 |." [diar|y-entrie|
|00002100| 73 2d 6c 69 73 74 20 22 | 22 20 68 6f 6c 69 64 61 |s-list "|" holida|
|00002110| 79 73 2d 69 6e 2d 64 69 | 61 72 79 2d 62 75 66 66 |ys-in-di|ary-buff|
|00002120| 65 72 20 63 68 65 63 6b | 2d 63 61 6c 65 6e 64 61 |er check|-calenda|
|00002130| 72 2d 68 6f 6c 69 64 61 | 79 73 20 6f 72 69 67 69 |r-holida|ys origi|
|00002140| 6e 61 6c 2d 64 61 74 65 | 20 68 6f 6c 69 64 61 79 |nal-date| holiday|
|00002150| 2d 6c 69 73 74 20 66 6f | 72 6d 61 74 20 22 4e 6f |-list fo|rmat "No|
|00002160| 20 64 69 61 72 79 20 65 | 6e 74 72 69 65 73 20 66 | diary e|ntries f|
|00002170| 6f 72 20 25 73 20 25 73 | 22 20 64 61 74 65 2d 73 |or %s %s|" date-s|
|00002180| 74 72 69 6e 67 20 22 3a | 22 20 6d 61 70 63 6f 6e |tring ":|" mapcon|
|00002190| 63 61 74 20 69 64 65 6e | 74 69 74 79 20 22 3b 20 |cat iden|tity "; |
|000021a0| 22 20 6d 73 67 20 73 63 | 72 65 65 6e 2d 77 69 64 |" msg sc|reen-wid|
|000021b0| 74 68 20 6d 65 73 73 61 | 67 65 20 67 65 74 2d 62 |th messa|ge get-b|
|000021c0| 75 66 66 65 72 2d 63 72 | 65 61 74 65 20 68 6f 6c |uffer-cr|eate hol|
|000021d0| 69 64 61 79 2d 62 75 66 | 66 65 72 20 6e 69 6c 20 |iday-buf|fer nil |
|000021e0| 62 75 66 66 65 72 2d 72 | 65 61 64 2d 6f 6e 6c 79 |buffer-r|ead-only|
|000021f0| 20 63 61 6c 65 6e 64 61 | 72 2d 73 65 74 2d 6d 6f | calenda|r-set-mo|
|00002200| 64 65 2d 6c 69 6e 65 20 | 65 72 61 73 65 2d 62 75 |de-line |erase-bu|
|00002210| 66 66 65 72 20 22 5c 6e | 22 20 73 65 74 2d 62 75 |ffer "\n|" set-bu|
|00002220| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 20 |ffer-mod|ified-p |
|00002230| 74 20 64 69 73 70 6c 61 | 79 2d 62 75 66 66 65 72 |t displa|y-buffer|
|00002240| 20 22 4e 6f 20 64 69 61 | 72 79 20 65 6e 74 72 69 | "No dia|ry entri|
|00002250| 65 73 20 66 6f 72 20 25 | 73 22 20 67 65 74 2d 66 |es for %|s" get-f|
|00002260| 69 6c 65 2d 62 75 66 66 | 65 72 20 73 75 62 73 74 |ile-buff|er subst|
|00002270| 69 74 75 74 65 2d 69 6e | 2d 66 69 6c 65 2d 6e 61 |itute-in|-file-na|
|00002280| 6d 65 20 64 69 61 72 79 | 2d 66 69 6c 65 20 62 75 |me diary|-file bu|
|00002290| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 20 |ffer-mod|ified-p |
|000022a0| 64 69 61 72 79 2d 6d 6f | 64 69 66 69 65 64 20 73 |diary-mo|dified s|
|000022b0| 75 62 73 74 2d 63 68 61 | 72 2d 69 6e 2d 72 65 67 |ubst-cha|r-in-reg|
|000022c0| 69 6f 6e 20 31 33 20 31 | 30 20 73 65 6c 65 63 74 |ion 13 1|0 select|
|000022d0| 69 76 65 2d 64 69 73 70 | 6c 61 79 20 6b 69 6c 6c |ive-disp|lay kill|
|000022e0| 2d 6c 6f 63 61 6c 2d 76 | 61 72 69 61 62 6c 65 20 |-local-v|ariable |
|000022f0| 6d 6f 64 65 2d 6c 69 6e | 65 2d 66 6f 72 6d 61 74 |mode-lin|e-format|
|00002300| 20 66 61 6e 63 79 2d 64 | 69 61 72 79 2d 62 75 66 | fancy-d|iary-buf|
|00002310| 66 65 72 20 6d 61 6b 65 | 2d 6c 6f 63 61 6c 2d 76 |fer make|-local-v|
|00002320| 61 72 69 61 62 6c 65 20 | 22 44 69 61 72 79 20 45 |ariable |"Diary E|
|00002330| 6e 74 72 69 65 73 22 20 | 31 20 30 20 64 61 74 65 |ntries" |1 0 date|
|00002340| 20 68 6f 6c 69 64 61 79 | 2d 6c 69 73 74 2d 6c 61 | holiday|-list-la|
|00002350| 73 74 2d 79 65 61 72 20 | 68 6f 6c 69 64 61 79 2d |st-year |holiday-|
|00002360| 6c 69 73 74 2d 6c 61 73 | 74 2d 6d 6f 6e 74 68 20 |list-las|t-month |
|00002370| 65 6e 74 72 79 2d 6c 69 | 73 74 20 63 61 6c 65 6e |entry-li|st calen|
|00002380| 64 61 72 2d 64 61 74 65 | 2d 65 71 75 61 6c 20 63 |dar-date|-equal c|
|00002390| 61 6c 65 6e 64 61 72 2d | 64 61 74 65 2d 63 6f 6d |alendar-|date-com|
|000023a0| 70 61 72 65 20 34 20 31 | 30 30 20 34 30 30 20 32 |pare 4 1|00 400 2|
|000023b0| 20 32 39 20 5b 33 31 20 | 32 38 20 33 31 20 33 30 | 29 [31 |28 31 30|
|000023c0| 20 33 31 20 33 30 20 33 | 31 20 33 31 20 33 30 20 | 31 30 3|1 31 30 |
|000023d0| 33 31 20 33 30 20 33 31 | 5d 20 31 32 20 2d 31 20 |31 30 31|] 12 -1 |
|000023e0| 6d 61 63 72 6f 2d 79 20 | 64 69 73 70 6c 61 79 65 |macro-y |displaye|
|000023f0| 64 2d 79 65 61 72 20 64 | 69 73 70 6c 61 79 65 64 |d-year d|isplayed|
|00002400| 2d 6d 6f 6e 74 68 20 63 | 61 6c 65 6e 64 61 72 2d |-month c|alendar-|
|00002410| 68 6f 6c 69 64 61 79 2d | 6c 69 73 74 20 63 61 6c |holiday-|list cal|
|00002420| 65 6e 64 61 72 2d 64 61 | 74 65 2d 73 74 72 69 6e |endar-da|te-strin|
|00002430| 67 20 64 20 68 20 61 70 | 70 65 6e 64 20 64 61 74 |g d h ap|pend dat|
|00002440| 65 2d 68 6f 6c 69 64 61 | 79 2d 6c 69 73 74 20 22 |e-holida|y-list "|
|00002450| 3a 20 20 22 20 6c 20 6d | 61 6b 65 2d 73 74 72 69 |:  " l m|ake-stri|
|00002460| 6e 67 20 33 32 20 36 31 | 20 22 50 72 65 70 61 72 |ng 32 61| "Prepar|
|00002470| 69 6e 67 20 64 69 61 72 | 79 2e 2e 2e 64 6f 6e 65 |ing diar|y...done|
|00002480| 22 5d 20 38 20 22 5c 0a | 50 72 65 70 61 72 65 20 |"] 8 "\.|Prepare |
|00002490| 61 20 64 69 61 72 79 20 | 62 75 66 66 65 72 20 77 |a diary |buffer w|
|000024a0| 69 74 68 20 72 65 6c 65 | 76 61 6e 74 20 65 6e 74 |ith rele|vant ent|
|000024b0| 72 69 65 73 20 69 6e 20 | 61 20 66 61 6e 63 79 2c |ries in |a fancy,|
|000024c0| 20 6e 6f 6e 65 64 69 74 | 61 62 6c 65 20 66 6f 72 | nonedit|able for|
|000024d0| 6d 2e 0a 54 68 69 73 20 | 66 75 6e 63 74 69 6f 6e |m..This |function|
|000024e0| 20 69 73 20 70 72 6f 76 | 69 64 65 64 20 66 6f 72 | is prov|ided for|
|000024f0| 20 6f 70 74 69 6f 6e 61 | 6c 20 75 73 65 20 61 73 | optiona|l use as|
|00002500| 20 74 68 65 20 60 6c 69 | 73 74 2d 64 69 61 72 79 | the `li|st-diary|
|00002510| 2d 65 6e 74 72 69 65 73 | 2d 68 6f 6f 6b 27 2e 22 |-entries|-hook'."|
|00002520| 5d 29 0a 28 66 73 65 74 | 20 27 70 72 69 6e 74 2d |]).(fset| 'print-|
|00002530| 64 69 61 72 79 2d 65 6e | 74 72 69 65 73 20 23 5b |diary-en|tries #[|
|00002540| 6e 69 6c 20 22 c0 c1 5c | 6e 21 21 ab 8b 8a c1 5c |nil "..\|n!!....\|
|00002550| 6e 21 71 88 c3 c4 21 29 | 87 c5 c6 0e 07 21 21 89 |n!q...!)|.....!!.|
|00002560| 1e 08 ab d7 c9 ca 21 cb | 1e 0c 1e 0d 8a 0e 08 71 |......!.|.......q|
|00002570| 88 0e 0e 3b ac 83 cf aa | 8d d0 d1 0e 0e 5c 22 88 |...;....|.....\".|
|00002580| 0e 0e d2 94 d2 95 4f 16 | 0c d3 0e 0d 65 64 23 88 |......O.|....ed#.|
|00002590| 0e 0d 71 88 d4 d5 cb d6 | 23 ab 86 d7 d8 21 88 aa |..q.....|#....!..|
|000025a0| 73 65 62 88 0e 0c d9 da | 0e 0c 47 db 5c 22 d9 b1 |seb.....|..G.\"..|
|000025b0| 04 88 c3 c4 21 88 dc 0e | 0d 21 2b aa 83 dd de 21 |....!...|.!+....!|
|000025c0| 29 87 22 20 5b 62 75 66 | 66 65 72 70 20 67 65 74 |)." [buf|ferp get|
|000025d0| 2d 62 75 66 66 65 72 20 | 66 61 6e 63 79 2d 64 69 |-buffer |fancy-di|
|000025e0| 61 72 79 2d 62 75 66 66 | 65 72 20 72 75 6e 2d 68 |ary-buff|er run-h|
|000025f0| 6f 6f 6b 73 20 70 72 69 | 6e 74 2d 64 69 61 72 79 |ooks pri|nt-diary|
|00002600| 2d 65 6e 74 72 69 65 73 | 2d 68 6f 6f 6b 20 67 65 |-entries|-hook ge|
|00002610| 74 2d 66 69 6c 65 2d 62 | 75 66 66 65 72 20 73 75 |t-file-b|uffer su|
|00002620| 62 73 74 69 74 75 74 65 | 2d 69 6e 2d 66 69 6c 65 |bstitute|-in-file|
|00002630| 2d 6e 61 6d 65 20 64 69 | 61 72 79 2d 66 69 6c 65 |-name di|ary-file|
|00002640| 20 64 69 61 72 79 2d 62 | 75 66 66 65 72 20 67 65 | diary-b|uffer ge|
|00002650| 74 2d 62 75 66 66 65 72 | 2d 63 72 65 61 74 65 20 |t-buffer|-create |
|00002660| 22 2a 50 72 69 6e 74 61 | 62 6c 65 20 44 69 61 72 |"*Printa|ble Diar|
|00002670| 79 20 45 6e 74 72 69 65 | 73 2a 22 20 6e 69 6c 20 |y Entrie|s*" nil |
|00002680| 68 65 61 64 69 6e 67 20 | 74 65 6d 70 2d 62 75 66 |heading |temp-buf|
|00002690| 66 65 72 20 6d 6f 64 65 | 2d 6c 69 6e 65 2d 66 6f |fer mode|-line-fo|
|000026a0| 72 6d 61 74 20 22 41 6c | 6c 20 44 69 61 72 79 20 |rmat "Al|l Diary |
|000026b0| 45 6e 74 72 69 65 73 22 | 20 73 74 72 69 6e 67 2d |Entries"| string-|
|000026c0| 6d 61 74 63 68 20 22 5e | 2d 2a 5c 5c 28 5b 5e 2d |match "^|-*\\([^-|
|000026d0| 5d 2e 2a 5b 5e 2d 5d 5c | 5c 29 2d 2a 24 22 20 31 |].*[^-]\|\)-*$" 1|
|000026e0| 20 63 6f 70 79 2d 74 6f | 2d 62 75 66 66 65 72 20 | copy-to|-buffer |
|000026f0| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00002700| 64 20 22 0d 2e 2a 24 22 | 20 74 20 72 65 70 6c 61 |d "..*$"| t repla|
|00002710| 63 65 2d 6d 61 74 63 68 | 20 22 22 20 22 5c 6e 22 |ce-match| "" "\n"|
|00002720| 20 6d 61 6b 65 2d 73 74 | 72 69 6e 67 20 36 31 20 | make-st|ring 61 |
|00002730| 6b 69 6c 6c 2d 62 75 66 | 66 65 72 20 65 72 72 6f |kill-buf|fer erro|
|00002740| 72 20 22 59 6f 75 20 64 | 6f 6e 27 74 20 68 61 76 |r "You d|on't hav|
|00002750| 65 20 61 20 64 69 61 72 | 79 20 62 75 66 66 65 72 |e a diar|y buffer|
|00002760| 21 22 5d 20 36 20 22 5c | 0a 50 72 69 6e 74 20 61 |!"] 6 "\|.Print a|
|00002770| 20 68 61 72 64 20 63 6f | 70 79 20 6f 66 20 74 68 | hard co|py of th|
|00002780| 65 20 64 69 61 72 79 20 | 64 69 73 70 6c 61 79 2e |e diary |display.|
|00002790| 0a 0a 49 66 20 74 68 65 | 20 73 69 6d 70 6c 65 20 |..If the| simple |
|000027a0| 64 69 61 72 79 20 64 69 | 73 70 6c 61 79 20 69 73 |diary di|splay is|
|000027b0| 20 62 65 69 6e 67 20 75 | 73 65 64 2c 20 70 72 65 | being u|sed, pre|
|000027c0| 70 61 72 65 20 61 20 74 | 65 6d 70 20 62 75 66 66 |pare a t|emp buff|
|000027d0| 65 72 20 77 69 74 68 20 | 74 68 65 0a 76 69 73 69 |er with |the.visi|
|000027e0| 62 6c 65 20 6c 69 6e 65 | 73 20 6f 66 20 74 68 65 |ble line|s of the|
|000027f0| 20 64 69 61 72 79 20 62 | 75 66 66 65 72 2c 20 61 | diary b|uffer, a|
|00002800| 64 64 20 61 20 68 65 61 | 64 69 6e 67 20 6c 69 6e |dd a hea|ding lin|
|00002810| 65 20 63 6f 6d 70 6f 73 | 65 64 20 66 72 6f 6d 20 |e compos|ed from |
|00002820| 74 68 65 20 6d 6f 64 65 | 0a 6c 69 6e 65 2c 20 70 |the mode|.line, p|
|00002830| 72 69 6e 74 20 74 68 65 | 20 74 65 6d 70 20 62 75 |rint the| temp bu|
|00002840| 66 66 65 72 2c 20 61 6e | 64 20 64 65 73 74 72 6f |ffer, an|d destro|
|00002850| 79 20 69 74 2e 0a 0a 49 | 66 20 74 68 65 20 66 61 |y it...I|f the fa|
|00002860| 6e 63 79 20 64 69 61 72 | 79 20 64 69 73 70 6c 61 |ncy diar|y displa|
|00002870| 79 20 69 73 20 62 65 69 | 6e 67 20 75 73 65 64 2c |y is bei|ng used,|
|00002880| 20 6a 75 73 74 20 70 72 | 69 6e 74 20 74 68 65 20 | just pr|int the |
|00002890| 62 75 66 66 65 72 2e 0a | 0a 54 68 65 20 68 6f 6f |buffer..|.The hoo|
|000028a0| 6b 73 20 67 69 76 65 6e | 20 62 79 20 74 68 65 20 |ks given| by the |
|000028b0| 76 61 72 69 61 62 6c 65 | 20 60 70 72 69 6e 74 2d |variable| `print-|
|000028c0| 64 69 61 72 79 2d 65 6e | 74 72 69 65 73 2d 68 6f |diary-en|tries-ho|
|000028d0| 6f 6b 27 20 61 72 65 20 | 63 61 6c 6c 65 64 20 74 |ok' are |called t|
|000028e0| 6f 20 64 6f 0a 74 68 65 | 20 61 63 74 75 61 6c 20 |o do.the| actual |
|000028f0| 70 72 69 6e 74 69 6e 67 | 2e 22 20 6e 69 6c 5d 29 |printing|." nil])|
|00002900| 0a 28 66 73 65 74 20 27 | 73 68 6f 77 2d 61 6c 6c |.(fset '|show-all|
|00002910| 2d 64 69 61 72 79 2d 65 | 6e 74 72 69 65 73 20 23 |-diary-e|ntries #|
|00002920| 5b 6e 69 6c 20 22 c0 09 | 21 89 1a ab c7 c3 5c 6e |[nil "..|!.....\n|
|00002930| 21 ab c2 c4 5c 6e 21 ab | b8 8a c5 5c 6e 21 89 1e |!...\n!.|...\n!..|
|00002940| 06 ab 84 0e 06 aa 84 c7 | 5c 6e c8 5c 22 71 88 c9 |........|\n.\"q..|
|00002950| ca 20 1e 0b 1e 0c cd 65 | 64 ce cf c8 25 88 c9 16 |. .....e|d...%...|
|00002960| 10 d1 d2 21 88 0e 13 16 | 12 d4 70 21 88 d5 0e 0b |...!....|..p!....|
|00002970| 21 2c aa 88 d6 d7 21 aa | 83 d6 d8 21 29 87 22 20 |!,....!.|...!)." |
|00002980| 5b 73 75 62 73 74 69 74 | 75 74 65 2d 69 6e 2d 66 |[substit|ute-in-f|
|00002990| 69 6c 65 2d 6e 61 6d 65 | 20 64 69 61 72 79 2d 66 |ile-name| diary-f|
|000029a0| 69 6c 65 20 64 2d 66 69 | 6c 65 20 66 69 6c 65 2d |ile d-fi|le file-|
|000029b0| 65 78 69 73 74 73 2d 70 | 20 66 69 6c 65 2d 72 65 |exists-p| file-re|
|000029c0| 61 64 61 62 6c 65 2d 70 | 20 67 65 74 2d 66 69 6c |adable-p| get-fil|
|000029d0| 65 2d 62 75 66 66 65 72 | 20 64 69 61 72 79 2d 62 |e-buffer| diary-b|
|000029e0| 75 66 66 65 72 20 66 69 | 6e 64 2d 66 69 6c 65 2d |uffer fi|nd-file-|
|000029f0| 6e 6f 73 65 6c 65 63 74 | 20 74 20 6e 69 6c 20 62 |noselect| t nil b|
|00002a00| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|00002a10| 20 64 69 61 72 79 2d 6d | 6f 64 69 66 69 65 64 20 | diary-m|odified |
|00002a20| 62 75 66 66 65 72 2d 72 | 65 61 64 2d 6f 6e 6c 79 |buffer-r|ead-only|
|00002a30| 20 73 75 62 73 74 2d 63 | 68 61 72 2d 69 6e 2d 72 | subst-c|har-in-r|
|00002a40| 65 67 69 6f 6e 20 31 33 | 20 31 30 20 73 65 6c 65 |egion 13| 10 sele|
|00002a50| 63 74 69 76 65 2d 64 69 | 73 70 6c 61 79 20 6d 61 |ctive-di|splay ma|
|00002a60| 6b 65 2d 6c 6f 63 61 6c | 2d 76 61 72 69 61 62 6c |ke-local|-variabl|
|00002a70| 65 20 6d 6f 64 65 2d 6c | 69 6e 65 2d 66 6f 72 6d |e mode-l|ine-form|
|00002a80| 61 74 20 64 65 66 61 75 | 6c 74 2d 6d 6f 64 65 2d |at defau|lt-mode-|
|00002a90| 6c 69 6e 65 2d 66 6f 72 | 6d 61 74 20 64 69 73 70 |line-for|mat disp|
|00002aa0| 6c 61 79 2d 62 75 66 66 | 65 72 20 73 65 74 2d 62 |lay-buff|er set-b|
|00002ab0| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|00002ac0| 20 65 72 72 6f 72 20 22 | 59 6f 75 72 20 64 69 61 | error "|Your dia|
|00002ad0| 72 79 20 66 69 6c 65 20 | 69 73 20 6e 6f 74 20 72 |ry file |is not r|
|00002ae0| 65 61 64 61 62 6c 65 21 | 22 20 22 59 6f 75 20 64 |eadable!|" "You d|
|00002af0| 6f 6e 27 74 20 68 61 76 | 65 20 61 20 64 69 61 72 |on't hav|e a diar|
|00002b00| 79 20 66 69 6c 65 21 22 | 5d 20 37 20 22 5c 0a 53 |y file!"|] 7 "\.S|
|00002b10| 68 6f 77 20 61 6c 6c 20 | 6f 66 20 74 68 65 20 64 |how all |of the d|
|00002b20| 69 61 72 79 20 65 6e 74 | 72 69 65 73 20 69 6e 20 |iary ent|ries in |
|00002b30| 74 68 65 20 64 69 61 72 | 79 2d 66 69 6c 65 2e 0a |the diar|y-file..|
|00002b40| 54 68 69 73 20 66 75 6e | 63 74 69 6f 6e 20 67 65 |This fun|ction ge|
|00002b50| 74 73 20 72 69 64 20 6f | 66 20 74 68 65 20 73 65 |ts rid o|f the se|
|00002b60| 6c 65 63 74 69 76 65 20 | 64 69 73 70 6c 61 79 20 |lective |display |
|00002b70| 6f 66 20 74 68 65 20 64 | 69 61 72 79 2d 66 69 6c |of the d|iary-fil|
|00002b80| 65 20 73 6f 20 74 68 61 | 74 0a 61 6c 6c 20 65 6e |e so tha|t.all en|
|00002b90| 74 72 69 65 73 2c 20 6e | 6f 74 20 6a 75 73 74 20 |tries, n|ot just |
|00002ba0| 73 6f 6d 65 2c 20 61 72 | 65 20 76 69 73 69 62 6c |some, ar|e visibl|
|00002bb0| 65 2e 20 20 49 66 20 74 | 68 65 72 65 20 69 73 20 |e.  If t|here is |
|00002bc0| 6e 6f 20 64 69 61 72 79 | 20 62 75 66 66 65 72 2c |no diary| buffer,|
|00002bd0| 20 6f 6e 65 0a 69 73 20 | 63 72 65 61 74 65 64 2e | one.is |created.|
|00002be0| 22 20 6e 69 6c 5d 29 0a | 28 66 73 65 74 20 27 64 |" nil]).|(fset 'd|
|00002bf0| 69 61 72 79 2d 6e 61 6d | 65 2d 70 61 74 74 65 72 |iary-nam|e-patter|
|00002c00| 6e 20 23 5b 28 73 74 72 | 69 6e 67 2d 61 72 72 61 |n #[(str|ing-arra|
|00002c10| 79 20 26 6f 70 74 69 6f | 6e 61 6c 20 66 75 6c 6c |y &optio|nal full|
|00002c20| 6e 61 6d 65 29 20 22 c0 | 19 c2 1b 0c 47 53 0b 54 |name) ".|....GS.T|
|00002c30| 89 13 59 ab a1 09 89 c0 | 98 ab 83 c0 aa 81 c5 0c |..Y.....|........|
|00002c40| 0b 48 0e 06 ab 83 c0 aa | 89 c5 0c 0b 48 c7 c8 4f |.H......|....H..O|
|00002c50| c9 51 52 11 aa 55 29 09 | 29 87 22 20 5b 22 22 20 |.QR..U).|)." ["" |
|00002c60| 70 61 74 74 65 72 6e 20 | 2d 31 20 69 20 73 74 72 |pattern |-1 i str|
|00002c70| 69 6e 67 2d 61 72 72 61 | 79 20 22 5c 5c 7c 22 20 |ing-arra|y "\\|" |
|00002c80| 66 75 6c 6c 6e 61 6d 65 | 20 30 20 33 20 22 2e 3f |fullname| 0 3 ".?|
|00002c90| 22 5d 20 37 20 22 5c 0a | 43 6f 6e 76 65 72 74 20 |"] 7 "\.|Convert |
|00002ca0| 61 6e 20 53 54 52 49 4e | 47 2d 41 52 52 41 59 2c |an STRIN|G-ARRAY,|
|00002cb0| 20 61 6e 20 61 72 72 61 | 79 20 6f 66 20 73 74 72 | an arra|y of str|
|00002cc0| 69 6e 67 73 20 74 6f 20 | 61 20 70 61 74 74 65 72 |ings to |a patter|
|00002cd0| 6e 2e 0a 54 68 65 20 70 | 61 74 74 65 72 6e 20 77 |n..The p|attern w|
|00002ce0| 69 6c 6c 20 6d 61 74 63 | 68 20 61 6e 79 20 6f 66 |ill matc|h any of|
|00002cf0| 20 74 68 65 20 73 74 72 | 69 6e 67 73 2c 20 65 69 | the str|ings, ei|
|00002d00| 74 68 65 72 20 65 6e 74 | 69 72 65 6c 79 20 6f 72 |ther ent|irely or|
|00002d10| 20 61 62 62 72 65 76 69 | 61 74 65 64 0a 74 6f 20 | abbrevi|ated.to |
|00002d20| 74 68 72 65 65 20 63 68 | 61 72 61 63 74 65 72 73 |three ch|aracters|
|00002d30| 2e 20 20 41 6e 20 61 62 | 62 72 65 76 69 61 74 65 |.  An ab|breviate|
|00002d40| 64 20 66 6f 72 6d 20 77 | 69 6c 6c 20 6d 61 74 63 |d form w|ill matc|
|00002d50| 68 20 77 69 74 68 20 6f | 72 20 77 69 74 68 6f 75 |h with o|r withou|
|00002d60| 74 20 61 20 70 65 72 69 | 6f 64 3b 0a 49 66 20 74 |t a peri|od;.If t|
|00002d70| 68 65 20 6f 70 74 69 6f | 6e 61 6c 20 46 55 4c 4c |he optio|nal FULL|
|00002d80| 4e 41 4d 45 20 69 73 20 | 74 2c 20 61 62 62 72 65 |NAME is |t, abbre|
|00002d90| 76 69 61 74 69 6f 6e 73 | 20 77 69 6c 6c 20 6e 6f |viations| will no|
|00002da0| 74 20 6d 61 74 63 68 2c | 20 6a 75 73 74 20 74 68 |t match,| just th|
|00002db0| 65 20 66 75 6c 6c 0a 6e | 61 6d 65 2e 22 5d 29 0a |e full.n|ame."]).|
|00002dc0| 28 66 73 65 74 20 27 6d | 61 72 6b 2d 64 69 61 72 |(fset 'm|ark-diar|
|00002dd0| 79 2d 65 6e 74 72 69 65 | 73 20 23 5b 6e 69 6c 20 |y-entrie|s #[nil |
|00002de0| 22 c0 11 c2 0b 21 89 1c | 83 10 02 c5 0c 21 83 10 |"....!..|.....!..|
|00002df0| 02 c6 0c 21 83 07 02 8a | c7 c8 21 88 c9 0c c0 5c |...!....|..!....\|
|00002e00| 22 71 88 0e 5c 6e cb 1e | 0c 1e 0d ce 20 16 0c cf |"q..\n..|.... ...|
|00002e10| 0e 10 21 88 0e 0d 83 ea | 01 0e 0d 40 40 d1 9a ab |..!.....|...@@...|
|00002e20| 86 0e 0d 40 41 aa 83 0e | 0d 40 1e 12 d3 0e 14 21 |...@A...|.@.....!|
|00002e30| 1e 15 d3 0e 16 21 d7 50 | 1e 18 d9 1e 1a d9 1e 1b |.....!.P|........|
|00002e40| d9 1e 1c 0e 12 47 89 1e | 1d d5 0e 12 3e 47 5a 1e |.....G..|....>GZ.|
|00002e50| 1e 0e 1d 0e 1e 55 3f ad | 84 0e 1e df 5c 5c 1e 1e |.....U?.|....\\..|
|00002e60| 0e 1d d8 0e 12 3e 47 5a | 1e 20 0e 1d 0e 20 55 3f |.....>GZ|. ... U?|
|00002e70| ad 84 0e 20 df 5c 5c 1e | 20 0e 1d db 0e 12 3e 47 |... .\\.| .....>G|
|00002e80| 5a 1e 21 0e 1d 0e 21 55 | 3f ad 84 0e 21 df 5c 5c |Z.!...!U|?...!.\\|
|00002e90| 1e 21 0e 1d da 0e 12 3e | 47 5a 1e 5c 22 0e 1d 0e |.!.....>|GZ.\"...|
|00002ea0| 5c 22 55 3f ad 84 0e 5c | 22 df 5c 5c 1e 5c 22 0e |\"U?...\|".\\.\".|
|00002eb0| 1d dc 0e 12 3e 47 5a 1e | 23 0e 1d 0e 23 55 3f ad |....>GZ.|#...#U?.|
|00002ec0| 84 0e 23 df 5c 5c 1e 23 | e4 e5 e6 0e 12 e7 23 e8 |..#.\\.#|......#.|
|00002ed0| 51 1e 29 c0 1e 2a 65 62 | 88 eb 0e 29 cb c0 23 83 |Q.)..*eb|...)..#.|
|00002ee0| e0 01 0e 1e ad 87 0e 1e | 94 0e 1e 95 7b 1e 2c 0e |........|....{.,.|
|00002ef0| 20 ad 87 0e 20 94 0e 20 | 95 7b 1e 2d ee 0e 5c 22 | ... .. |.{.-..\"|
|00002f00| ab 89 0e 5c 22 94 0e 5c | 22 95 7b aa 81 ef 21 1e |...\"..\|".{...!.|
|00002f10| 30 ee 0e 21 ab 89 0e 21 | 94 0e 21 95 7b aa 81 ef |0..!...!|..!.{...|
|00002f20| 21 1e 31 0e 23 ad 87 0e | 23 94 0e 23 95 7b 89 1e |!.1.#...|#..#.{..|
|00002f30| 32 ac 83 f3 aa c5 0e 32 | 47 df 55 ab ba 0e 34 ab |2......2|G.U...4.|
|00002f40| b6 f5 20 41 41 40 1e 36 | ee 0e 32 21 0e 36 f7 a5 |.. AA@.6|..2!.6..|
|00002f50| f7 5f 5c 5c 89 1e 38 0e | 36 5a f9 56 ab 86 0e 38 |._\\..8.|6Z.V...8|
|00002f60| f7 5a aa 91 0e 36 0e 38 | 5a f9 56 ab 86 0e 38 f7 |.Z...6.8|Z.V...8.|
|00002f70| 5c 5c aa 82 0e 38 2a aa | 84 ee 0e 32 21 1e 3a 0e |\\...8*.|...2!.:.|
|00002f80| 2c ab 97 fb fc fd 0e 2c | f3 fe 4f 21 ff 0e 14 f3 |,......,|..O!....|
|00002f90| 81 40 00 23 5c 22 41 21 | 88 aa b2 0e 2d ab a3 0e |.@.#\"A!|....-...|
|00002fa0| 2d 81 41 00 98 ab 85 f3 | 16 30 aa 96 fc fd 0e 2d |-.A.....|.0.....-|
|00002fb0| f3 fe 4f 21 ff 0e 16 81 | 42 00 81 43 00 23 5c 22 |..O!....|B..C.#\"|
|00002fc0| 41 16 30 81 44 00 0e 30 | 0e 31 0e 3a 23 88 2e 06 |A.0.D..0|.1.:#...|
|00002fd0| 82 ed 00 0e 0d 41 16 0d | 2e 13 82 31 00 81 45 00 |.....A..|...1..E.|
|00002fe0| 20 88 81 46 00 81 47 00 | 81 48 00 5c 22 88 cf 0e | ..F..G.|.H.\"...|
|00002ff0| 0c 21 88 c7 81 49 00 21 | 2b aa 90 81 4a 00 81 4b |.!...I.!|+...J..K|
|00003000| 00 21 aa 87 81 4a 00 81 | 4c 00 21 29 87 22 20 5b |.!...J..|L.!)." [|
|00003010| 74 20 6d 61 72 6b 2d 64 | 69 61 72 79 2d 65 6e 74 |t mark-d|iary-ent|
|00003020| 72 69 65 73 2d 69 6e 2d | 63 61 6c 65 6e 64 61 72 |ries-in-|calendar|
|00003030| 20 73 75 62 73 74 69 74 | 75 74 65 2d 69 6e 2d 66 | substit|ute-in-f|
|00003040| 69 6c 65 2d 6e 61 6d 65 | 20 64 69 61 72 79 2d 66 |ile-name| diary-f|
|00003050| 69 6c 65 20 64 2d 66 69 | 6c 65 20 66 69 6c 65 2d |ile d-fi|le file-|
|00003060| 65 78 69 73 74 73 2d 70 | 20 66 69 6c 65 2d 72 65 |exists-p| file-re|
|00003070| 61 64 61 62 6c 65 2d 70 | 20 6d 65 73 73 61 67 65 |adable-p| message|
|00003080| 20 22 4d 61 72 6b 69 6e | 67 20 64 69 61 72 79 20 | "Markin|g diary |
|00003090| 65 6e 74 72 69 65 73 2e | 2e 2e 22 20 66 69 6e 64 |entries.|.." find|
|000030a0| 2d 66 69 6c 65 2d 6e 6f | 73 65 6c 65 63 74 20 64 |-file-no|select d|
|000030b0| 69 61 72 79 2d 64 61 74 | 65 2d 66 6f 72 6d 73 20 |iary-dat|e-forms |
|000030c0| 6e 69 6c 20 6f 6c 64 2d | 64 69 61 72 79 2d 73 79 |nil old-|diary-sy|
|000030d0| 6e 74 61 78 2d 74 61 62 | 6c 65 20 64 20 73 79 6e |ntax-tab|le d syn|
|000030e0| 74 61 78 2d 74 61 62 6c | 65 20 73 65 74 2d 73 79 |tax-tabl|e set-sy|
|000030f0| 6e 74 61 78 2d 74 61 62 | 6c 65 20 64 69 61 72 79 |ntax-tab|le diary|
|00003100| 2d 73 79 6e 74 61 78 2d | 74 61 62 6c 65 20 62 61 |-syntax-|table ba|
|00003110| 63 6b 75 70 20 64 61 74 | 65 2d 66 6f 72 6d 20 64 |ckup dat|e-form d|
|00003120| 69 61 72 79 2d 6e 61 6d | 65 2d 70 61 74 74 65 72 |iary-nam|e-patter|
|00003130| 6e 20 63 61 6c 65 6e 64 | 61 72 2d 64 61 79 2d 6e |n calend|ar-day-n|
|00003140| 61 6d 65 2d 61 72 72 61 | 79 20 64 61 79 6e 61 6d |ame-arra|y daynam|
|00003150| 65 20 63 61 6c 65 6e 64 | 61 72 2d 6d 6f 6e 74 68 |e calend|ar-month|
|00003160| 2d 6e 61 6d 65 2d 61 72 | 72 61 79 20 22 5c 5c 7c |-name-ar|ray "\\||
|00003170| 5c 5c 2a 22 20 6d 6f 6e | 74 68 6e 61 6d 65 20 22 |\\*" mon|thname "|
|00003180| 5b 30 2d 39 5d 2b 5c 5c | 7c 5c 5c 2a 22 20 6d 6f |[0-9]+\\||\\*" mo|
|00003190| 6e 74 68 20 64 61 79 20 | 79 65 61 72 20 6c 20 64 |nth day |year l d|
|000031a0| 2d 6e 61 6d 65 2d 70 6f | 73 20 32 20 6d 2d 6e 61 |-name-po|s 2 m-na|
|000031b0| 6d 65 2d 70 6f 73 20 64 | 2d 70 6f 73 20 6d 2d 70 |me-pos d|-pos m-p|
|000031c0| 6f 73 20 79 2d 70 6f 73 | 20 22 5c 5c 28 5c 5c 60 |os y-pos| "\\(\\`|
|000031d0| 5c 5c 7c 0d 5c 5c 7c 5c | 6e 5c 5c 29 5c 5c 28 22 |\\|.\\|\|n\\)\\("|
|000031e0| 20 6d 61 70 63 6f 6e 63 | 61 74 20 65 76 61 6c 20 | mapconc|at eval |
|000031f0| 22 5c 5c 29 5c 5c 28 22 | 20 22 5c 5c 29 22 20 72 |"\\)\\("| "\\)" r|
|00003200| 65 67 65 78 70 20 63 61 | 73 65 2d 66 6f 6c 64 2d |egexp ca|se-fold-|
|00003210| 73 65 61 72 63 68 20 72 | 65 2d 73 65 61 72 63 68 |search r|e-search|
|00003220| 2d 66 6f 72 77 61 72 64 | 20 64 64 2d 6e 61 6d 65 |-forward| dd-name|
|00003230| 20 6d 6d 2d 6e 61 6d 65 | 20 73 74 72 69 6e 67 2d | mm-name| string-|
|00003240| 74 6f 2d 69 6e 74 20 22 | 22 20 6d 6d 20 64 64 20 |to-int "|" mm dd |
|00003250| 79 2d 73 74 72 20 30 20 | 61 62 62 72 65 76 69 61 |y-str 0 |abbrevia|
|00003260| 74 65 64 2d 63 61 6c 65 | 6e 64 61 72 2d 79 65 61 |ted-cale|ndar-yea|
|00003270| 72 20 63 61 6c 65 6e 64 | 61 72 2d 63 75 72 72 65 |r calend|ar-curre|
|00003280| 6e 74 2d 64 61 74 65 20 | 63 75 72 72 65 6e 74 2d |nt-date |current-|
|00003290| 79 20 31 30 30 20 79 20 | 35 30 20 79 79 20 6d 61 |y 100 y |50 yy ma|
|000032a0| 72 6b 2d 63 61 6c 65 6e | 64 61 72 2d 64 61 79 73 |rk-calen|dar-days|
|000032b0| 2d 6e 61 6d 65 64 20 61 | 73 73 6f 63 20 63 61 70 |-named a|ssoc cap|
|000032c0| 69 74 61 6c 69 7a 65 20 | 33 20 63 61 6c 65 6e 64 |italize |3 calend|
|000032d0| 61 72 2d 6d 61 6b 65 2d | 61 6c 69 73 74 20 28 6c |ar-make-|alist (l|
|000032e0| 61 6d 62 64 61 20 28 78 | 29 20 28 73 75 62 73 74 |ambda (x|) (subst|
|000032f0| 72 69 6e 67 20 78 20 30 | 20 33 29 29 20 22 2a 22 |ring x 0| 3)) "*"|
|00003300| 20 31 20 28 6c 61 6d 62 | 64 61 20 28 78 29 20 28 | 1 (lamb|da (x) (|
|00003310| 73 75 62 73 74 72 69 6e | 67 20 78 20 30 20 33 29 |substrin|g x 0 3)|
|00003320| 29 20 6d 61 72 6b 2d 63 | 61 6c 65 6e 64 61 72 2d |) mark-c|alendar-|
|00003330| 64 61 74 65 2d 70 61 74 | 74 65 72 6e 20 6d 61 72 |date-pat|tern mar|
|00003340| 6b 2d 73 65 78 70 2d 64 | 69 61 72 79 2d 65 6e 74 |k-sexp-d|iary-ent|
|00003350| 72 69 65 73 20 72 75 6e | 2d 68 6f 6f 6b 73 20 6e |ries run|-hooks n|
|00003360| 6f 6e 67 72 65 67 6f 72 | 69 61 6e 2d 64 69 61 72 |ongregor|ian-diar|
|00003370| 79 2d 6d 61 72 6b 69 6e | 67 2d 68 6f 6f 6b 20 6d |y-markin|g-hook m|
|00003380| 61 72 6b 2d 64 69 61 72 | 79 2d 65 6e 74 72 69 65 |ark-diar|y-entrie|
|00003390| 73 2d 68 6f 6f 6b 20 22 | 4d 61 72 6b 69 6e 67 20 |s-hook "|Marking |
|000033a0| 64 69 61 72 79 20 65 6e | 74 72 69 65 73 2e 2e 2e |diary en|tries...|
|000033b0| 64 6f 6e 65 22 20 65 72 | 72 6f 72 20 22 59 6f 75 |done" er|ror "You|
|000033c0| 72 20 64 69 61 72 79 20 | 66 69 6c 65 20 69 73 20 |r diary |file is |
|000033d0| 6e 6f 74 20 72 65 61 64 | 61 62 6c 65 21 22 20 22 |not read|able!" "|
|000033e0| 59 6f 75 20 64 6f 6e 27 | 74 20 68 61 76 65 20 61 |You don'|t have a|
|000033f0| 20 64 69 61 72 79 20 66 | 69 6c 65 21 22 5d 20 38 | diary f|ile!"] 8|
|00003400| 20 22 5c 0a 4d 61 72 6b | 20 64 61 79 73 20 69 6e | "\.Mark| days in|
|00003410| 20 74 68 65 20 63 61 6c | 65 6e 64 61 72 20 77 69 | the cal|endar wi|
|00003420| 6e 64 6f 77 20 74 68 61 | 74 20 68 61 76 65 20 64 |ndow tha|t have d|
|00003430| 69 61 72 79 20 65 6e 74 | 72 69 65 73 2e 0a 45 61 |iary ent|ries..Ea|
|00003440| 63 68 20 65 6e 74 72 79 | 20 69 6e 20 64 69 61 72 |ch entry| in diar|
|00003450| 79 2d 66 69 6c 65 20 76 | 69 73 69 62 6c 65 20 69 |y-file v|isible i|
|00003460| 6e 20 74 68 65 20 63 61 | 6c 65 6e 64 61 72 20 77 |n the ca|lendar w|
|00003470| 69 6e 64 6f 77 20 69 73 | 20 6d 61 72 6b 65 64 2e |indow is| marked.|
|00003480| 20 20 41 66 74 65 72 20 | 74 68 65 0a 65 6e 74 72 |  After |the.entr|
|00003490| 69 65 73 20 61 72 65 20 | 6d 61 72 6b 65 64 2c 20 |ies are |marked, |
|000034a0| 74 68 65 20 68 6f 6f 6b | 73 20 60 6e 6f 6e 67 72 |the hook|s `nongr|
|000034b0| 65 67 6f 72 69 61 6e 2d | 64 69 61 72 79 2d 6d 61 |egorian-|diary-ma|
|000034c0| 72 6b 69 6e 67 2d 68 6f | 6f 6b 27 20 61 6e 64 0a |rking-ho|ok' and.|
|000034d0| 60 6d 61 72 6b 2d 64 69 | 61 72 79 2d 65 6e 74 72 |`mark-di|ary-entr|
|000034e0| 69 65 73 2d 68 6f 6f 6b | 27 20 61 72 65 20 72 75 |ies-hook|' are ru|
|000034f0| 6e 2e 22 20 6e 69 6c 5d | 29 0a 28 66 73 65 74 20 |n." nil]|).(fset |
|00003500| 27 6d 61 72 6b 2d 73 65 | 78 70 2d 64 69 61 72 79 |'mark-se|xp-diary|
|00003510| 2d 65 6e 74 72 69 65 73 | 20 23 5b 6e 69 6c 20 22 |-entries| #[nil "|
|00003520| c0 09 21 1a c3 5c 6e c4 | 51 1d c6 1e 07 c6 1e 08 |..!..\n.|Q.......|
|00003530| c6 1e 09 c6 1e 5c 6e 8a | 0e 0b 71 88 0e 0c 16 07 |.....\n.|..q.....|
|00003540| 0e 0d 16 08 29 0e 08 ce | 5f 0e 07 cf 5c 5c 5c 5c |....)...|_...\\\\|
|00003550| 89 1e 10 ce a6 54 16 07 | 0e 10 ce a5 16 08 29 0e |.....T..|......).|
|00003560| 07 d1 0e 08 45 40 0e 07 | d1 0e 08 45 41 40 0e 07 |....E@..|...EA@..|
|00003570| d1 0e 08 45 41 41 40 1e | 12 1e 13 1e 14 0e 07 d1 |...EAA@.|........|
|00003580| 0e 08 45 40 1e 14 0e 07 | d1 0e 08 45 41 40 1e 13 |..E@....|...EA@..|
|00003590| 0e 07 d1 0e 08 45 41 41 | 40 1e 12 0e 13 0e 14 53 |.....EAA|@......S|
|000035a0| d5 5f 5c 5c 1e 16 0e 14 | d7 56 ab aa 0e 16 0e 14 |._\\....|.V......|
|000035b0| d8 5f d9 5c 5c da a5 5a | 16 16 0e 12 d8 a6 db 55 |._.\\..Z|.......U|
|000035c0| ab 88 0e 12 dc a6 db 55 | ab 88 0e 12 dd a6 db 55 |.......U|.......U|
|000035d0| ab 85 0e 16 54 16 16 0e | 16 2c 0e 12 53 de 5f 0e |....T...|.,..S._.|
|000035e0| 12 53 d8 a5 0e 12 53 dc | a5 5b 0e 12 53 dd a5 5c |.S....S.|.[..S..\|
|000035f0| 5c 5c 5c 5c 5c 5c 5c 2b | 16 09 0e 08 ce 5f 0e 07 |\\\\\\\+|....._..|
|00003600| d1 5c 5c 5c 5c 89 1e 10 | ce a6 54 16 07 0e 10 ce |.\\\\...|..T.....|
|00003610| a5 16 08 29 0e 07 0e 08 | d8 a6 db 55 ab 88 0e 08 |...)....|...U....|
|00003620| dc a6 db 55 ab 88 0e 08 | dd a6 db 55 ab 89 0e 07 |...U....|...U....|
|00003630| d7 55 ab 83 df aa 85 e0 | 0e 07 53 48 0e 08 45 40 |.U......|..SH..E@|
|00003640| 0e 07 0e 08 d8 a6 db 55 | ab 88 0e 08 dc a6 db 55 |.......U|.......U|
|00003650| ab 88 0e 08 dd a6 db 55 | ab 89 0e 07 d7 55 ab 83 |.......U|.....U..|
|00003660| df aa 85 e0 0e 07 53 48 | 0e 08 45 41 40 0e 07 0e |......SH|..EA@...|
|00003670| 08 d8 a6 db 55 ab 88 0e | 08 dc a6 db 55 ab 88 0e |....U...|....U...|
|00003680| 08 dd a6 db 55 ab 89 0e | 07 d7 55 ab 83 df aa 85 |....U...|..U.....|
|00003690| e0 0e 07 53 48 0e 08 45 | 41 41 40 1e 12 1e 13 1e |...SH..E|AA@.....|
|000036a0| 14 0e 07 0e 08 d8 a6 db | 55 ab 88 0e 08 dc a6 db |........|U.......|
|000036b0| 55 ab 88 0e 08 dd a6 db | 55 ab 89 0e 07 d7 55 ab |U.......|U.....U.|
|000036c0| 83 df aa 85 e0 0e 07 53 | 48 0e 08 45 40 1e 14 0e |.......S|H..E@...|
|000036d0| 07 0e 08 d8 a6 db 55 ab | 88 0e 08 dc a6 db 55 ab |......U.|......U.|
|000036e0| 88 0e 08 dd a6 db 55 ab | 89 0e 07 d7 55 ab 83 df |......U.|....U...|
|000036f0| aa 85 e0 0e 07 53 48 0e | 08 45 41 40 1e 13 0e 07 |.....SH.|.EA@....|
|00003700| 0e 08 d8 a6 db 55 ab 88 | 0e 08 dc a6 db 55 ab 88 |.....U..|.....U..|
|00003710| 0e 08 dd a6 db 55 ab 89 | 0e 07 d7 55 ab 83 df aa |.....U..|...U....|
|00003720| 85 e0 0e 07 53 48 0e 08 | 45 41 41 40 1e 12 0e 13 |....SH..|EAA@....|
|00003730| 0e 14 53 d5 5f 5c 5c 1e | 16 0e 14 d7 56 ab aa 0e |..S._\\.|....V...|
|00003740| 16 0e 14 d8 5f d9 5c 5c | da a5 5a 16 16 0e 12 d8 |...._.\\|..Z.....|
|00003750| a6 db 55 ab 88 0e 12 dc | a6 db 55 ab 88 0e 12 dd |..U.....|..U.....|
|00003760| a6 db 55 ab 85 0e 16 54 | 16 16 0e 16 2c 0e 12 53 |..U....T|....,..S|
|00003770| de 5f 0e 12 53 d8 a5 0e | 12 53 dc a5 5b 0e 12 53 |._..S...|.S..[..S|
|00003780| dd a5 5c 5c 5c 5c 5c 5c | 5c 5c 2b 16 5c 6e 65 62 |..\\\\\\|\\+.\neb|
|00003790| 88 e1 0d c6 e2 23 85 02 | 03 e3 d1 21 88 60 c6 89 |.....#..|...!.`..|
|000037a0| 89 89 1e 24 1e 25 1e 26 | 1e 27 1e 28 e9 20 88 0e |...$.%.&|.'.(. ..|
|000037b0| 28 60 7b 16 27 8a ea eb | 21 88 60 16 24 29 d1 75 |(`{.'...|!.`.$).u|
|000037c0| 88 ec 68 ed 5c 22 ac 86 | ec 68 da 5c 22 ab 8e ee |..h.\"..|.h.\"...|
|000037d0| ef 21 ac 89 e3 d1 21 88 | f0 16 26 aa b0 60 16 25 |.!....!.|..&..`.%|
|000037e0| e1 f1 c6 e2 23 88 ee ef | 21 ab 88 e1 f1 c6 e2 23 |....#...|!......#|
|000037f0| 88 aa 73 e3 d1 21 88 0e | 25 60 7b 16 26 f2 f3 0e |..s..!..|%`{.&...|
|00003800| 26 5c 22 ab 89 0e 26 db | 94 da 49 88 aa 70 0e 09 |&\"...&.|..I..p..|
|00003810| 53 1e 34 0e 5c 6e 0e 34 | 54 89 16 34 59 ab 95 f5 |S.4.\n.4|T..4Y...|
|00003820| 0e 27 0e 26 f6 0e 34 21 | 23 ab 69 f7 f6 0e 34 21 |.'.&..4!|#.i...4!|
|00003830| 21 88 aa 60 2e 06 82 5e | 02 2e 06 87 22 20 5b 72 |!..`...^|...." [r|
|00003840| 65 67 65 78 70 2d 71 75 | 6f 74 65 20 73 65 78 70 |egexp-qu|ote sexp|
|00003850| 2d 64 69 61 72 79 2d 65 | 6e 74 72 79 2d 73 79 6d |-diary-e|ntry-sym|
|00003860| 62 6f 6c 20 73 65 78 70 | 2d 6d 61 72 6b 20 22 5c |bol sexp|-mark "\|
|00003870| 5c 28 5c 5c 60 5c 5c 7c | 0d 5c 5c 7c 5c 6e 5c 5c |\(\\`\\||.\\|\n\\|
|00003880| 29 22 20 22 28 22 20 73 | 2d 65 6e 74 72 79 20 6e |)" "(" s|-entry n|
|00003890| 69 6c 20 6d 20 79 20 66 | 69 72 73 74 2d 64 61 74 |il m y f|irst-dat|
|000038a0| 65 20 6c 61 73 74 2d 64 | 61 74 65 20 63 61 6c 65 |e last-d|ate cale|
|000038b0| 6e 64 61 72 2d 62 75 66 | 66 65 72 20 64 69 73 70 |ndar-buf|fer disp|
|000038c0| 6c 61 79 65 64 2d 6d 6f | 6e 74 68 20 64 69 73 70 |layed-mo|nth disp|
|000038d0| 6c 61 79 65 64 2d 79 65 | 61 72 20 31 32 20 2d 32 |layed-ye|ar 12 -2|
|000038e0| 20 6d 61 63 72 6f 2d 79 | 20 31 20 79 65 61 72 20 | macro-y| 1 year |
|000038f0| 64 61 79 20 6d 6f 6e 74 | 68 20 33 31 20 64 61 79 |day mont|h 31 day|
|00003900| 2d 6f 66 2d 79 65 61 72 | 20 32 20 34 20 32 33 20 |-of-year| 2 4 23 |
|00003910| 31 30 20 30 20 31 30 30 | 20 34 30 30 20 33 36 35 |10 0 100| 400 365|
|00003920| 20 32 39 20 5b 33 31 20 | 32 38 20 33 31 20 33 30 | 29 [31 |28 31 30|
|00003930| 20 33 31 20 33 30 20 33 | 31 20 33 31 20 33 30 20 | 31 30 3|1 31 30 |
|00003940| 33 31 20 33 30 20 33 31 | 5d 20 72 65 2d 73 65 61 |31 30 31|] re-sea|
|00003950| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 74 20 62 61 |rch-forw|ard t ba|
|00003960| 63 6b 77 61 72 64 2d 63 | 68 61 72 20 6c 69 6e 65 |ckward-c|har line|
|00003970| 2d 73 74 61 72 74 20 65 | 6e 74 72 79 2d 73 74 61 |-start e|ntry-sta|
|00003980| 72 74 20 65 6e 74 72 79 | 20 73 65 78 70 20 73 65 |rt entry| sexp se|
|00003990| 78 70 2d 73 74 61 72 74 | 20 66 6f 72 77 61 72 64 |xp-start| forward|
|000039a0| 2d 73 65 78 70 20 72 65 | 2d 73 65 61 72 63 68 2d |-sexp re|-search-|
|000039b0| 62 61 63 6b 77 61 72 64 | 20 22 0d 5c 5c 7c 5c 6e |backward| ".\\|\n|
|000039c0| 5c 5c 7c 5c 5c 60 22 20 | 63 68 61 72 2d 65 71 75 |\\|\\`" |char-equ|
|000039d0| 61 6c 20 31 33 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |al 13 lo|oking-at|
|000039e0| 20 22 20 5c 5c 7c 09 22 | 20 22 22 20 22 0d 5c 5c | " \\|."| "" ".\\|
|000039f0| 7c 5c 6e 22 20 73 74 72 | 69 6e 67 2d 6d 61 74 63 ||\n" str|ing-matc|
|00003a00| 68 20 22 5b 0d 5d 22 20 | 64 61 74 65 20 64 69 61 |h "[.]" |date dia|
|00003a10| 72 79 2d 73 65 78 70 2d | 65 6e 74 72 79 20 63 61 |ry-sexp-|entry ca|
|00003a20| 6c 65 6e 64 61 72 2d 67 | 72 65 67 6f 72 69 61 6e |lendar-g|regorian|
|00003a30| 2d 66 72 6f 6d 2d 61 62 | 73 6f 6c 75 74 65 20 6d |-from-ab|solute m|
|00003a40| 61 72 6b 2d 76 69 73 69 | 62 6c 65 2d 63 61 6c 65 |ark-visi|ble-cale|
|00003a50| 6e 64 61 72 2d 64 61 74 | 65 5d 20 37 20 22 5c 0a |ndar-dat|e] 7 "\.|
|00003a60| 4d 61 72 6b 20 64 61 79 | 73 20 69 6e 20 74 68 65 |Mark day|s in the|
|00003a70| 20 63 61 6c 65 6e 64 61 | 72 20 77 69 6e 64 6f 77 | calenda|r window|
|00003a80| 20 74 68 61 74 20 68 61 | 76 65 20 73 65 78 70 20 | that ha|ve sexp |
|00003a90| 64 69 61 72 79 20 65 6e | 74 72 69 65 73 2e 0a 45 |diary en|tries..E|
|00003aa0| 61 63 68 20 65 6e 74 72 | 79 20 69 6e 20 64 69 61 |ach entr|y in dia|
|00003ab0| 72 79 2d 66 69 6c 65 20 | 28 6f 72 20 69 6e 63 6c |ry-file |(or incl|
|00003ac0| 75 64 65 64 20 66 69 6c | 65 73 29 20 76 69 73 69 |uded fil|es) visi|
|00003ad0| 62 6c 65 20 69 6e 20 74 | 68 65 20 63 61 6c 65 6e |ble in t|he calen|
|00003ae0| 64 61 72 20 77 69 6e 64 | 6f 77 0a 69 73 20 6d 61 |dar wind|ow.is ma|
|00003af0| 72 6b 65 64 2e 20 20 53 | 65 65 20 74 68 65 20 64 |rked.  S|ee the d|
|00003b00| 6f 63 75 6d 65 6e 74 61 | 74 69 6f 6e 20 66 6f 72 |ocumenta|tion for|
|00003b10| 20 74 68 65 20 66 75 6e | 63 74 69 6f 6e 20 60 6c | the fun|ction `l|
|00003b20| 69 73 74 2d 73 65 78 70 | 2d 64 69 61 72 79 2d 65 |ist-sexp|-diary-e|
|00003b30| 6e 74 72 69 65 73 27 2e | 22 5d 29 0a 28 66 73 65 |ntries'.|"]).(fse|
|00003b40| 74 20 27 6d 61 72 6b 2d | 69 6e 63 6c 75 64 65 64 |t 'mark-|included|
|00003b50| 2d 64 69 61 72 79 2d 66 | 69 6c 65 73 20 23 5b 6e |-diary-f|iles #[n|
|00003b60| 69 6c 20 22 65 62 88 c0 | c1 c2 0b 21 c4 51 c5 c6 |il "eb..|...!.Q..|
|00003b70| 23 ab c3 c7 c8 94 c8 95 | 7b 21 c9 1e 5c 6e 1e 0b |#.......|{!..\n..|
|00003b80| cc 0e 0b 21 ab a1 cd 0e | 0b 21 ab 8c ce 20 88 cf |...!....|.!... ..|
|00003b90| d0 0e 0b 21 21 88 aa 9c | d1 20 88 d2 d3 0e 0b 5c |...!!...|. .....\|
|00003ba0| 22 88 d4 c8 21 88 aa 8d | d1 20 88 d2 d5 0e 0b 5c |"...!...|. .....\|
|00003bb0| 22 88 d4 c8 21 88 2a aa | 31 65 62 87 22 20 5b 72 |"...!.*.|1eb." [r|
|00003bc0| 65 2d 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e-search|-forward|
|00003bd0| 20 22 5c 5c 28 5c 5c 60 | 5c 5c 7c 0d 5c 5c 7c 5c | "\\(\\`|\\|.\\|\|
|00003be0| 6e 5c 5c 29 22 20 72 65 | 67 65 78 70 2d 71 75 6f |n\\)" re|gexp-quo|
|00003bf0| 74 65 20 64 69 61 72 79 | 2d 69 6e 63 6c 75 64 65 |te diary|-include|
|00003c00| 2d 73 74 72 69 6e 67 20 | 22 20 5c 22 5c 5c 28 5b |-string |" \"\\([|
|00003c10| 5e 5c 22 5d 2a 5c 5c 29 | 5c 22 22 20 6e 69 6c 20 |^\"]*\\)|\"" nil |
|00003c20| 74 20 73 75 62 73 74 69 | 74 75 74 65 2d 69 6e 2d |t substi|tute-in-|
|00003c30| 66 69 6c 65 2d 6e 61 6d | 65 20 32 20 6d 61 72 6b |file-nam|e 2 mark|
|00003c40| 2d 69 6e 63 6c 75 64 65 | 64 2d 64 69 61 72 79 2d |-include|d-diary-|
|00003c50| 66 69 6c 65 73 20 6d 61 | 72 6b 2d 64 69 61 72 79 |files ma|rk-diary|
|00003c60| 2d 65 6e 74 72 69 65 73 | 2d 68 6f 6f 6b 20 64 69 |-entries|-hook di|
|00003c70| 61 72 79 2d 66 69 6c 65 | 20 66 69 6c 65 2d 65 78 |ary-file| file-ex|
|00003c80| 69 73 74 73 2d 70 20 66 | 69 6c 65 2d 72 65 61 64 |ists-p f|ile-read|
|00003c90| 61 62 6c 65 2d 70 20 6d | 61 72 6b 2d 64 69 61 72 |able-p m|ark-diar|
|00003ca0| 79 2d 65 6e 74 72 69 65 | 73 20 6b 69 6c 6c 2d 62 |y-entrie|s kill-b|
|00003cb0| 75 66 66 65 72 20 67 65 | 74 2d 66 69 6c 65 2d 62 |uffer ge|t-file-b|
|00003cc0| 75 66 66 65 72 20 62 65 | 65 70 20 6d 65 73 73 61 |uffer be|ep messa|
|00003cd0| 67 65 20 22 43 61 6e 27 | 74 20 72 65 61 64 20 69 |ge "Can'|t read i|
|00003ce0| 6e 63 6c 75 64 65 64 20 | 64 69 61 72 79 20 66 69 |ncluded |diary fi|
|00003cf0| 6c 65 20 25 73 22 20 73 | 6c 65 65 70 2d 66 6f 72 |le %s" s|leep-for|
|00003d00| 20 22 43 61 6e 27 74 20 | 66 69 6e 64 20 69 6e 63 | "Can't |find inc|
|00003d10| 6c 75 64 65 64 20 64 69 | 61 72 79 20 66 69 6c 65 |luded di|ary file|
|00003d20| 20 25 73 22 5d 20 34 20 | 22 5c 0a 4d 61 72 6b 20 | %s"] 4 |"\.Mark |
|00003d30| 74 68 65 20 64 69 61 72 | 79 20 65 6e 74 72 69 65 |the diar|y entrie|
|00003d40| 73 20 66 72 6f 6d 20 6f | 74 68 65 72 20 64 69 61 |s from o|ther dia|
|00003d50| 72 79 20 66 69 6c 65 73 | 20 77 69 74 68 20 74 68 |ry files| with th|
|00003d60| 6f 73 65 20 6f 66 20 64 | 69 61 72 79 2d 66 69 6c |ose of d|iary-fil|
|00003d70| 65 2e 0a 54 68 69 73 20 | 66 75 6e 63 74 69 6f 6e |e..This |function|
|00003d80| 20 69 73 20 73 75 69 74 | 61 62 6c 65 20 66 6f 72 | is suit|able for|
|00003d90| 20 75 73 65 20 61 73 20 | 74 68 65 20 6d 61 72 6b | use as |the mark|
|00003da0| 2d 64 69 61 72 79 2d 65 | 6e 74 72 69 65 73 2d 68 |-diary-e|ntries-h|
|00003db0| 6f 6f 6b 3b 20 69 74 20 | 65 6e 61 62 6c 65 73 0a |ook; it |enables.|
|00003dc0| 79 6f 75 20 74 6f 20 75 | 73 65 20 73 68 61 72 65 |you to u|se share|
|00003dd0| 64 20 64 69 61 72 79 20 | 66 69 6c 65 73 20 74 6f |d diary |files to|
|00003de0| 67 65 74 68 65 72 20 77 | 69 74 68 20 79 6f 75 72 |gether w|ith your|
|00003df0| 20 6f 77 6e 2e 20 20 54 | 68 65 20 66 69 6c 65 73 | own.  T|he files|
|00003e00| 20 69 6e 63 6c 75 64 65 | 64 20 61 72 65 0a 73 70 | include|d are.sp|
|00003e10| 65 63 69 66 69 65 64 20 | 69 6e 20 74 68 65 20 64 |ecified |in the d|
|00003e20| 69 61 72 79 2d 66 69 6c | 65 20 62 79 20 6c 69 6e |iary-fil|e by lin|
|00003e30| 65 73 20 6f 66 20 74 68 | 65 20 66 6f 72 6d 0a 20 |es of th|e form. |
|00003e40| 20 20 20 20 20 20 20 23 | 69 6e 63 6c 75 64 65 20 |       #|include |
|00003e50| 5c 22 66 69 6c 65 6e 61 | 6d 65 5c 22 0a 54 68 69 |\"filena|me\".Thi|
|00003e60| 73 20 69 73 20 72 65 63 | 75 72 73 69 76 65 3b 20 |s is rec|ursive; |
|00003e70| 74 68 61 74 20 69 73 2c | 20 23 69 6e 63 6c 75 64 |that is,| #includ|
|00003e80| 65 20 64 69 72 65 63 74 | 69 76 65 73 20 69 6e 20 |e direct|ives in |
|00003e90| 64 69 61 72 79 20 66 69 | 6c 65 73 20 74 68 75 73 |diary fi|les thus|
|00003ea0| 20 69 6e 63 6c 75 64 65 | 64 0a 61 72 65 20 6f 62 | include|d.are ob|
|00003eb0| 65 79 65 64 2e 20 20 59 | 6f 75 20 63 61 6e 20 63 |eyed.  Y|ou can c|
|00003ec0| 68 61 6e 67 65 20 74 68 | 65 20 5c 22 23 69 6e 63 |hange th|e \"#inc|
|00003ed0| 6c 75 64 65 5c 22 20 74 | 6f 20 73 6f 6d 65 20 6f |lude\" t|o some o|
|00003ee0| 74 68 65 72 20 73 74 72 | 69 6e 67 20 62 79 0a 63 |ther str|ing by.c|
|00003ef0| 68 61 6e 67 69 6e 67 20 | 74 68 65 20 76 61 72 69 |hanging |the vari|
|00003f00| 61 62 6c 65 20 60 64 69 | 61 72 79 2d 69 6e 63 6c |able `di|ary-incl|
|00003f10| 75 64 65 2d 73 74 72 69 | 6e 67 27 2e 22 5d 29 0a |ude-stri|ng'."]).|
|00003f20| 28 66 73 65 74 20 27 6d | 61 72 6b 2d 63 61 6c 65 |(fset 'm|ark-cale|
|00003f30| 6e 64 61 72 2d 64 61 79 | 73 2d 6e 61 6d 65 64 20 |ndar-day|s-named |
|00003f40| 23 5b 28 64 61 79 6e 61 | 6d 65 29 20 22 8a 08 71 |#[(dayna|me) "..q|
|00003f50| 88 09 5c 6e 09 5c 6e c3 | 89 1c 1d 1e 06 1e 07 1e |..\n.\n.|........|
|00003f60| 08 1e 09 0e 06 ca 5f 0e | 07 5c 5c 89 1e 0b ca a6 |......_.|.\\.....|
|00003f70| 54 16 07 0e 0b ca a5 16 | 06 29 0e 08 ca 5f 0e 09 |T.......|.)..._..|
|00003f80| cc 5c 5c 5c 5c 89 1e 0b | ca a6 54 16 09 0e 0b ca |.\\\\...|..T.....|
|00003f90| a5 16 08 29 cd ce 0e 0f | 0e 09 0e 08 24 40 cd ce |...)....|....$@..|
|00003fa0| 0e 0f 0e 09 0e 08 24 41 | 40 cd ce 0e 0f 0e 09 0e |......$A|@.......|
|00003fb0| 08 24 41 41 40 1e 10 1c | 1e 11 cd ce 0e 0f 0e 09 |.$AA@...|........|
|00003fc0| 0e 08 24 40 1e 11 cd ce | 0e 0f 0e 09 0e 08 24 41 |..$@....|......$A|
|00003fd0| 40 1c cd ce 0e 0f 0e 09 | 0e 08 24 41 41 40 1e 10 |@.......|..$AA@..|
|00003fe0| 0c 0e 11 53 d2 5f 5c 5c | 1e 13 0e 11 d4 56 ab aa |...S._\\|.....V..|
|00003ff0| 0e 13 0e 11 d5 5f d6 5c | 5c d7 a5 5a 16 13 0e 10 |....._.\|\..Z....|
|00004000| d5 a6 d8 55 ab 88 0e 10 | d9 a6 d8 55 ab 88 0e 10 |...U....|...U....|
|00004010| da a6 d8 55 ab 85 0e 13 | 54 16 13 0e 13 2c 0e 10 |...U....|T....,..|
|00004020| 53 db 5f 0e 10 53 d5 a5 | 0e 10 53 d9 a5 5b 0e 10 |S._..S..|..S..[..|
|00004030| 53 da a5 5c 5c 5c 5c 5c | 5c 5c 5c 2b 14 cd dc 0e |S..\\\\\|\\\+....|
|00004040| 0f 0e 07 0e 06 24 40 cd | dc 0e 0f 0e 07 0e 06 24 |.....$@.|.......$|
|00004050| 41 40 cd dc 0e 0f 0e 07 | 0e 06 24 41 41 40 1e 10 |A@......|..$AA@..|
|00004060| 1c 1e 11 cd dc 0e 0f 0e | 07 0e 06 24 40 1e 11 cd |........|...$@...|
|00004070| dc 0e 0f 0e 07 0e 06 24 | 41 40 1c cd dc 0e 0f 0e |.......$|A@......|
|00004080| 07 0e 06 24 41 41 40 1e | 10 0c 0e 11 53 d2 5f 5c |...$AA@.|....S._\|
|00004090| 5c 1e 13 0e 11 d4 56 ab | aa 0e 13 0e 11 d5 5f d6 |\.....V.|......_.|
|000040a0| 5c 5c d7 a5 5a 16 13 0e | 10 d5 a6 d8 55 ab 88 0e |\\..Z...|....U...|
|000040b0| 10 d9 a6 d8 55 ab 88 0e | 10 da a6 d8 55 ab 85 0e |....U...|....U...|
|000040c0| 13 54 16 13 0e 13 2c 0e | 10 53 db 5f 0e 10 53 d5 |.T....,.|.S._..S.|
|000040d0| a5 0e 10 53 d9 a5 5b 0e | 10 53 da a5 5c 5c 5c 5c |...S..[.|.S..\\\\|
|000040e0| 5c 5c 5c 5c 2b 15 0c 0d | 58 ad 8d dd de 0c 21 21 |\\\\+...|X.....!!|
|000040f0| 88 0c df 5c 5c 89 14 aa | 6f 2e 07 87 22 20 5b 63 |...\\...|o..." [c|
|00004100| 61 6c 65 6e 64 61 72 2d | 62 75 66 66 65 72 20 64 |alendar-|buffer d|
|00004110| 69 73 70 6c 61 79 65 64 | 2d 6d 6f 6e 74 68 20 64 |isplayed|-month d|
|00004120| 69 73 70 6c 61 79 65 64 | 2d 79 65 61 72 20 6e 69 |isplayed|-year ni|
|00004130| 6c 20 64 61 79 20 6c 61 | 73 74 2d 64 61 79 20 73 |l day la|st-day s|
|00004140| 75 63 63 2d 79 65 61 72 | 20 73 75 63 63 2d 6d 6f |ucc-year| succ-mo|
|00004150| 6e 74 68 20 70 72 65 76 | 2d 79 65 61 72 20 70 72 |nth prev|-year pr|
|00004160| 65 76 2d 6d 6f 6e 74 68 | 20 31 32 20 6d 61 63 72 |ev-month| 12 macr|
|00004170| 6f 2d 79 20 2d 32 20 63 | 61 6c 65 6e 64 61 72 2d |o-y -2 c|alendar-|
|00004180| 6e 74 68 2d 6e 61 6d 65 | 64 2d 64 61 79 20 31 20 |nth-name|d-day 1 |
|00004190| 64 61 79 6e 61 6d 65 20 | 79 65 61 72 20 6d 6f 6e |dayname |year mon|
|000041a0| 74 68 20 33 31 20 64 61 | 79 2d 6f 66 2d 79 65 61 |th 31 da|y-of-yea|
|000041b0| 72 20 32 20 34 20 32 33 | 20 31 30 20 30 20 31 30 |r 2 4 23| 10 0 10|
|000041c0| 30 20 34 30 30 20 33 36 | 35 20 2d 31 20 6d 61 72 |0 400 36|5 -1 mar|
|000041d0| 6b 2d 76 69 73 69 62 6c | 65 2d 63 61 6c 65 6e 64 |k-visibl|e-calend|
|000041e0| 61 72 2d 64 61 74 65 20 | 63 61 6c 65 6e 64 61 72 |ar-date |calendar|
|000041f0| 2d 67 72 65 67 6f 72 69 | 61 6e 2d 66 72 6f 6d 2d |-gregori|an-from-|
|00004200| 61 62 73 6f 6c 75 74 65 | 20 37 5d 20 38 20 22 5c |absolute| 7] 8 "\|
|00004210| 0a 4d 61 72 6b 20 61 6c | 6c 20 64 61 74 65 73 20 |.Mark al|l dates |
|00004220| 69 6e 20 74 68 65 20 63 | 61 6c 65 6e 64 61 72 20 |in the c|alendar |
|00004230| 77 69 6e 64 6f 77 20 74 | 68 61 74 20 61 72 65 20 |window t|hat are |
|00004240| 64 61 79 20 44 41 59 4e | 41 4d 45 20 6f 66 20 74 |day DAYN|AME of t|
|00004250| 68 65 20 77 65 65 6b 2e | 0a 30 20 6d 65 61 6e 73 |he week.|.0 means|
|00004260| 20 61 6c 6c 20 53 75 6e | 64 61 79 73 2c 20 31 20 | all Sun|days, 1 |
|00004270| 6d 65 61 6e 73 20 61 6c | 6c 20 4d 6f 6e 64 61 79 |means al|l Monday|
|00004280| 73 2c 20 61 6e 64 20 73 | 6f 20 6f 6e 2e 22 5d 29 |s, and s|o on."])|
|00004290| 0a 28 66 73 65 74 20 27 | 6d 61 72 6b 2d 63 61 6c |.(fset '|mark-cal|
|000042a0| 65 6e 64 61 72 2d 64 61 | 74 65 2d 70 61 74 74 65 |endar-da|te-patte|
|000042b0| 72 6e 20 23 5b 28 6d 6f | 6e 74 68 20 64 61 79 20 |rn #[(mo|nth day |
|000042c0| 79 65 61 72 29 20 22 8a | 08 71 88 09 5c 6e 1b 1c |year) ".|.q..\n..|
|000042d0| 0b c5 5f 0c c6 5c 5c 5c | 5c 89 1e 07 c5 a6 54 14 |.._..\\\|\.....T.|
|000042e0| 0e 07 c5 a5 13 29 c8 1e | 09 ca 0e 09 54 89 16 09 |.....)..|....T...|
|000042f0| 59 ad 9f cb 0c 0b 0e 0c | 0e 0d 0e 0e 25 88 0b c5 |Y.......|....%...|
|00004300| 5f 0c 5c 5c 89 1e 07 c5 | a6 54 14 0e 07 c5 a5 13 |_.\\....|.T......|
|00004310| 29 aa 57 2c 87 22 20 5b | 63 61 6c 65 6e 64 61 72 |).W,." [|calendar|
|00004320| 2d 62 75 66 66 65 72 20 | 64 69 73 70 6c 61 79 65 |-buffer |displaye|
|00004330| 64 2d 6d 6f 6e 74 68 20 | 64 69 73 70 6c 61 79 65 |d-month |displaye|
|00004340| 64 2d 79 65 61 72 20 79 | 20 6d 20 31 32 20 2d 32 |d-year y| m 12 -2|
|00004350| 20 6d 61 63 72 6f 2d 79 | 20 2d 31 20 69 20 32 20 | macro-y| -1 i 2 |
|00004360| 6d 61 72 6b 2d 63 61 6c | 65 6e 64 61 72 2d 6d 6f |mark-cal|endar-mo|
|00004370| 6e 74 68 20 6d 6f 6e 74 | 68 20 64 61 79 20 79 65 |nth mont|h day ye|
|00004380| 61 72 5d 20 37 20 22 5c | 0a 4d 61 72 6b 20 61 6c |ar] 7 "\|.Mark al|
|00004390| 6c 20 64 61 74 65 73 20 | 69 6e 20 74 68 65 20 63 |l dates |in the c|
|000043a0| 61 6c 65 6e 64 61 72 20 | 77 69 6e 64 6f 77 20 74 |alendar |window t|
|000043b0| 68 61 74 20 63 6f 6e 66 | 6f 72 6d 20 74 6f 20 4d |hat conf|orm to M|
|000043c0| 4f 4e 54 48 2f 44 41 59 | 2f 59 45 41 52 2e 0a 41 |ONTH/DAY|/YEAR..A|
|000043d0| 20 76 61 6c 75 65 20 6f | 66 20 30 20 69 6e 20 61 | value o|f 0 in a|
|000043e0| 6e 79 20 70 6f 73 69 74 | 69 6f 6e 20 69 73 20 61 |ny posit|ion is a|
|000043f0| 20 77 69 6c 64 2d 63 61 | 72 64 2e 22 5d 29 0a 28 | wild-ca|rd."]).(|
|00004400| 66 73 65 74 20 27 6d 61 | 72 6b 2d 63 61 6c 65 6e |fset 'ma|rk-calen|
|00004410| 64 61 72 2d 6d 6f 6e 74 | 68 20 23 5b 28 6d 6f 6e |dar-mont|h #[(mon|
|00004420| 74 68 20 79 65 61 72 20 | 70 2d 6d 6f 6e 74 68 20 |th year |p-month |
|00004430| 70 2d 64 61 79 20 70 2d | 79 65 61 72 29 20 22 08 |p-day p-|year) ".|
|00004440| 09 55 ab 8a 5c 6e c3 55 | ac 94 0c 5c 6e 55 ac 8f |.U..\n.U|...\nU..|
|00004450| 09 c3 55 ad ce 5c 6e c3 | 55 ac 85 0c 5c 6e 55 ad |..U..\n.|U...\nU.|
|00004460| c4 0d c3 55 ab b9 c3 1e | 06 0c c7 a6 c3 55 ab 87 |...U....|.....U..|
|00004470| 0c c8 a6 c3 55 ab 87 0c | c9 a6 c3 55 ab 88 08 ca |....U...|...U....|
|00004480| 55 ab 83 cb aa 84 cc 08 | 53 48 0e 06 54 89 16 06 |U.......|SH..T...|
|00004490| 59 ad 8a cd 08 0e 06 0c | 45 21 88 aa 4c 29 87 cd |Y.......|E!..L)..|
|000044a0| 08 0d 0c 45 21 87 22 20 | 5b 6d 6f 6e 74 68 20 70 |...E!." |[month p|
|000044b0| 2d 6d 6f 6e 74 68 20 70 | 2d 79 65 61 72 20 30 20 |-month p|-year 0 |
|000044c0| 79 65 61 72 20 70 2d 64 | 61 79 20 69 20 34 20 31 |year p-d|ay i 4 1|
|000044d0| 30 30 20 34 30 30 20 32 | 20 32 39 20 5b 33 31 20 |00 400 2| 29 [31 |
|000044e0| 32 38 20 33 31 20 33 30 | 20 33 31 20 33 30 20 33 |28 31 30| 31 30 3|
|000044f0| 31 20 33 31 20 33 30 20 | 33 31 20 33 30 20 33 31 |1 31 30 |31 30 31|
|00004500| 5d 20 6d 61 72 6b 2d 76 | 69 73 69 62 6c 65 2d 63 |] mark-v|isible-c|
|00004510| 61 6c 65 6e 64 61 72 2d | 64 61 74 65 5d 20 34 20 |alendar-|date] 4 |
|00004520| 22 5c 0a 4d 61 72 6b 20 | 64 61 74 65 73 20 69 6e |"\.Mark |dates in|
|00004530| 20 74 68 65 20 4d 4f 4e | 54 48 2f 59 45 41 52 20 | the MON|TH/YEAR |
|00004540| 74 68 61 74 20 63 6f 6e | 66 6f 72 6d 20 74 6f 20 |that con|form to |
|00004550| 70 61 74 74 65 72 6e 20 | 50 2d 4d 4f 4e 54 48 2f |pattern |P-MONTH/|
|00004560| 50 5f 44 41 59 2f 50 2d | 59 45 41 52 2e 0a 41 20 |P_DAY/P-|YEAR..A |
|00004570| 76 61 6c 75 65 20 6f 66 | 20 30 20 69 6e 20 61 6e |value of| 0 in an|
|00004580| 79 20 70 6f 73 69 74 69 | 6f 6e 20 6f 66 20 74 68 |y positi|on of th|
|00004590| 65 20 70 61 74 74 65 72 | 6e 20 69 73 20 61 20 77 |e patter|n is a w|
|000045a0| 69 6c 64 2d 63 61 72 64 | 2e 22 5d 29 0a 28 66 73 |ild-card|."]).(fs|
|000045b0| 65 74 20 27 73 6f 72 74 | 2d 64 69 61 72 79 2d 65 |et 'sort|-diary-e|
|000045c0| 6e 74 72 69 65 73 20 23 | 5b 6e 69 6c 20 22 c0 09 |ntries #|[nil "..|
|000045d0| c2 5c 22 89 11 87 22 20 | 5b 73 6f 72 74 20 64 69 |.\"..." |[sort di|
|000045e0| 61 72 79 2d 65 6e 74 72 | 69 65 73 2d 6c 69 73 74 |ary-entr|ies-list|
|000045f0| 20 64 69 61 72 79 2d 65 | 6e 74 72 79 2d 63 6f 6d | diary-e|ntry-com|
|00004600| 70 61 72 65 5d 20 33 20 | 22 5c 0a 53 6f 72 74 20 |pare] 3 |"\.Sort |
|00004610| 74 68 65 20 6c 69 73 74 | 20 6f 66 20 64 69 61 72 |the list| of diar|
|00004620| 79 20 65 6e 74 72 69 65 | 73 20 62 79 20 74 69 6d |y entrie|s by tim|
|00004630| 65 20 6f 66 20 64 61 79 | 2e 22 5d 29 0a 28 66 73 |e of day|."]).(fs|
|00004640| 65 74 20 27 64 69 61 72 | 79 2d 65 6e 74 72 79 2d |et 'diar|y-entry-|
|00004650| 63 6f 6d 70 61 72 65 20 | 23 5b 28 65 31 20 65 32 |compare |#[(e1 e2|
|00004660| 29 20 22 c0 09 5c 6e 5c | 22 ae 93 c3 09 40 5c 6e |) "..\n\|"....@\n|
|00004670| 40 5c 22 ad 8b c4 09 41 | 40 21 c4 5c 6e 41 40 21 |@\"....A|@!.\nA@!|
|00004680| 57 87 22 20 5b 63 61 6c | 65 6e 64 61 72 2d 64 61 |W." [cal|endar-da|
|00004690| 74 65 2d 63 6f 6d 70 61 | 72 65 20 65 31 20 65 32 |te-compa|re e1 e2|
|000046a0| 20 63 61 6c 65 6e 64 61 | 72 2d 64 61 74 65 2d 65 | calenda|r-date-e|
|000046b0| 71 75 61 6c 20 64 69 61 | 72 79 2d 65 6e 74 72 79 |qual dia|ry-entry|
|000046c0| 2d 74 69 6d 65 5d 20 33 | 20 22 5c 0a 52 65 74 75 |-time] 3| "\.Retu|
|000046d0| 72 6e 73 20 74 20 69 66 | 20 45 31 20 69 73 20 65 |rns t if| E1 is e|
|000046e0| 61 72 6c 69 65 72 20 74 | 68 61 6e 20 45 32 2e 22 |arlier t|han E2."|
|000046f0| 5d 29 0a 28 66 73 65 74 | 20 27 64 69 61 72 79 2d |]).(fset| 'diary-|
|00004700| 65 6e 74 72 79 2d 74 69 | 6d 65 20 23 5b 28 73 29 |entry-ti|me #[(s)|
|00004710| 20 22 c0 c1 5c 6e 5c 22 | ab 94 c3 5c 6e c4 94 c4 | "..\n\"|...\n...|
|00004720| 95 4f 21 c5 5f c3 5c 6e | c6 94 c6 95 4f 21 5c 5c |.O!._.\n|....O!\\|
|00004730| 87 c0 c7 5c 6e 5c 22 ab | 9c c3 5c 6e c4 94 c4 95 |...\n\".|..\n....|
|00004740| 4f 21 c8 a6 c5 5f 5c 6e | c6 94 c6 95 4f c9 98 ab |O!..._\n|....O...|
|00004750| 83 ca aa 81 cb 5c 5c 87 | c0 cc 5c 6e 5c 22 ab a5 |.....\\.|..\n\"..|
|00004760| c3 5c 6e c4 94 c4 95 4f | 21 c8 a6 c5 5f c3 5c 6e |.\n....O|!..._.\n|
|00004770| c6 94 c6 95 4f 21 5c 6e | cd 94 cd 95 4f c9 98 ab |....O!\n|....O...|
|00004780| 83 ca aa 81 cb 5c 5c 5c | 5c 87 ce 87 22 20 5b 73 |.....\\\|\..." [s|
|00004790| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 5e 20 2a |tring-ma|tch "^ *|
|000047a0| 5c 5c 28 5b 30 2d 39 5d | 3f 5b 30 2d 39 5d 5c 5c |\\([0-9]|?[0-9]\\|
|000047b0| 29 3a 3f 5c 5c 28 5b 30 | 2d 39 5d 5b 30 2d 39 5d |):?\\([0|-9][0-9]|
|000047c0| 5c 5c 29 5c 5c 28 5c 5c | 3e 5c 5c 7c 5b 5e 61 70 |\\)\\(\\|>\\|[^ap|
|000047d0| 5d 5c 5c 29 22 20 73 20 | 73 74 72 69 6e 67 2d 74 |]\\)" s |string-t|
|000047e0| 6f 2d 69 6e 74 20 31 20 | 31 30 30 20 32 20 22 5e |o-int 1 |100 2 "^|
|000047f0| 20 2a 5c 5c 28 5b 30 2d | 39 5d 3f 5b 30 2d 39 5d | *\\([0-|9]?[0-9]|
|00004800| 5c 5c 29 5c 5c 28 5b 61 | 70 5d 5c 5c 29 6d 5c 5c |\\)\\([a|p]\\)m\\|
|00004810| 3e 22 20 31 32 20 22 61 | 22 20 30 20 31 32 30 30 |>" 12 "a|" 0 1200|
|00004820| 20 22 5e 20 2a 5c 5c 28 | 5b 30 2d 39 5d 3f 5b 30 | "^ *\\(|[0-9]?[0|
|00004830| 2d 39 5d 5c 5c 29 3a 5c | 5c 28 5b 30 2d 39 5d 5b |-9]\\):\|\([0-9][|
|00004840| 30 2d 39 5d 5c 5c 29 5c | 5c 28 5b 61 70 5d 5c 5c |0-9]\\)\|\([ap]\\|
|00004850| 29 6d 5c 5c 3e 22 20 33 | 20 2d 39 39 39 39 5d 20 |)m\\>" 3| -9999] |
|00004860| 35 20 22 5c 0a 54 69 6d | 65 20 61 74 20 74 68 65 |5 "\.Tim|e at the|
|00004870| 20 62 65 67 69 6e 6e 69 | 6e 67 20 6f 66 20 74 68 | beginni|ng of th|
|00004880| 65 20 73 74 72 69 6e 67 | 20 53 20 69 6e 20 61 20 |e string| S in a |
|00004890| 6d 69 6c 69 74 61 72 79 | 2d 73 74 79 6c 65 20 69 |military|-style i|
|000048a0| 6e 74 65 67 65 72 2e 0a | 46 6f 72 20 65 78 61 6d |nteger..|For exam|
|000048b0| 70 6c 65 2c 20 72 65 74 | 75 72 6e 73 20 31 33 32 |ple, ret|urns 132|
|000048c0| 35 20 66 6f 72 20 31 3a | 32 35 70 6d 2e 20 20 52 |5 for 1:|25pm.  R|
|000048d0| 65 74 75 72 6e 73 20 2d | 39 39 39 39 20 69 66 20 |eturns -|9999 if |
|000048e0| 6e 6f 20 74 69 6d 65 20 | 69 73 20 72 65 63 6f 67 |no time |is recog|
|000048f0| 6e 69 7a 65 64 2e 0a 54 | 68 65 20 72 65 63 6f 67 |nized..T|he recog|
|00004900| 6e 69 7a 65 64 20 66 6f | 72 6d 73 20 61 72 65 20 |nized fo|rms are |
|00004910| 58 58 58 58 20 6f 72 20 | 58 3a 58 58 20 6f 72 20 |XXXX or |X:XX or |
|00004920| 58 58 3a 58 58 20 28 6d | 69 6c 69 74 61 72 79 20 |XX:XX (m|ilitary |
|00004930| 74 69 6d 65 29 2c 20 58 | 58 61 6d 20 6f 72 20 58 |time), X|Xam or X|
|00004940| 58 70 6d 2c 0a 61 6e 64 | 20 58 58 3a 58 58 61 6d |Xpm,.and| XX:XXam|
|00004950| 20 6f 72 20 58 58 3a 58 | 58 70 6d 2e 22 5d 29 0a | or XX:X|Xpm."]).|
|00004960| 28 66 73 65 74 20 27 6c | 69 73 74 2d 68 65 62 72 |(fset 'l|ist-hebr|
|00004970| 65 77 2d 64 69 61 72 79 | 2d 65 6e 74 72 69 65 73 |ew-diary|-entries|
|00004980| 20 23 5b 6e 69 6c 20 22 | c0 09 57 83 3c 02 c2 c3 | #[nil "|..W.<...|
|00004990| 20 0c c5 0e 06 21 1e 07 | 1e 08 1e 09 1e 5c 6e c0 | ....!..|.....\n.|
|000049a0| 1e 0b 09 0e 0b 54 89 16 | 0b 59 83 33 02 0e 0c 1e |.....T..|.Y.3....|
|000049b0| 0d ce 0e 08 40 0e 08 41 | 40 0e 08 41 41 40 1e 0f |....@..A|@..AA@..|
|000049c0| 1e 10 1e 11 0e 08 40 1e | 11 0e 08 41 40 1e 10 0e |......@.|...A@...|
|000049d0| 08 41 41 40 1e 0f 0e 10 | 0e 11 53 d2 5f 5c 5c 1e |.AA@....|..S._\\.|
|000049e0| 13 0e 11 d4 56 ab aa 0e | 13 0e 11 d5 5f d6 5c 5c |....V...|...._.\\|
|000049f0| d7 a5 5a 16 13 0e 0f d5 | a6 c0 55 ab 88 0e 0f d8 |..Z.....|..U.....|
|00004a00| a6 c0 55 ab 88 0e 0f d9 | a6 c0 55 ab 85 0e 13 54 |..U.....|..U....T|
|00004a10| 16 13 0e 13 2c 0e 0f 53 | da 5f 0e 0f 53 d5 a5 0e |....,..S|._..S...|
|00004a20| 0f 53 d8 a5 5b 0e 0f 53 | d9 a5 5c 5c 5c 5c 5c 5c |.S..[..S|..\\\\\\|
|00004a30| 5c 5c 2b 21 89 1e 1b 40 | 1e 11 0e 1b 41 40 1e 10 |\\+!...@|....A@..|
|00004a40| 0e 1b 41 41 40 1e 0f 0e | 0d 83 ad 01 0e 0d 40 40 |..AA@...|......@@|
|00004a50| dc 9a ab 86 0e 0d 40 41 | aa 83 0e 0d 40 1e 1d 0e |......@A|....@...|
|00004a60| 0d 40 40 dc 9a 1e 1c de | 0e 08 21 df de 0e 08 21 |.@@.....|..!....!|
|00004a70| c0 e0 4f e1 52 1e 5c 22 | 0e 23 1e 24 e5 e6 0e 11 |..O.R.\"|.#.$....|
|00004a80| 21 50 1e 27 e8 e9 0e 11 | 21 50 1e 11 e8 e9 0e 10 |!P.'....|!P......|
|00004a90| 21 50 1e 10 e8 e9 0e 0f | 21 0e 2a ab 8a df e9 0e |!P......|!.*.....|
|00004aa0| 0f d8 a6 21 50 aa 81 eb | 51 1e 0f ec 0e 07 ed c5 |...!P...|Q.......|
|00004ab0| 0e 2e 21 ef f0 f1 0e 1d | f2 23 f3 b0 07 1e 34 f5 |..!.....|.#....4.|
|00004ac0| 1e 36 65 62 88 f7 0e 34 | c2 f5 23 ab e5 0e 1c ab |.6eb...4|..#.....|
|00004ad0| 86 f8 f9 c2 f5 23 88 fa | 68 fb 5c 22 ac 86 fa 68 |.....#..|h.\"...h|
|00004ae0| d7 5c 22 ab 8b fc fd 21 | ac 86 fe ff 21 88 aa 57 |.\"....!|....!..W|
|00004af0| 60 c2 1e 40 1e 41 f8 81 | 42 00 21 88 60 16 40 f7 |`..@.A..|B.!.`.@.|
|00004b00| 81 43 00 c2 f5 d4 24 88 | fc fd 21 ab 8a f7 81 43 |.C....$.|..!....C|
|00004b10| 00 c2 f5 23 88 aa 71 fe | ff 21 88 81 44 00 0e 40 |...#..q.|.!..D..@|
|00004b20| 60 fb d7 f5 25 88 81 45 | 00 0e 08 0e 41 60 7b 5c |`...%..E|....A`{\|
|00004b30| 22 88 2a aa 13 2e 5c 6e | 0e 0d 41 89 16 0d 84 bd |".*...\n|..A.....|
|00004b40| 00 2d 81 46 00 0e 08 40 | 0e 08 41 40 0e 08 41 41 |.-.F...@|..A@..AA|
|00004b50| 40 1e 0f 1e 10 1e 11 0e | 08 40 1e 11 0e 08 41 40 |@.......|.@....A@|
|00004b60| 1e 10 0e 08 41 41 40 1e | 0f 0e 10 0e 11 53 d2 5f |....AA@.|.....S._|
|00004b70| 5c 5c 1e 13 0e 11 d4 56 | ab aa 0e 13 0e 11 d5 5f |\\.....V|......._|
|00004b80| d6 5c 5c d7 a5 5a 16 13 | 0e 0f d5 a6 c0 55 ab 88 |.\\..Z..|.....U..|
|00004b90| 0e 0f d8 a6 c0 55 ab 88 | 0e 0f d9 a6 c0 55 ab 85 |.....U..|.....U..|
|00004ba0| 0e 13 54 16 13 0e 13 2c | 0e 0f 53 da 5f 0e 0f 53 |..T....,|..S._..S|
|00004bb0| d5 a5 0e 0f 53 d8 a5 5b | 0e 0f 53 d9 a5 5c 5c 5c |....S..[|..S..\\\|
|00004bc0| 5c 5c 5c 5c 5c 2b 54 21 | 16 08 82 19 00 29 81 47 |\\\\\+T!|.....).G|
|00004bd0| 00 0e 09 21 2c 87 65 62 | 87 22 20 5b 30 20 6e 75 |...!,.eb|." [0 nu|
|00004be0| 6d 62 65 72 20 6e 69 6c | 20 62 75 66 66 65 72 2d |mber nil| buffer-|
|00004bf0| 6d 6f 64 69 66 69 65 64 | 2d 70 20 6f 72 69 67 69 |modified|-p origi|
|00004c00| 6e 61 6c 2d 64 61 74 65 | 20 72 65 67 65 78 70 2d |nal-date| regexp-|
|00004c10| 71 75 6f 74 65 20 64 69 | 61 72 79 2d 6e 6f 6e 6d |quote di|ary-nonm|
|00004c20| 61 72 6b 69 6e 67 2d 73 | 79 6d 62 6f 6c 20 6d 61 |arking-s|ymbol ma|
|00004c30| 72 6b 20 67 64 61 74 65 | 20 64 69 61 72 79 2d 6d |rk gdate| diary-m|
|00004c40| 6f 64 69 66 69 65 64 20 | 62 75 66 66 65 72 2d 72 |odified |buffer-r|
|00004c50| 65 61 64 2d 6f 6e 6c 79 | 20 69 20 64 69 61 72 79 |ead-only| i diary|
|00004c60| 2d 64 61 74 65 2d 66 6f | 72 6d 73 20 64 20 63 61 |-date-fo|rms d ca|
|00004c70| 6c 65 6e 64 61 72 2d 68 | 65 62 72 65 77 2d 66 72 |lendar-h|ebrew-fr|
|00004c80| 6f 6d 2d 61 62 73 6f 6c | 75 74 65 20 79 65 61 72 |om-absol|ute year|
|00004c90| 20 64 61 79 20 6d 6f 6e | 74 68 20 33 31 20 64 61 | day mon|th 31 da|
|00004ca0| 79 2d 6f 66 2d 79 65 61 | 72 20 32 20 34 20 32 33 |y-of-yea|r 2 4 23|
|00004cb0| 20 31 30 20 31 30 30 20 | 34 30 30 20 33 36 35 20 | 10 100 |400 365 |
|00004cc0| 68 64 61 74 65 20 62 61 | 63 6b 75 70 20 64 61 74 |hdate ba|ckup dat|
|00004cd0| 65 2d 66 6f 72 6d 20 63 | 61 6c 65 6e 64 61 72 2d |e-form c|alendar-|
|00004ce0| 64 61 79 2d 6e 61 6d 65 | 20 22 5c 5c 7c 22 20 33 |day-name| "\\|" 3|
|00004cf0| 20 22 2e 3f 22 20 64 61 | 79 6e 61 6d 65 20 63 61 | ".?" da|yname ca|
|00004d00| 6c 65 6e 64 61 72 2d 68 | 65 62 72 65 77 2d 6d 6f |lendar-h|ebrew-mo|
|00004d10| 6e 74 68 2d 6e 61 6d 65 | 2d 61 72 72 61 79 2d 6c |nth-name|-array-l|
|00004d20| 65 61 70 2d 79 65 61 72 | 20 63 61 6c 65 6e 64 61 |eap-year| calenda|
|00004d30| 72 2d 6d 6f 6e 74 68 2d | 6e 61 6d 65 2d 61 72 72 |r-month-|name-arr|
|00004d40| 61 79 20 22 5c 5c 2a 5c | 5c 7c 22 20 63 61 6c 65 |ay "\\*\|\|" cale|
|00004d50| 6e 64 61 72 2d 6d 6f 6e | 74 68 2d 6e 61 6d 65 20 |ndar-mon|th-name |
|00004d60| 6d 6f 6e 74 68 6e 61 6d | 65 20 22 5c 5c 2a 5c 5c |monthnam|e "\\*\\|
|00004d70| 7c 30 2a 22 20 69 6e 74 | 2d 74 6f 2d 73 74 72 69 ||0*" int|-to-stri|
|00004d80| 6e 67 20 61 62 62 72 65 | 76 69 61 74 65 64 2d 63 |ng abbre|viated-c|
|00004d90| 61 6c 65 6e 64 61 72 2d | 79 65 61 72 20 22 22 20 |alendar-|year "" |
|00004da0| 22 5c 5c 28 5c 5c 60 5c | 5c 7c 0d 5c 5c 7c 5c 6e |"\\(\\`\|\|.\\|\n|
|00004db0| 5c 5c 29 22 20 22 3f 22 | 20 68 65 62 72 65 77 2d |\\)" "?"| hebrew-|
|00004dc0| 64 69 61 72 79 2d 65 6e | 74 72 79 2d 73 79 6d 62 |diary-en|try-symb|
|00004dd0| 6f 6c 20 22 5c 5c 28 22 | 20 6d 61 70 63 6f 6e 63 |ol "\\("| mapconc|
|00004de0| 61 74 20 65 76 61 6c 20 | 22 5c 5c 29 5c 5c 28 22 |at eval |"\\)\\("|
|00004df0| 20 22 5c 5c 29 22 20 72 | 65 67 65 78 70 20 74 20 | "\\)" r|egexp t |
|00004e00| 63 61 73 65 2d 66 6f 6c | 64 2d 73 65 61 72 63 68 |case-fol|d-search|
|00004e10| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|00004e20| 72 64 20 72 65 2d 73 65 | 61 72 63 68 2d 62 61 63 |rd re-se|arch-bac|
|00004e30| 6b 77 61 72 64 20 22 5c | 5c 3c 22 20 63 68 61 72 |kward "\|\<" char|
|00004e40| 2d 65 71 75 61 6c 20 31 | 33 20 6c 6f 6f 6b 69 6e |-equal 1|3 lookin|
|00004e50| 67 2d 61 74 20 22 20 5c | 5c 7c 09 22 20 62 61 63 |g-at " \|\|." bac|
|00004e60| 6b 77 61 72 64 2d 63 68 | 61 72 20 31 20 64 61 74 |kward-ch|ar 1 dat|
|00004e70| 65 2d 73 74 61 72 74 20 | 65 6e 74 72 79 2d 73 74 |e-start |entry-st|
|00004e80| 61 72 74 20 22 0d 5c 5c | 7c 5c 6e 5c 5c 7c 5c 5c |art ".\\||\n\\|\\|
|00004e90| 60 22 20 22 0d 5c 5c 7c | 5c 6e 22 20 73 75 62 73 |`" ".\\||\n" subs|
|00004ea0| 74 2d 63 68 61 72 2d 69 | 6e 2d 72 65 67 69 6f 6e |t-char-i|n-region|
|00004eb0| 20 61 64 64 2d 74 6f 2d | 64 69 61 72 79 2d 6c 69 | add-to-|diary-li|
|00004ec0| 73 74 20 63 61 6c 65 6e | 64 61 72 2d 67 72 65 67 |st calen|dar-greg|
|00004ed0| 6f 72 69 61 6e 2d 66 72 | 6f 6d 2d 61 62 73 6f 6c |orian-fr|om-absol|
|00004ee0| 75 74 65 20 73 65 74 2d | 62 75 66 66 65 72 2d 6d |ute set-|buffer-m|
|00004ef0| 6f 64 69 66 69 65 64 2d | 70 5d 20 31 30 20 22 5c |odified-|p] 10 "\|
|00004f00| 0a 41 64 64 20 61 6e 79 | 20 48 65 62 72 65 77 20 |.Add any| Hebrew |
|00004f10| 64 61 74 65 20 65 6e 74 | 72 69 65 73 20 66 72 6f |date ent|ries fro|
|00004f20| 6d 20 74 68 65 20 64 69 | 61 72 79 2d 66 69 6c 65 |m the di|ary-file|
|00004f30| 20 74 6f 20 64 69 61 72 | 79 2d 65 6e 74 72 69 65 | to diar|y-entrie|
|00004f40| 73 2d 6c 69 73 74 2e 0a | 48 65 62 72 65 77 20 64 |s-list..|Hebrew d|
|00004f50| 61 74 65 20 64 69 61 72 | 79 20 65 6e 74 72 69 65 |ate diar|y entrie|
|00004f60| 73 20 6d 75 73 74 20 62 | 65 20 70 72 65 66 61 63 |s must b|e prefac|
|00004f70| 65 64 20 62 79 20 61 20 | 68 65 62 72 65 77 2d 64 |ed by a |hebrew-d|
|00004f80| 69 61 72 79 2d 65 6e 74 | 72 79 2d 73 79 6d 62 6f |iary-ent|ry-symbo|
|00004f90| 6c 0a 28 6e 6f 72 6d 61 | 6c 6c 79 20 61 6e 20 60 |l.(norma|lly an `|
|00004fa0| 48 27 29 2e 20 20 54 68 | 65 20 73 61 6d 65 20 64 |H').  Th|e same d|
|00004fb0| 69 61 72 79 2d 64 61 74 | 65 2d 66 6f 72 6d 73 20 |iary-dat|e-forms |
|00004fc0| 67 6f 76 65 72 6e 20 74 | 68 65 20 73 74 79 6c 65 |govern t|he style|
|00004fd0| 20 6f 66 20 74 68 65 20 | 48 65 62 72 65 77 0a 63 | of the |Hebrew.c|
|00004fe0| 61 6c 65 6e 64 61 72 20 | 65 6e 74 72 69 65 73 2c |alendar |entries,|
|00004ff0| 20 65 78 63 65 70 74 20 | 74 68 61 74 20 74 68 65 | except |that the|
|00005000| 20 48 65 62 72 65 77 20 | 6d 6f 6e 74 68 20 6e 61 | Hebrew |month na|
|00005010| 6d 65 73 20 6d 75 73 74 | 20 62 65 20 73 70 65 6c |mes must| be spel|
|00005020| 6c 65 64 20 69 6e 20 66 | 75 6c 6c 2e 0a 54 68 65 |led in f|ull..The|
|00005030| 20 48 65 62 72 65 77 20 | 6d 6f 6e 74 68 73 20 61 | Hebrew |months a|
|00005040| 72 65 20 6e 75 6d 62 65 | 72 65 64 20 66 72 6f 6d |re numbe|red from|
|00005050| 20 31 20 74 6f 20 31 33 | 20 77 69 74 68 20 4e 69 | 1 to 13| with Ni|
|00005060| 73 61 6e 20 62 65 69 6e | 67 20 31 2c 20 31 32 20 |san bein|g 1, 12 |
|00005070| 62 65 69 6e 67 0a 41 64 | 61 72 20 49 20 61 6e 64 |being.Ad|ar I and|
|00005080| 20 31 33 20 62 65 69 6e | 67 20 41 64 61 72 20 49 | 13 bein|g Adar I|
|00005090| 49 3b 20 79 6f 75 20 6d | 75 73 74 20 75 73 65 20 |I; you m|ust use |
|000050a0| 60 41 64 61 72 20 49 27 | 20 69 66 20 79 6f 75 20 |`Adar I'| if you |
|000050b0| 77 61 6e 74 20 41 64 61 | 72 20 6f 66 20 61 0a 63 |want Ada|r of a.c|
|000050c0| 6f 6d 6d 6f 6e 20 48 65 | 62 72 65 77 20 79 65 61 |ommon He|brew yea|
|000050d0| 72 2e 20 20 49 66 20 61 | 20 48 65 62 72 65 77 20 |r.  If a| Hebrew |
|000050e0| 64 61 74 65 20 64 69 61 | 72 79 20 65 6e 74 72 79 |date dia|ry entry|
|000050f0| 20 62 65 67 69 6e 73 20 | 77 69 74 68 20 61 0a 64 | begins |with a.d|
|00005100| 69 61 72 79 2d 6e 6f 6e | 6d 61 72 6b 69 6e 67 2d |iary-non|marking-|
|00005110| 73 79 6d 62 6f 6c 20 74 | 68 65 20 65 6e 74 72 79 |symbol t|he entry|
|00005120| 20 77 69 6c 6c 20 61 70 | 70 65 61 72 20 69 6e 20 | will ap|pear in |
|00005130| 74 68 65 20 64 69 61 72 | 79 20 6c 69 73 74 69 6e |the diar|y listin|
|00005140| 67 2c 20 62 75 74 20 77 | 69 6c 6c 0a 6e 6f 74 20 |g, but w|ill.not |
|00005150| 62 65 20 6d 61 72 6b 65 | 64 20 69 6e 20 74 68 65 |be marke|d in the|
|00005160| 20 63 61 6c 65 6e 64 61 | 72 2e 20 20 54 68 69 73 | calenda|r.  This|
|00005170| 20 66 75 6e 63 74 69 6f | 6e 20 69 73 20 70 72 6f | functio|n is pro|
|00005180| 76 69 64 65 64 20 66 6f | 72 20 75 73 65 20 77 69 |vided fo|r use wi|
|00005190| 74 68 20 74 68 65 0a 6e | 6f 6e 67 72 65 67 6f 72 |th the.n|ongregor|
|000051a0| 69 61 6e 2d 64 69 61 72 | 79 2d 6c 69 73 74 69 6e |ian-diar|y-listin|
|000051b0| 67 2d 68 6f 6f 6b 2e 22 | 5d 29 0a 28 66 73 65 74 |g-hook."|]).(fset|
|000051c0| 20 27 6d 61 72 6b 2d 68 | 65 62 72 65 77 2d 64 69 | 'mark-h|ebrew-di|
|000051d0| 61 72 79 2d 65 6e 74 72 | 69 65 73 20 23 5b 6e 69 |ary-entr|ies #[ni|
|000051e0| 6c 20 22 08 89 19 85 25 | 02 09 40 40 c2 9a ab 85 |l "....%|..@@....|
|000051f0| 09 40 41 aa 82 09 40 1b | c4 0d 21 1e 06 c4 0e 07 |.@A...@.|..!.....|
|00005200| c8 5c 22 c9 50 1e 5c 6e | cb 1e 0c cb 1e 0d cb 1e |.\".P.\n|........|
|00005210| 0e 0b 47 89 1e 0f c6 0b | 3e 47 5a 1e 10 0e 0f 0e |..G.....|>GZ.....|
|00005220| 10 55 3f ad 84 0e 10 d1 | 5c 5c 1e 10 0e 0f ca 0b |.U?.....|\\......|
|00005230| 3e 47 5a 1e 12 0e 0f 0e | 12 55 3f ad 84 0e 12 d1 |>GZ.....|.U?.....|
|00005240| 5c 5c 1e 12 0e 0f cd 0b | 3e 47 5a 1e 13 0e 0f 0e |\\......|>GZ.....|
|00005250| 13 55 3f ad 84 0e 13 d1 | 5c 5c 1e 13 0e 0f cc 0b |.U?.....|\\......|
|00005260| 3e 47 5a 1e 14 0e 0f 0e | 14 55 3f ad 84 0e 14 d1 |>GZ.....|.U?.....|
|00005270| 5c 5c 1e 14 0e 0f ce 0b | 3e 47 5a 1e 15 0e 0f 0e |\\......|>GZ.....|
|00005280| 15 55 3f ad 84 0e 15 d1 | 5c 5c 1e 15 d6 d7 0e 18 |.U?.....|\\......|
|00005290| 21 d9 da db 0b dc 23 dd | b0 05 1e 1e c8 1e 1f 65 |!.....#.|.......e|
|000052a0| 62 88 e0 0e 1e e1 c8 23 | 83 1b 02 0e 10 ad 87 0e |b......#|........|
|000052b0| 10 94 0e 10 95 7b 1e 5c | 22 0e 12 ad 87 0e 12 94 |.....{.\|".......|
|000052c0| 0e 12 95 7b 1e 23 e4 0e | 14 ab 89 0e 14 94 0e 14 |...{.#..|........|
|000052d0| 95 7b aa 81 e5 21 1e 26 | e4 0e 13 ab 89 0e 13 94 |.{...!.&|........|
|000052e0| 0e 13 95 7b aa 81 e5 21 | 1e 27 0e 15 ad 87 0e 15 |...{...!|.'......|
|000052f0| 94 0e 15 95 7b 89 1e 28 | ac 84 e9 82 d5 01 0e 28 |....{..(|.......(|
|00005300| 47 d1 55 83 d1 01 0e 2a | 83 d1 01 eb ec 20 40 ec |G.U....*|..... @.|
|00005310| 20 41 40 ec 20 41 41 40 | 1e 0e 1e 0d 1e 0c ec 20 | A@. AA@|....... |
|00005320| 40 1e 0c ec 20 41 40 1e | 0d ec 20 41 41 40 1e 0e |@... A@.|.. AA@..|
|00005330| 0e 0d 0e 0c 53 ed 5f 5c | 5c 1e 2e 0e 0c d1 56 ab |....S._\|\.....V.|
|00005340| aa 0e 2e 0e 0c ef 5f f0 | 5c 5c f1 a5 5a 16 2e 0e |......_.|\\..Z...|
|00005350| 0e ef a6 e9 55 ab 88 0e | 0e f2 a6 e9 55 ab 88 0e |....U...|....U...|
|00005360| 0e f3 a6 e9 55 ab 85 0e | 2e 54 16 2e 0e 2e 2c 0e |....U...|.T....,.|
|00005370| 0e 53 f4 5f 0e 0e 53 ef | a5 0e 0e 53 f2 a5 5b 0e |.S._..S.|...S..[.|
|00005380| 0e 53 f3 a5 5c 5c 5c 5c | 5c 5c 5c 5c 2b 21 41 41 |.S..\\\\|\\\\+!AA|
|00005390| 40 1e 35 e4 0e 28 21 0e | 35 f2 a5 f2 5f 5c 5c 89 |@.5..(!.|5..._\\.|
|000053a0| 1e 36 0e 35 5a f7 56 ab | 86 0e 36 f2 5a aa 91 0e |.6.5Z.V.|..6.Z...|
|000053b0| 35 0e 36 5a f7 56 ab 86 | 0e 36 f2 5c 5c aa 82 0e |5.6Z.V..|.6.\\...|
|000053c0| 36 2a aa 84 e4 0e 28 21 | 1e 38 0e 5c 22 ab 94 f9 |6*....(!|.8.\"...|
|000053d0| fa fb 0e 5c 22 e9 fc 4f | 21 fd 0d e9 fe 23 5c 22 |...\"..O|!....#\"|
|000053e0| 41 21 88 aa a7 0e 23 ab | 98 0e 23 ff 98 ab 85 e9 |A!....#.|..#.....|
|000053f0| 16 26 aa 8d fa fb 0e 23 | 21 fd 0e 07 21 5c 22 41 |.&.....#|!...!\"A|
|00005400| 16 26 81 40 00 0e 26 0e | 27 0e 38 23 88 2e 06 82 |.&.@..&.|'.8#....|
|00005410| b8 00 2e 13 09 41 89 11 | 84 06 00 e1 29 87 22 20 |.....A..|....)." |
|00005420| 5b 64 69 61 72 79 2d 64 | 61 74 65 2d 66 6f 72 6d |[diary-d|ate-form|
|00005430| 73 20 64 20 62 61 63 6b | 75 70 20 64 61 74 65 2d |s d back|up date-|
|00005440| 66 6f 72 6d 20 64 69 61 | 72 79 2d 6e 61 6d 65 2d |form dia|ry-name-|
|00005450| 70 61 74 74 65 72 6e 20 | 63 61 6c 65 6e 64 61 72 |pattern |calendar|
|00005460| 2d 64 61 79 2d 6e 61 6d | 65 2d 61 72 72 61 79 20 |-day-nam|e-array |
|00005470| 64 61 79 6e 61 6d 65 20 | 63 61 6c 65 6e 64 61 72 |dayname |calendar|
|00005480| 2d 68 65 62 72 65 77 2d | 6d 6f 6e 74 68 2d 6e 61 |-hebrew-|month-na|
|00005490| 6d 65 2d 61 72 72 61 79 | 2d 6c 65 61 70 2d 79 65 |me-array|-leap-ye|
|000054a0| 61 72 20 74 20 22 5c 5c | 7c 5c 5c 2a 22 20 6d 6f |ar t "\\||\\*" mo|
|000054b0| 6e 74 68 6e 61 6d 65 20 | 22 5b 30 2d 39 5d 2b 5c |nthname |"[0-9]+\|
|000054c0| 5c 7c 5c 5c 2a 22 20 6d | 6f 6e 74 68 20 64 61 79 |\|\\*" m|onth day|
|000054d0| 20 79 65 61 72 20 6c 20 | 64 2d 6e 61 6d 65 2d 70 | year l |d-name-p|
|000054e0| 6f 73 20 32 20 6d 2d 6e | 61 6d 65 2d 70 6f 73 20 |os 2 m-n|ame-pos |
|000054f0| 64 2d 70 6f 73 20 6d 2d | 70 6f 73 20 79 2d 70 6f |d-pos m-|pos y-po|
|00005500| 73 20 22 5c 5c 28 5c 5c | 60 5c 5c 7c 0d 5c 5c 7c |s "\\(\\|`\\|.\\||
|00005510| 5c 6e 5c 5c 29 22 20 72 | 65 67 65 78 70 2d 71 75 |\n\\)" r|egexp-qu|
|00005520| 6f 74 65 20 68 65 62 72 | 65 77 2d 64 69 61 72 79 |ote hebr|ew-diary|
|00005530| 2d 65 6e 74 72 79 2d 73 | 79 6d 62 6f 6c 20 22 5c |-entry-s|ymbol "\|
|00005540| 5c 28 22 20 6d 61 70 63 | 6f 6e 63 61 74 20 65 76 |\(" mapc|oncat ev|
|00005550| 61 6c 20 22 5c 5c 29 5c | 5c 28 22 20 22 5c 5c 29 |al "\\)\|\(" "\\)|
|00005560| 22 20 72 65 67 65 78 70 | 20 63 61 73 65 2d 66 6f |" regexp| case-fo|
|00005570| 6c 64 2d 73 65 61 72 63 | 68 20 72 65 2d 73 65 61 |ld-searc|h re-sea|
|00005580| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 6e 69 6c 20 |rch-forw|ard nil |
|00005590| 64 64 2d 6e 61 6d 65 20 | 6d 6d 2d 6e 61 6d 65 20 |dd-name |mm-name |
|000055a0| 73 74 72 69 6e 67 2d 74 | 6f 2d 69 6e 74 20 22 22 |string-t|o-int ""|
|000055b0| 20 6d 6d 20 64 64 20 79 | 2d 73 74 72 20 30 20 61 | mm dd y|-str 0 a|
|000055c0| 62 62 72 65 76 69 61 74 | 65 64 2d 63 61 6c 65 6e |bbreviat|ed-calen|
|000055d0| 64 61 72 2d 79 65 61 72 | 20 63 61 6c 65 6e 64 61 |dar-year| calenda|
|000055e0| 72 2d 68 65 62 72 65 77 | 2d 66 72 6f 6d 2d 61 62 |r-hebrew|-from-ab|
|000055f0| 73 6f 6c 75 74 65 20 63 | 61 6c 65 6e 64 61 72 2d |solute c|alendar-|
|00005600| 63 75 72 72 65 6e 74 2d | 64 61 74 65 20 33 31 20 |current-|date 31 |
|00005610| 64 61 79 2d 6f 66 2d 79 | 65 61 72 20 34 20 32 33 |day-of-y|ear 4 23|
|00005620| 20 31 30 20 31 30 30 20 | 34 30 30 20 33 36 35 20 | 10 100 |400 365 |
|00005630| 63 75 72 72 65 6e 74 2d | 79 20 79 20 35 30 20 79 |current-|y y 50 y|
|00005640| 79 20 6d 61 72 6b 2d 63 | 61 6c 65 6e 64 61 72 2d |y mark-c|alendar-|
|00005650| 64 61 79 73 2d 6e 61 6d | 65 64 20 61 73 73 6f 63 |days-nam|ed assoc|
|00005660| 20 63 61 70 69 74 61 6c | 69 7a 65 20 33 20 63 61 | capital|ize 3 ca|
|00005670| 6c 65 6e 64 61 72 2d 6d | 61 6b 65 2d 61 6c 69 73 |lendar-m|ake-alis|
|00005680| 74 20 28 6c 61 6d 62 64 | 61 20 28 78 29 20 28 73 |t (lambd|a (x) (s|
|00005690| 75 62 73 74 72 69 6e 67 | 20 78 20 30 20 33 29 29 |ubstring| x 0 3))|
|000056a0| 20 22 2a 22 20 6d 61 72 | 6b 2d 68 65 62 72 65 77 | "*" mar|k-hebrew|
|000056b0| 2d 63 61 6c 65 6e 64 61 | 72 2d 64 61 74 65 2d 70 |-calenda|r-date-p|
|000056c0| 61 74 74 65 72 6e 5d 20 | 38 20 22 5c 0a 4d 61 72 |attern] |8 "\.Mar|
|000056d0| 6b 20 64 61 79 73 20 69 | 6e 20 74 68 65 20 63 61 |k days i|n the ca|
|000056e0| 6c 65 6e 64 61 72 20 77 | 69 6e 64 6f 77 20 74 68 |lendar w|indow th|
|000056f0| 61 74 20 68 61 76 65 20 | 48 65 62 72 65 77 20 64 |at have |Hebrew d|
|00005700| 61 74 65 20 64 69 61 72 | 79 20 65 6e 74 72 69 65 |ate diar|y entrie|
|00005710| 73 2e 0a 45 61 63 68 20 | 65 6e 74 72 79 20 69 6e |s..Each |entry in|
|00005720| 20 64 69 61 72 79 2d 66 | 69 6c 65 20 28 6f 72 20 | diary-f|ile (or |
|00005730| 69 6e 63 6c 75 64 65 64 | 20 66 69 6c 65 73 29 20 |included| files) |
|00005740| 76 69 73 69 62 6c 65 20 | 69 6e 20 74 68 65 20 63 |visible |in the c|
|00005750| 61 6c 65 6e 64 61 72 20 | 77 69 6e 64 6f 77 0a 69 |alendar |window.i|
|00005760| 73 20 6d 61 72 6b 65 64 | 2e 20 20 48 65 62 72 65 |s marked|.  Hebre|
|00005770| 77 20 64 61 74 65 20 65 | 6e 74 72 69 65 73 20 61 |w date e|ntries a|
|00005780| 72 65 20 70 72 65 66 61 | 63 65 64 20 62 79 20 61 |re prefa|ced by a|
|00005790| 20 68 65 62 72 65 77 2d | 64 69 61 72 79 2d 65 6e | hebrew-|diary-en|
|000057a0| 74 72 79 2d 73 79 6d 62 | 6f 6c 0a 28 6e 6f 72 6d |try-symb|ol.(norm|
|000057b0| 61 6c 6c 79 20 61 6e 20 | 60 48 27 29 2e 20 20 54 |ally an |`H').  T|
|000057c0| 68 65 20 73 61 6d 65 20 | 64 69 61 72 79 2d 64 61 |he same |diary-da|
|000057d0| 74 65 2d 66 6f 72 6d 73 | 20 67 6f 76 65 72 6e 20 |te-forms| govern |
|000057e0| 74 68 65 20 73 74 79 6c | 65 20 6f 66 20 74 68 65 |the styl|e of the|
|000057f0| 20 48 65 62 72 65 77 0a | 63 61 6c 65 6e 64 61 72 | Hebrew.|calendar|
|00005800| 20 65 6e 74 72 69 65 73 | 2c 20 65 78 63 65 70 74 | entries|, except|
|00005810| 20 74 68 61 74 20 74 68 | 65 20 48 65 62 72 65 77 | that th|e Hebrew|
|00005820| 20 6d 6f 6e 74 68 20 6e | 61 6d 65 73 20 6d 75 73 | month n|ames mus|
|00005830| 74 20 62 65 20 73 70 65 | 6c 6c 65 64 20 69 6e 20 |t be spe|lled in |
|00005840| 66 75 6c 6c 2e 0a 54 68 | 65 20 48 65 62 72 65 77 |full..Th|e Hebrew|
|00005850| 20 6d 6f 6e 74 68 73 20 | 61 72 65 20 6e 75 6d 62 | months |are numb|
|00005860| 65 72 65 64 20 66 72 6f | 6d 20 31 20 74 6f 20 31 |ered fro|m 1 to 1|
|00005870| 33 20 77 69 74 68 20 4e | 69 73 61 6e 20 62 65 69 |3 with N|isan bei|
|00005880| 6e 67 20 31 2c 20 31 32 | 20 62 65 69 6e 67 0a 41 |ng 1, 12| being.A|
|00005890| 64 61 72 20 49 20 61 6e | 64 20 31 33 20 62 65 69 |dar I an|d 13 bei|
|000058a0| 6e 67 20 41 64 61 72 20 | 49 49 3b 20 79 6f 75 20 |ng Adar |II; you |
|000058b0| 6d 75 73 74 20 75 73 65 | 20 60 41 64 61 72 20 49 |must use| `Adar I|
|000058c0| 27 20 69 66 20 79 6f 75 | 20 77 61 6e 74 20 41 64 |' if you| want Ad|
|000058d0| 61 72 20 6f 66 20 61 0a | 63 6f 6d 6d 6f 6e 20 48 |ar of a.|common H|
|000058e0| 65 62 72 65 77 20 79 65 | 61 72 2e 20 20 48 65 62 |ebrew ye|ar.  Heb|
|000058f0| 72 65 77 20 64 61 74 65 | 20 64 69 61 72 79 20 65 |rew date| diary e|
|00005900| 6e 74 72 69 65 73 20 74 | 68 61 74 20 62 65 67 69 |ntries t|hat begi|
|00005910| 6e 20 77 69 74 68 20 61 | 0a 64 69 61 72 79 2d 6e |n with a|.diary-n|
|00005920| 6f 6e 6d 61 72 6b 69 6e | 67 20 73 79 6d 62 6f 6c |onmarkin|g symbol|
|00005930| 20 77 69 6c 6c 20 6e 6f | 74 20 62 65 20 6d 61 72 | will no|t be mar|
|00005940| 6b 65 64 20 69 6e 20 74 | 68 65 20 63 61 6c 65 6e |ked in t|he calen|
|00005950| 64 61 72 2e 20 20 54 68 | 69 73 20 66 75 6e 63 74 |dar.  Th|is funct|
|00005960| 69 6f 6e 0a 69 73 20 70 | 72 6f 76 69 64 65 64 20 |ion.is p|rovided |
|00005970| 66 6f 72 20 75 73 65 20 | 61 73 20 70 61 72 74 20 |for use |as part |
|00005980| 6f 66 20 74 68 65 20 6e | 6f 6e 67 72 65 67 6f 72 |of the n|ongregor|
|00005990| 69 61 6e 2d 64 69 61 72 | 79 2d 6d 61 72 6b 69 6e |ian-diar|y-markin|
|000059a0| 67 2d 68 6f 6f 6b 2e 22 | 5d 29 0a 28 66 73 65 74 |g-hook."|]).(fset|
|000059b0| 20 27 6d 61 72 6b 2d 68 | 65 62 72 65 77 2d 63 61 | 'mark-h|ebrew-ca|
|000059c0| 6c 65 6e 64 61 72 2d 64 | 61 74 65 2d 70 61 74 74 |lendar-d|ate-patt|
|000059d0| 65 72 6e 20 23 5b 28 6d | 6f 6e 74 68 20 64 61 79 |ern #[(m|onth day|
|000059e0| 20 79 65 61 72 29 20 22 | 8a 08 71 88 09 c2 55 84 | year) "|..q...U.|
|000059f0| db 02 0b c2 55 84 db 02 | 0c c2 55 ac 98 c5 c6 09 |....U...|..U.....|
|00005a00| 0b 0c 45 21 21 1e 07 c8 | 0e 07 21 ad 84 c9 0e 07 |..E!!...|..!.....|
|00005a10| 21 29 82 52 05 0e 5c 6e | cb 09 57 ab 85 09 cb 5a |!).R..\n|..W....Z|
|00005a20| aa 83 09 cc 5c 5c cd 09 | 57 ab 85 09 cd 5a aa 83 |....\\..|W....Z..|
|00005a30| 09 ce 5c 5c cf 09 57 ab | 85 09 cf 5a aa 83 09 d0 |..\\..W.|...Z....|
|00005a40| 5c 5c d1 09 57 ab 85 09 | d1 5a aa 83 09 d2 5c 5c |\\..W...|.Z....\\|
|00005a50| d3 09 57 ab 85 09 d3 5a | aa 83 09 d4 5c 5c af 05 |..W....Z|....\\..|
|00005a60| 3e 85 52 05 0e 5c 6e 0e | 15 0e 5c 6e 0e 15 d6 1c |>.R..\n.|..\n....|
|00005a70| 1e 17 1e 18 1e 19 1e 1a | 0e 19 db 5f 0e 1a dc 5c |........|..._...\|
|00005a80| 5c 5c 5c 89 1e 1d db a6 | 54 16 1a 0e 1d db a5 16 |\\\.....|T.......|
|00005a90| 19 29 0e 17 db 5f 0e 18 | 5c 5c 89 1e 1d db a6 54 |.)..._..|\\.....T|
|00005aa0| 16 18 0e 1d db a5 16 17 | 29 0e 1a cc 0e 19 45 40 |........|).....E@|
|00005ab0| 0e 1a cc 0e 19 45 41 40 | 0e 1a cc 0e 19 45 41 41 |.....EA@|.....EAA|
|00005ac0| 40 1c 1b 19 0e 1a cc 0e | 19 45 40 19 0e 1a cc 0e |@.......|.E@.....|
|00005ad0| 19 45 41 40 1b 0e 1a cc | 0e 19 45 41 41 40 1c 0b |.EA@....|..EAA@..|
|00005ae0| 09 53 de 5f 5c 5c 1e 1f | 09 ce 56 ab a6 0e 1f 09 |.S._\\..|..V.....|
|00005af0| d2 5f e0 5c 5c cd a5 5a | 16 1f 0c d2 a6 c2 55 ab |._.\\..Z|......U.|
|00005b00| 87 0c e1 a6 c2 55 ab 87 | 0c e2 a6 c2 55 ab 85 0e |.....U..|....U...|
|00005b10| 1f 54 16 1f 0e 1f 2c 0c | 53 e3 5f 0c 53 d2 a5 0c |.T....,.|S._.S...|
|00005b20| 53 e1 a5 5b 0c 53 e2 a5 | 5c 5c 5c 5c 5c 5c 5c 5c |S..[.S..|\\\\\\\\|
|00005b30| 2b 1e 24 0e 18 0e 17 d2 | a6 c2 55 ab 88 0e 17 e1 |+.$.....|..U.....|
|00005b40| a6 c2 55 ab 88 0e 17 e2 | a6 c2 55 ab 89 0e 18 ce |..U.....|..U.....|
|00005b50| 55 ab 83 e5 aa 85 e6 0e | 18 53 48 0e 17 45 40 0e |U.......|.SH..E@.|
|00005b60| 18 0e 17 d2 a6 c2 55 ab | 88 0e 17 e1 a6 c2 55 ab |......U.|......U.|
|00005b70| 88 0e 17 e2 a6 c2 55 ab | 89 0e 18 ce 55 ab 83 e5 |......U.|....U...|
|00005b80| aa 85 e6 0e 18 53 48 0e | 17 45 41 40 0e 18 0e 17 |.....SH.|.EA@....|
|00005b90| d2 a6 c2 55 ab 88 0e 17 | e1 a6 c2 55 ab 88 0e 17 |...U....|...U....|
|00005ba0| e2 a6 c2 55 ab 89 0e 18 | ce 55 ab 83 e5 aa 85 e6 |...U....|.U......|
|00005bb0| 0e 18 53 48 0e 17 45 41 | 41 40 1c 1b 19 0e 18 0e |..SH..EA|A@......|
|00005bc0| 17 d2 a6 c2 55 ab 88 0e | 17 e1 a6 c2 55 ab 88 0e |....U...|....U...|
|00005bd0| 17 e2 a6 c2 55 ab 89 0e | 18 ce 55 ab 83 e5 aa 85 |....U...|..U.....|
|00005be0| e6 0e 18 53 48 0e 17 45 | 40 19 0e 18 0e 17 d2 a6 |...SH..E|@.......|
|00005bf0| c2 55 ab 88 0e 17 e1 a6 | c2 55 ab 88 0e 17 e2 a6 |.U......|.U......|
|00005c00| c2 55 ab 89 0e 18 ce 55 | ab 83 e5 aa 85 e6 0e 18 |.U.....U|........|
|00005c10| 53 48 0e 17 45 41 40 1b | 0e 18 0e 17 d2 a6 c2 55 |SH..EA@.|.......U|
|00005c20| ab 88 0e 17 e1 a6 c2 55 | ab 88 0e 17 e2 a6 c2 55 |.......U|.......U|
|00005c30| ab 89 0e 18 ce 55 ab 83 | e5 aa 85 e6 0e 18 53 48 |.....U..|......SH|
|00005c40| 0e 17 45 41 41 40 1c 0b | 09 53 de 5f 5c 5c 1e 1f |..EAA@..|.S._\\..|
|00005c50| 09 ce 56 ab a6 0e 1f 09 | d2 5f e0 5c 5c cd a5 5a |..V.....|._.\\..Z|
|00005c60| 16 1f 0c d2 a6 c2 55 ab | 87 0c e1 a6 c2 55 ab 87 |......U.|.....U..|
|00005c70| 0c e2 a6 c2 55 ab 85 0e | 1f 54 16 1f 0e 1f 2c 0c |....U...|.T....,.|
|00005c80| 53 e3 5f 0c 53 d2 a5 0c | 53 e1 a5 5b 0c 53 e2 a5 |S._.S...|S..[.S..|
|00005c90| 5c 5c 5c 5c 5c 5c 5c 5c | 2b 1e 27 e8 0e 24 21 1e |\\\\\\\\|+.'..$!.|
|00005ca0| 29 e8 0e 27 21 1e 2a 0e | 29 41 41 40 1e 2b 0e 2a |)..'!.*.|)AA@.+.*|
|00005cb0| 41 41 40 1e 2c ed 09 57 | ab 84 0e 2c aa 82 0e 2b |AA@.,..W|...,...+|
|00005cc0| 14 c5 c6 09 0b 0c 45 21 | 21 1e 07 c8 0e 07 21 ad |......E!|!.....!.|
|00005cd0| 84 c9 0e 07 21 2e 0c 82 | 52 05 0e 5c 6e 0e 15 d6 |....!...|R..\n...|
|00005ce0| 89 1e 2e 1e 2f 1e 30 1e | 31 0e 30 db 5f 0e 31 dc |..../.0.|1.0._.1.|
|00005cf0| 5c 5c 5c 5c 89 1e 1d db | a6 54 16 31 0e 1d db a5 |\\\\....|.T.1....|
|00005d00| 16 30 29 0e 31 cc 0e 30 | 45 40 0e 31 cc 0e 30 45 |.0).1..0|E@.1..0E|
|00005d10| 41 40 0e 31 cc 0e 30 45 | 41 41 40 1c 1b 19 0e 31 |A@.1..0E|AA@....1|
|00005d20| cc 0e 30 45 40 19 0e 31 | cc 0e 30 45 41 40 1b 0e |..0E@..1|..0EA@..|
|00005d30| 31 cc 0e 30 45 41 41 40 | 1c 0b 09 53 de 5f 5c 5c |1..0EAA@|...S._\\|
|00005d40| 1e 1f 09 ce 56 ab a6 0e | 1f 09 d2 5f e0 5c 5c cd |....V...|..._.\\.|
|00005d50| a5 5a 16 1f 0c d2 a6 c2 | 55 ab 87 0c e1 a6 c2 55 |.Z......|U......U|
|00005d60| ab 87 0c e2 a6 c2 55 ab | 85 0e 1f 54 16 1f 0e 1f |......U.|...T....|
|00005d70| 2c 0c 53 e3 5f 0c 53 d2 | a5 0c 53 e1 a5 5b 0c 53 |,.S._.S.|..S..[.S|
|00005d80| e2 a5 5c 5c 5c 5c 5c 5c | 5c 5c 2b 16 2f 0e 30 db |..\\\\\\|\\+./.0.|
|00005d90| 5f 0e 31 cc 5c 5c 5c 5c | 89 1e 1d db a6 54 16 31 |_.1.\\\\|.....T.1|
|00005da0| 0e 1d db a5 16 30 29 0e | 31 0e 30 d2 a6 c2 55 ab |.....0).|1.0...U.|
|00005db0| 88 0e 30 e1 a6 c2 55 ab | 88 0e 30 e2 a6 c2 55 ab |..0...U.|..0...U.|
|00005dc0| 89 0e 31 ce 55 ab 83 e5 | aa 85 e6 0e 31 53 48 0e |..1.U...|....1SH.|
|00005dd0| 30 45 40 0e 31 0e 30 d2 | a6 c2 55 ab 88 0e 30 e1 |0E@.1.0.|..U...0.|
|00005de0| a6 c2 55 ab 88 0e 30 e2 | a6 c2 55 ab 89 0e 31 ce |..U...0.|..U...1.|
|00005df0| 55 ab 83 e5 aa 85 e6 0e | 31 53 48 0e 30 45 41 40 |U.......|1SH.0EA@|
|00005e00| 0e 31 0e 30 d2 a6 c2 55 | ab 88 0e 30 e1 a6 c2 55 |.1.0...U|...0...U|
|00005e10| ab 88 0e 30 e2 a6 c2 55 | ab 89 0e 31 ce 55 ab 83 |...0...U|...1.U..|
|00005e20| e5 aa 85 e6 0e 31 53 48 | 0e 30 45 41 41 40 1c 1b |.....1SH|.0EAA@..|
|00005e30| 19 0e 31 0e 30 d2 a6 c2 | 55 ab 88 0e 30 e1 a6 c2 |..1.0...|U...0...|
|00005e40| 55 ab 88 0e 30 e2 a6 c2 | 55 ab 89 0e 31 ce 55 ab |U...0...|U...1.U.|
|00005e50| 83 e5 aa 85 e6 0e 31 53 | 48 0e 30 45 40 19 0e 31 |......1S|H.0E@..1|
|00005e60| 0e 30 d2 a6 c2 55 ab 88 | 0e 30 e1 a6 c2 55 ab 88 |.0...U..|.0...U..|
|00005e70| 0e 30 e2 a6 c2 55 ab 89 | 0e 31 ce 55 ab 83 e5 aa |.0...U..|.1.U....|
|00005e80| 85 e6 0e 31 53 48 0e 30 | 45 41 40 1b 0e 31 0e 30 |...1SH.0|EA@..1.0|
|00005e90| d2 a6 c2 55 ab 88 0e 30 | e1 a6 c2 55 ab 88 0e 30 |...U...0|...U...0|
|00005ea0| e2 a6 c2 55 ab 89 0e 31 | ce 55 ab 83 e5 aa 85 e6 |...U...1|.U......|
|00005eb0| 0e 31 53 48 0e 30 45 41 | 41 40 1c 0b 09 53 de 5f |.1SH.0EA|A@...S._|
|00005ec0| 5c 5c 1e 1f 09 ce 56 ab | a6 0e 1f 09 d2 5f e0 5c |\\....V.|....._.\|
|00005ed0| 5c cd a5 5a 16 1f 0c d2 | a6 c2 55 ab 87 0c e1 a6 |\..Z....|..U.....|
|00005ee0| c2 55 ab 87 0c e2 a6 c2 | 55 ab 85 0e 1f 54 16 1f |.U......|U....T..|
|00005ef0| 0e 1f 2c 0c 53 e3 5f 0c | 53 d2 a5 0c 53 e1 a5 5b |..,.S._.|S...S..[|
|00005f00| 0c 53 e2 a5 5c 5c 5c 5c | 5c 5c 5c 5c 2b 16 2e 0e |.S..\\\\|\\\\+...|
|00005f10| 2f 53 1e 07 0e 2e 0e 07 | 54 89 16 07 59 ad c2 e8 |/S......|T...Y...|
|00005f20| 0e 07 21 89 1e 32 40 1e | 33 0e 32 41 40 1e 34 0e |..!..2@.|3.2A@.4.|
|00005f30| 32 41 41 40 1e 35 09 c2 | 55 ac 86 09 0e 33 55 ab |2AA@.5..|U....3U.|
|00005f40| 9d 0b c2 55 ac 86 0b 0e | 34 55 ab 92 0c c2 55 ac |...U....|4U....U.|
|00005f50| 86 0c 0e 35 55 ab 87 c9 | c5 0e 07 21 21 88 2c aa |...5U...|...!!.,.|
|00005f60| 33 2d 29 87 22 20 5b 63 | 61 6c 65 6e 64 61 72 2d |3-)." [c|alendar-|
|00005f70| 62 75 66 66 65 72 20 6d | 6f 6e 74 68 20 30 20 64 |buffer m|onth 0 d|
|00005f80| 61 79 20 79 65 61 72 20 | 63 61 6c 65 6e 64 61 72 |ay year |calendar|
|00005f90| 2d 67 72 65 67 6f 72 69 | 61 6e 2d 66 72 6f 6d 2d |-gregori|an-from-|
|00005fa0| 61 62 73 6f 6c 75 74 65 | 20 63 61 6c 65 6e 64 61 |absolute| calenda|
|00005fb0| 72 2d 61 62 73 6f 6c 75 | 74 65 2d 66 72 6f 6d 2d |r-absolu|te-from-|
|00005fc0| 68 65 62 72 65 77 20 64 | 61 74 65 20 63 61 6c 65 |hebrew d|ate cale|
|00005fd0| 6e 64 61 72 2d 64 61 74 | 65 2d 69 73 2d 76 69 73 |ndar-dat|e-is-vis|
|00005fe0| 69 62 6c 65 2d 70 20 6d | 61 72 6b 2d 76 69 73 69 |ible-p m|ark-visi|
|00005ff0| 62 6c 65 2d 63 61 6c 65 | 6e 64 61 72 2d 64 61 74 |ble-cale|ndar-dat|
|00006000| 65 20 64 69 73 70 6c 61 | 79 65 64 2d 6d 6f 6e 74 |e displa|yed-mont|
|00006010| 68 20 31 31 20 31 20 31 | 30 20 32 20 39 20 33 20 |h 11 1 1|0 2 9 3 |
|00006020| 38 20 34 20 37 20 35 20 | 64 69 73 70 6c 61 79 65 |8 4 7 5 |displaye|
|00006030| 64 2d 79 65 61 72 20 6e | 69 6c 20 79 32 20 6d 32 |d-year n|il y2 m2|
|00006040| 20 79 31 20 6d 31 20 31 | 32 20 2d 32 20 6d 61 63 | y1 m1 1|2 -2 mac|
|00006050| 72 6f 2d 79 20 33 31 20 | 64 61 79 2d 6f 66 2d 79 |ro-y 31 |day-of-y|
|00006060| 65 61 72 20 32 33 20 31 | 30 30 20 34 30 30 20 33 |ear 23 1|00 400 3|
|00006070| 36 35 20 73 74 61 72 74 | 2d 64 61 74 65 20 32 39 |65 start|-date 29|
|00006080| 20 5b 33 31 20 32 38 20 | 33 31 20 33 30 20 33 31 | [31 28 |31 30 31|
|00006090| 20 33 30 20 33 31 20 33 | 31 20 33 30 20 33 31 20 | 30 31 3|1 30 31 |
|000060a0| 33 30 20 33 31 5d 20 65 | 6e 64 2d 64 61 74 65 20 |30 31] e|nd-date |
|000060b0| 63 61 6c 65 6e 64 61 72 | 2d 68 65 62 72 65 77 2d |calendar|-hebrew-|
|000060c0| 66 72 6f 6d 2d 61 62 73 | 6f 6c 75 74 65 20 68 65 |from-abs|olute he|
|000060d0| 62 72 65 77 2d 73 74 61 | 72 74 20 68 65 62 72 65 |brew-sta|rt hebre|
|000060e0| 77 2d 65 6e 64 20 68 65 | 62 72 65 77 2d 79 31 20 |w-end he|brew-y1 |
|000060f0| 68 65 62 72 65 77 2d 79 | 32 20 36 20 6c 61 73 74 |hebrew-y|2 6 last|
|00006100| 2d 64 61 74 65 20 66 69 | 72 73 74 2d 64 61 74 65 |-date fi|rst-date|
|00006110| 20 79 20 6d 20 68 2d 64 | 61 74 65 20 68 2d 6d 6f | y m h-d|ate h-mo|
|00006120| 6e 74 68 20 68 2d 64 61 | 79 20 68 2d 79 65 61 72 |nth h-da|y h-year|
|00006130| 5d 20 38 20 22 5c 0a 4d | 61 72 6b 20 61 6c 6c 20 |] 8 "\.M|ark all |
|00006140| 64 61 74 65 73 20 69 6e | 20 74 68 65 20 63 61 6c |dates in| the cal|
|00006150| 65 6e 64 61 72 20 77 69 | 6e 64 6f 77 20 74 68 61 |endar wi|ndow tha|
|00006160| 74 20 63 6f 6e 66 6f 72 | 6d 20 74 6f 20 74 68 65 |t confor|m to the|
|00006170| 20 48 65 62 72 65 77 20 | 64 61 74 65 0a 4d 4f 4e | Hebrew |date.MON|
|00006180| 54 48 2f 44 41 59 2f 59 | 45 41 52 2e 20 20 41 20 |TH/DAY/Y|EAR.  A |
|00006190| 76 61 6c 75 65 20 6f 66 | 20 30 20 69 6e 20 61 6e |value of| 0 in an|
|000061a0| 79 20 70 6f 73 69 74 69 | 6f 6e 20 69 73 20 61 20 |y positi|on is a |
|000061b0| 77 69 6c 64 2d 63 61 72 | 64 2e 22 5d 29 0a 28 66 |wild-car|d."]).(f|
|000061c0| 73 65 74 20 27 6c 69 73 | 74 2d 73 65 78 70 2d 64 |set 'lis|t-sexp-d|
|000061d0| 69 61 72 79 2d 65 6e 74 | 72 69 65 73 20 23 5b 28 |iary-ent|ries #[(|
|000061e0| 64 61 74 65 29 20 22 c0 | 09 21 1a c0 0b 21 1c c5 |date) ".|.!...!..|
|000061f0| 5c 6e c6 0c c7 b0 05 1e | 08 c9 1e 5c 6e 65 62 88 |\n......|...\neb.|
|00006200| cb 0e 08 c9 cc 23 83 bc | 00 cd ce 21 88 60 c9 89 |.....#..|...!.`..|
|00006210| 89 89 1e 0f 1e 10 1e 11 | 1e 12 1e 13 d4 20 88 0e |........|..... ..|
|00006220| 13 60 7b 16 12 8a d5 d6 | 21 88 60 16 0f 29 ce 75 |.`{.....|!.`..).u|
|00006230| 88 d7 68 d8 5c 22 ac 86 | d7 68 d9 5c 22 ab 8e da |..h.\"..|.h.\"...|
|00006240| db 21 ac 89 cd ce 21 88 | dc 16 11 aa b0 60 16 10 |.!....!.|.....`..|
|00006250| cb dd c9 cc 23 88 da db | 21 ab 88 cb dd c9 cc 23 |....#...|!......#|
|00006260| 88 aa 73 cd ce 21 88 0e | 10 60 7b 16 11 de df 0e |..s..!..|.`{.....|
|00006270| 11 5c 22 ab 89 0e 11 e0 | 94 d9 49 88 aa 70 e1 0e |.\".....|..I..p..|
|00006280| 12 0e 11 0e 5c 22 23 89 | 1e 23 ab 89 e4 0e 0f 60 |....\"#.|.#.....`|
|00006290| d8 d9 cc 25 88 e5 0e 5c | 22 0e 23 5c 22 88 0e 5c |...%...\|".#\"..\|
|000062a0| 6e ae 82 0e 23 16 5c 6e | 2e 06 82 17 00 0e 5c 6e |n...#.\n|......\n|
|000062b0| 2c 87 22 20 5b 72 65 67 | 65 78 70 2d 71 75 6f 74 |,." [reg|exp-quot|
|000062c0| 65 20 64 69 61 72 79 2d | 6e 6f 6e 6d 61 72 6b 69 |e diary-|nonmarki|
|000062d0| 6e 67 2d 73 79 6d 62 6f | 6c 20 6d 61 72 6b 20 73 |ng-symbo|l mark s|
|000062e0| 65 78 70 2d 64 69 61 72 | 79 2d 65 6e 74 72 79 2d |exp-diar|y-entry-|
|000062f0| 73 79 6d 62 6f 6c 20 73 | 65 78 70 2d 6d 61 72 6b |symbol s|exp-mark|
|00006300| 20 22 5c 5c 28 5c 5c 60 | 5c 5c 7c 0d 5c 5c 7c 5c | "\\(\\`|\\|.\\|\|
|00006310| 6e 5c 5c 29 22 20 22 3f | 22 20 22 28 22 20 73 2d |n\\)" "?|" "(" s-|
|00006320| 65 6e 74 72 79 20 6e 69 | 6c 20 65 6e 74 72 79 2d |entry ni|l entry-|
|00006330| 66 6f 75 6e 64 20 72 65 | 2d 73 65 61 72 63 68 2d |found re|-search-|
|00006340| 66 6f 72 77 61 72 64 20 | 74 20 62 61 63 6b 77 61 |forward |t backwa|
|00006350| 72 64 2d 63 68 61 72 20 | 31 20 6c 69 6e 65 2d 73 |rd-char |1 line-s|
|00006360| 74 61 72 74 20 65 6e 74 | 72 79 2d 73 74 61 72 74 |tart ent|ry-start|
|00006370| 20 65 6e 74 72 79 20 73 | 65 78 70 20 73 65 78 70 | entry s|exp sexp|
|00006380| 2d 73 74 61 72 74 20 66 | 6f 72 77 61 72 64 2d 73 |-start f|orward-s|
|00006390| 65 78 70 20 72 65 2d 73 | 65 61 72 63 68 2d 62 61 |exp re-s|earch-ba|
|000063a0| 63 6b 77 61 72 64 20 22 | 0d 5c 5c 7c 5c 6e 5c 5c |ckward "|.\\|\n\\|
|000063b0| 7c 5c 5c 60 22 20 63 68 | 61 72 2d 65 71 75 61 6c ||\\`" ch|ar-equal|
|000063c0| 20 31 33 20 31 30 20 6c | 6f 6f 6b 69 6e 67 2d 61 | 13 10 l|ooking-a|
|000063d0| 74 20 22 20 5c 5c 7c 09 | 22 20 22 22 20 22 0d 5c |t " \\|.|" "" ".\|
|000063e0| 5c 7c 5c 6e 22 20 73 74 | 72 69 6e 67 2d 6d 61 74 |\|\n" st|ring-mat|
|000063f0| 63 68 20 22 5b 0d 5d 22 | 20 30 20 64 69 61 72 79 |ch "[.]"| 0 diary|
+--------+-------------------------+-------------------------+--------+--------+