home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1994-04-08 | 7.8 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|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 6b 77 7a 68 40 68 61 |piled by| kwzh@ha|
|00000020| 6c 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |l.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 54 68 75 20 | 41 70 72 20 20 37 20 31 | on Thu |Apr 7 1|
|00000040| 39 3a 34 32 3a 35 36 20 | 31 39 39 34 0a 3b 3b 3b |9:42:56 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 67 64 2f 67 | from fi|le /gd/g|
|00000060| 6e 75 2f 65 6d 61 63 73 | 2f 31 39 2e 30 2f 6c 69 |nu/emacs|/19.0/li|
|00000070| 73 70 2f 64 69 61 72 79 | 2d 69 6e 73 2e 65 6c 0a |sp/diary|-ins.el.|
|00000080| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|00000090| 6e 20 31 39 2e 32 32 2e | 32 36 2e 0a 3b 3b 3b 20 |n 19.22.|26..;;; |
|000000a0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000b0| 20 46 53 46 20 32 2e 31 | 30 0a 3b 3b 3b 20 6f 70 | FSF 2.1|0.;;; op|
|000000c0| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|000000d0| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|000000e0| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|000000f0| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000100| 69 6e 20 45 6d 61 63 73 | 20 31 38 2e 0a 0a 28 69 |in Emacs| 18...(i|
|00000110| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000120| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000130| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000140| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|00000150| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|00000160| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n).. | (string|
|00000170| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|00000180| 73 69 6f 6e 20 22 31 39 | 22 29 29 29 0a 20 20 20 |sion "19|"))). |
|00000190| 20 28 65 72 72 6f 72 20 | 22 60 2f 67 64 2f 67 6e | (error |"`/gd/gn|
|000001a0| 75 2f 65 6d 61 63 73 2f | 31 39 2e 30 2f 6c 69 73 |u/emacs/|19.0/lis|
|000001b0| 70 2f 64 69 61 72 79 2d | 69 6e 73 2e 65 6c 27 20 |p/diary-|ins.el' |
|000001c0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|000001d0| 20 45 6d 61 63 73 20 31 | 39 22 29 29 0a 0a 28 72 | Emacs 1|9"))..(r|
|000001e0| 65 71 75 69 72 65 20 28 | 71 75 6f 74 65 20 64 69 |equire (|quote di|
|000001f0| 61 72 79 29 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |ary)).(d|efalias |
|00000200| 27 6d 61 6b 65 2d 64 69 | 61 72 79 2d 65 6e 74 72 |'make-di|ary-entr|
|00000210| 79 20 23 5b 28 73 74 72 | 69 6e 67 20 26 6f 70 74 |y #[(str|ing &opt|
|00000220| 69 6f 6e 61 6c 20 6e 6f | 6e 6d 61 72 6b 69 6e 67 |ional no|nmarking|
|00000230| 20 66 69 6c 65 29 20 22 | c0 c1 5c 6e 83 5c 6e 00 | file) "|..\n.\n.|
|00000240| 5c 6e 82 0b 00 0b 21 21 | 88 64 62 88 6e 83 19 00 |\n....!!|.db.n...|
|00000250| c4 82 1a 00 c5 0e 06 83 | 24 00 0e 07 82 25 00 c4 |........|$....%..|
|00000260| 0e 08 c9 b1 04 87 22 20 | 5b 66 69 6e 64 2d 66 69 |......" |[find-fi|
|00000270| 6c 65 2d 6f 74 68 65 72 | 2d 77 69 6e 64 6f 77 20 |le-other|-window |
|00000280| 73 75 62 73 74 69 74 75 | 74 65 2d 69 6e 2d 66 69 |substitu|te-in-fi|
|00000290| 6c 65 2d 6e 61 6d 65 20 | 66 69 6c 65 20 64 69 61 |le-name |file dia|
|000002a0| 72 79 2d 66 69 6c 65 20 | 22 22 20 22 5c 6e 22 20 |ry-file |"" "\n" |
|000002b0| 6e 6f 6e 6d 61 72 6b 69 | 6e 67 20 64 69 61 72 79 |nonmarki|ng diary|
|000002c0| 2d 6e 6f 6e 6d 61 72 6b | 69 6e 67 2d 73 79 6d 62 |-nonmark|ing-symb|
|000002d0| 6f 6c 20 73 74 72 69 6e | 67 20 22 20 22 5d 20 34 |ol strin|g " "] 4|
|000002e0| 20 22 5c 0a 49 6e 73 65 | 72 74 20 61 20 64 69 61 | "\.Inse|rt a dia|
|000002f0| 72 79 20 65 6e 74 72 79 | 20 53 54 52 49 4e 47 20 |ry entry| STRING |
|00000300| 77 68 69 63 68 20 6d 61 | 79 20 62 65 20 4e 4f 4e |which ma|y be NON|
|00000310| 4d 41 52 4b 49 4e 47 20 | 69 6e 20 46 49 4c 45 2e |MARKING |in FILE.|
|00000320| 0a 49 66 20 6f 6d 69 74 | 74 65 64 2c 20 4e 4f 4e |.If omit|ted, NON|
|00000330| 4d 41 52 4b 49 4e 47 20 | 64 65 66 61 75 6c 74 73 |MARKING |defaults|
|00000340| 20 74 6f 20 6e 69 6c 20 | 61 6e 64 20 46 49 4c 45 | to nil |and FILE|
|00000350| 20 64 65 66 61 75 6c 74 | 73 20 74 6f 20 64 69 61 | default|s to dia|
|00000360| 72 79 2d 66 69 6c 65 2e | 22 5d 29 0a 28 64 65 66 |ry-file.|"]).(def|
|00000370| 61 6c 69 61 73 20 27 69 | 6e 73 65 72 74 2d 64 69 |alias 'i|nsert-di|
|00000380| 61 72 79 2d 65 6e 74 72 | 79 20 23 5b 28 61 72 67 |ary-entr|y #[(arg|
|00000390| 29 20 22 c0 c1 c2 c3 21 | c3 89 23 5c 66 5c 22 87 |) "....!|..#\f\".|
|000003a0| 22 20 5b 6d 61 6b 65 2d | 64 69 61 72 79 2d 65 6e |" [make-|diary-en|
|000003b0| 74 72 79 20 63 61 6c 65 | 6e 64 61 72 2d 64 61 74 |try cale|ndar-dat|
|000003c0| 65 2d 73 74 72 69 6e 67 | 20 63 61 6c 65 6e 64 61 |e-string| calenda|
|000003d0| 72 2d 63 75 72 73 6f 72 | 2d 74 6f 2d 64 61 74 65 |r-cursor|-to-date|
|000003e0| 20 74 20 61 72 67 5d 20 | 35 20 22 5c 0a 49 6e 73 | t arg] |5 "\.Ins|
|000003f0| 65 72 74 20 61 20 64 69 | 61 72 79 20 65 6e 74 72 |ert a di|ary entr|
|00000400| 79 20 66 6f 72 20 74 68 | 65 20 64 61 74 65 20 69 |y for th|e date i|
|00000410| 6e 64 69 63 61 74 65 64 | 20 62 79 20 70 6f 69 6e |ndicated| by poin|
|00000420| 74 2e 0a 50 72 65 66 69 | 78 20 61 72 67 20 77 69 |t..Prefi|x arg wi|
|00000430| 6c 6c 20 6d 61 6b 65 20 | 74 68 65 20 65 6e 74 72 |ll make |the entr|
|00000440| 79 20 6e 6f 6e 6d 61 72 | 6b 69 6e 67 2e 22 20 22 |y nonmar|king." "|
|00000450| 50 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |P"]).(de|falias '|
|00000460| 69 6e 73 65 72 74 2d 77 | 65 65 6b 6c 79 2d 64 69 |insert-w|eekly-di|
|00000470| 61 72 79 2d 65 6e 74 72 | 79 20 23 5b 28 61 72 67 |ary-entr|y #[(arg|
|00000480| 29 20 22 c0 c1 c2 c3 21 | 21 5c 66 5c 22 87 22 20 |) "....!|!\f\"." |
|00000490| 5b 6d 61 6b 65 2d 64 69 | 61 72 79 2d 65 6e 74 72 |[make-di|ary-entr|
|000004a0| 79 20 63 61 6c 65 6e 64 | 61 72 2d 64 61 79 2d 6e |y calend|ar-day-n|
|000004b0| 61 6d 65 20 63 61 6c 65 | 6e 64 61 72 2d 63 75 72 |ame cale|ndar-cur|
|000004c0| 73 6f 72 2d 74 6f 2d 64 | 61 74 65 20 74 20 61 72 |sor-to-d|ate t ar|
|000004d0| 67 5d 20 34 20 22 5c 0a | 49 6e 73 65 72 74 20 61 |g] 4 "\.|Insert a|
|000004e0| 20 77 65 65 6b 6c 79 20 | 64 69 61 72 79 20 65 6e | weekly |diary en|
|000004f0| 74 72 79 20 66 6f 72 20 | 74 68 65 20 64 61 79 20 |try for |the day |
|00000500| 6f 66 20 74 68 65 20 77 | 65 65 6b 20 69 6e 64 69 |of the w|eek indi|
|00000510| 63 61 74 65 64 20 62 79 | 20 70 6f 69 6e 74 2e 0a |cated by| point..|
|00000520| 50 72 65 66 69 78 20 61 | 72 67 20 77 69 6c 6c 20 |Prefix a|rg will |
|00000530| 6d 61 6b 65 20 74 68 65 | 20 65 6e 74 72 79 20 6e |make the| entry n|
|00000540| 6f 6e 6d 61 72 6b 69 6e | 67 2e 22 20 22 50 22 5d |onmarkin|g." "P"]|
|00000550| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 69 6e 73 |).(defal|ias 'ins|
|00000560| 65 72 74 2d 6d 6f 6e 74 | 68 6c 79 2d 64 69 61 72 |ert-mont|hly-diar|
|00000570| 79 2d 65 6e 74 72 79 20 | 23 5b 28 61 72 67 29 20 |y-entry |#[(arg) |
|00000580| 22 08 83 08 00 c1 82 09 | 00 c2 1b c4 c5 c6 c7 21 |".......|.......!|
|00000590| c7 5c 22 0e 08 5c 22 29 | 87 22 20 5b 65 75 72 6f |.\"..\")|." [euro|
|000005a0| 70 65 61 6e 2d 63 61 6c | 65 6e 64 61 72 2d 73 74 |pean-cal|endar-st|
|000005b0| 79 6c 65 20 28 64 61 79 | 20 22 20 2a 20 22 29 20 |yle (day| " * ") |
|000005c0| 28 22 2a 20 22 20 64 61 | 79 29 20 63 61 6c 65 6e |("* " da|y) calen|
|000005d0| 64 61 72 2d 64 61 74 65 | 2d 64 69 73 70 6c 61 79 |dar-date|-display|
|000005e0| 2d 66 6f 72 6d 20 6d 61 | 6b 65 2d 64 69 61 72 79 |-form ma|ke-diary|
|000005f0| 2d 65 6e 74 72 79 20 63 | 61 6c 65 6e 64 61 72 2d |-entry c|alendar-|
|00000600| 64 61 74 65 2d 73 74 72 | 69 6e 67 20 63 61 6c 65 |date-str|ing cale|
|00000610| 6e 64 61 72 2d 63 75 72 | 73 6f 72 2d 74 6f 2d 64 |ndar-cur|sor-to-d|
|00000620| 61 74 65 20 74 20 61 72 | 67 5d 20 34 20 22 5c 0a |ate t ar|g] 4 "\.|
|00000630| 49 6e 73 65 72 74 20 61 | 20 6d 6f 6e 74 68 6c 79 |Insert a| monthly|
|00000640| 20 64 69 61 72 79 20 65 | 6e 74 72 79 20 66 6f 72 | diary e|ntry for|
|00000650| 20 74 68 65 20 64 61 79 | 20 6f 66 20 74 68 65 20 | the day| of the |
|00000660| 6d 6f 6e 74 68 20 69 6e | 64 69 63 61 74 65 64 20 |month in|dicated |
|00000670| 62 79 20 70 6f 69 6e 74 | 2e 0a 50 72 65 66 69 78 |by point|..Prefix|
|00000680| 20 61 72 67 20 77 69 6c | 6c 20 6d 61 6b 65 20 74 | arg wil|l make t|
|00000690| 68 65 20 65 6e 74 72 79 | 20 6e 6f 6e 6d 61 72 6b |he entry| nonmark|
|000006a0| 69 6e 67 2e 22 20 22 50 | 22 5d 29 0a 28 64 65 66 |ing." "P|"]).(def|
|000006b0| 61 6c 69 61 73 20 27 69 | 6e 73 65 72 74 2d 79 65 |alias 'i|nsert-ye|
|000006c0| 61 72 6c 79 2d 64 69 61 | 72 79 2d 65 6e 74 72 79 |arly-dia|ry-entry|
|000006d0| 20 23 5b 28 61 72 67 29 | 20 22 08 83 08 00 c1 82 | #[(arg)| "......|
|000006e0| 09 00 c2 1b c4 c5 c6 c7 | 21 c7 5c 22 0e 08 5c 22 |........|!.\"..\"|
|000006f0| 29 87 22 20 5b 65 75 72 | 6f 70 65 61 6e 2d 63 61 |)." [eur|opean-ca|
|00000700| 6c 65 6e 64 61 72 2d 73 | 74 79 6c 65 20 28 64 61 |lendar-s|tyle (da|
|00000710| 79 20 22 20 22 20 6d 6f | 6e 74 68 6e 61 6d 65 29 |y " " mo|nthname)|
|00000720| 20 28 6d 6f 6e 74 68 6e | 61 6d 65 20 22 20 22 20 | (monthn|ame " " |
|00000730| 64 61 79 29 20 63 61 6c | 65 6e 64 61 72 2d 64 61 |day) cal|endar-da|
|00000740| 74 65 2d 64 69 73 70 6c | 61 79 2d 66 6f 72 6d 20 |te-displ|ay-form |
|00000750| 6d 61 6b 65 2d 64 69 61 | 72 79 2d 65 6e 74 72 79 |make-dia|ry-entry|
|00000760| 20 63 61 6c 65 6e 64 61 | 72 2d 64 61 74 65 2d 73 | calenda|r-date-s|
|00000770| 74 72 69 6e 67 20 63 61 | 6c 65 6e 64 61 72 2d 63 |tring ca|lendar-c|
|00000780| 75 72 73 6f 72 2d 74 6f | 2d 64 61 74 65 20 74 20 |ursor-to|-date t |
|00000790| 61 72 67 5d 20 34 20 22 | 5c 0a 49 6e 73 65 72 74 |arg] 4 "|\.Insert|
|000007a0| 20 61 6e 20 61 6e 6e 75 | 61 6c 20 64 69 61 72 79 | an annu|al diary|
|000007b0| 20 65 6e 74 72 79 20 66 | 6f 72 20 74 68 65 20 64 | entry f|or the d|
|000007c0| 61 79 20 6f 66 20 74 68 | 65 20 79 65 61 72 20 69 |ay of th|e year i|
|000007d0| 6e 64 69 63 61 74 65 64 | 20 62 79 20 70 6f 69 6e |ndicated| by poin|
|000007e0| 74 2e 0a 50 72 65 66 69 | 78 20 61 72 67 20 77 69 |t..Prefi|x arg wi|
|000007f0| 6c 6c 20 6d 61 6b 65 20 | 74 68 65 20 65 6e 74 72 |ll make |the entr|
|00000800| 79 20 6e 6f 6e 6d 61 72 | 6b 69 6e 67 2e 22 20 22 |y nonmar|king." "|
|00000810| 50 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |P"]).(de|falias '|
|00000820| 69 6e 73 65 72 74 2d 61 | 6e 6e 69 76 65 72 73 61 |insert-a|nniversa|
|00000830| 72 79 2d 64 69 61 72 79 | 2d 65 6e 74 72 79 20 23 |ry-diary|-entry #|
|00000840| 5b 28 61 72 67 29 20 22 | 08 83 08 00 c1 82 09 00 |[(arg) "|........|
|00000850| c2 1b c4 c5 c6 0e 07 c8 | c9 ca 21 cb ca 23 23 0e |........|..!..##.|
|00000860| 5c 66 5c 22 29 87 22 20 | 5b 65 75 72 6f 70 65 61 |\f\")." |[europea|
|00000870| 6e 2d 63 61 6c 65 6e 64 | 61 72 2d 73 74 79 6c 65 |n-calend|ar-style|
|00000880| 20 28 64 61 79 20 22 20 | 22 20 6d 6f 6e 74 68 20 | (day " |" month |
|00000890| 22 20 22 20 79 65 61 72 | 29 20 28 6d 6f 6e 74 68 |" " year|) (month|
|000008a0| 20 22 20 22 20 64 61 79 | 20 22 20 22 20 79 65 61 | " " day| " " yea|
|000008b0| 72 29 20 63 61 6c 65 6e | 64 61 72 2d 64 61 74 65 |r) calen|dar-date|
|000008c0| 2d 64 69 73 70 6c 61 79 | 2d 66 6f 72 6d 20 6d 61 |-display|-form ma|
|000008d0| 6b 65 2d 64 69 61 72 79 | 2d 65 6e 74 72 79 20 66 |ke-diary|-entry f|
|000008e0| 6f 72 6d 61 74 20 22 25 | 73 28 64 69 61 72 79 2d |ormat "%|s(diary-|
|000008f0| 61 6e 6e 69 76 65 72 73 | 61 72 79 20 25 73 29 22 |annivers|ary %s)"|
|00000900| 20 73 65 78 70 2d 64 69 | 61 72 79 2d 65 6e 74 72 | sexp-di|ary-entr|
|00000910| 79 2d 73 79 6d 62 6f 6c | 20 63 61 6c 65 6e 64 61 |y-symbol| calenda|
|00000920| 72 2d 64 61 74 65 2d 73 | 74 72 69 6e 67 20 63 61 |r-date-s|tring ca|
|00000930| 6c 65 6e 64 61 72 2d 63 | 75 72 73 6f 72 2d 74 6f |lendar-c|ursor-to|
|00000940| 2d 64 61 74 65 20 74 20 | 6e 69 6c 20 61 72 67 5d |-date t |nil arg]|
|00000950| 20 38 20 22 5c 0a 49 6e | 73 65 72 74 20 61 6e 20 | 8 "\.In|sert an |
|00000960| 61 6e 6e 69 76 65 72 73 | 61 72 79 20 64 69 61 72 |annivers|ary diar|
|00000970| 79 20 65 6e 74 72 79 20 | 66 6f 72 20 74 68 65 20 |y entry |for the |
|00000980| 64 61 74 65 20 67 69 76 | 65 6e 20 62 79 20 70 6f |date giv|en by po|
|00000990| 69 6e 74 2e 0a 50 72 65 | 66 69 78 20 61 72 67 20 |int..Pre|fix arg |
|000009a0| 77 69 6c 6c 20 6d 61 6b | 65 20 74 68 65 20 65 6e |will mak|e the en|
|000009b0| 74 72 79 20 6e 6f 6e 6d | 61 72 6b 69 6e 67 2e 22 |try nonm|arking."|
|000009c0| 20 22 50 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | "P"]).(|defalias|
|000009d0| 20 27 69 6e 73 65 72 74 | 2d 62 6c 6f 63 6b 2d 64 | 'insert|-block-d|
|000009e0| 69 61 72 79 2d 65 6e 74 | 72 79 20 23 5b 28 61 72 |iary-ent|ry #[(ar|
|000009f0| 67 29 20 22 08 83 08 00 | c1 82 09 00 c2 1b c4 c5 |g) "....|........|
|00000a00| 21 1e 06 0e 07 40 86 18 | 00 c8 c9 21 1e 5c 6e cb |!....@..|...!.\n.|
|00000a10| 1e 5c 66 cb 1e 0d 0e 5c | 6e 41 41 40 53 1e 0e 0e |.\f....\|nAA@S...|
|00000a20| 5c 6e 40 1e 0f 0e 5c 6e | 41 40 1e 10 0e 5c 6e 41 |\n@...\n|A@...\nA|
|00000a30| 41 40 1e 11 0e 10 0e 0f | 53 d2 5f 5c 5c 1e 13 0e |A@......|S._\\...|
|00000a40| 0f d4 56 83 78 00 0e 13 | 0e 0f d5 5f d6 5c 5c d7 |..V.x...|..._.\\.|
|00000a50| a5 5a 16 13 0e 11 d5 a6 | d8 55 83 78 00 0e 11 d9 |.Z......|.U.x....|
|00000a60| a6 d8 55 83 73 00 0e 11 | da a6 d8 55 83 78 00 0e |..U.s...|...U.x..|
|00000a70| 13 54 16 13 0e 13 2c 0e | 0e db 5f 0e 0e d5 a5 0e |.T....,.|.._.....|
|00000a80| 0e d9 a5 5b 0e 0e da a5 | 5c 5c 5c 5c 5c 5c 5c 5c |...[....|\\\\\\\\|
|00000a90| 29 0e 06 41 41 40 53 1e | 0e 0e 06 40 1e 0f 0e 06 |)..AA@S.|...@....|
|00000aa0| 41 40 1e 10 0e 06 41 41 | 40 1e 11 0e 10 0e 0f 53 |A@....AA|@......S|
|00000ab0| d2 5f 5c 5c 1e 13 0e 0f | d4 56 83 e9 00 0e 13 0e |._\\....|.V......|
|00000ac0| 0f d5 5f d6 5c 5c d7 a5 | 5a 16 13 0e 11 d5 a6 d8 |.._.\\..|Z.......|
|00000ad0| 55 83 e9 00 0e 11 d9 a6 | d8 55 83 e4 00 0e 11 da |U.......|.U......|
|00000ae0| a6 d8 55 83 e9 00 0e 13 | 54 16 13 0e 13 2c 0e 0e |..U.....|T....,..|
|00000af0| db 5f 0e 0e d5 a5 0e 0e | d9 a5 5b 0e 0e da a5 5c |._......|..[....\|
|00000b00| 5c 5c 5c 5c 5c 5c 5c 29 | 57 83 11 01 0e 5c 6e 16 |\\\\\\\)|W....\n.|
|00000b10| 5c 66 0e 06 16 0d 82 19 | 01 0e 06 16 5c 66 0e 5c |\f......|....\f.\|
|00000b20| 6e 16 0d dc dd de 0e 1f | e0 0e 5c 66 cb c5 23 e0 |n.......|..\f..#.|
|00000b30| 0e 0d cb c5 23 24 0e 21 | 5c 22 2d 87 22 20 5b 65 |....#$.!|\"-." [e|
|00000b40| 75 72 6f 70 65 61 6e 2d | 63 61 6c 65 6e 64 61 72 |uropean-|calendar|
|00000b50| 2d 73 74 79 6c 65 20 28 | 64 61 79 20 22 20 22 20 |-style (|day " " |
|00000b60| 6d 6f 6e 74 68 20 22 20 | 22 20 79 65 61 72 29 20 |month " |" year) |
|00000b70| 28 6d 6f 6e 74 68 20 22 | 20 22 20 64 61 79 20 22 |(month "| " day "|
|00000b80| 20 22 20 79 65 61 72 29 | 20 63 61 6c 65 6e 64 61 | " year)| calenda|
|00000b90| 72 2d 64 61 74 65 2d 64 | 69 73 70 6c 61 79 2d 66 |r-date-d|isplay-f|
|00000ba0| 6f 72 6d 20 63 61 6c 65 | 6e 64 61 72 2d 63 75 72 |orm cale|ndar-cur|
|00000bb0| 73 6f 72 2d 74 6f 2d 64 | 61 74 65 20 74 20 63 75 |sor-to-d|ate t cu|
|00000bc0| 72 73 6f 72 20 63 61 6c | 65 6e 64 61 72 2d 6d 61 |rsor cal|endar-ma|
|00000bd0| 72 6b 2d 72 69 6e 67 20 | 65 72 72 6f 72 20 22 4e |rk-ring |error "N|
|00000be0| 6f 20 6d 61 72 6b 20 73 | 65 74 20 69 6e 20 74 68 |o mark s|et in th|
|00000bf0| 69 73 20 62 75 66 66 65 | 72 22 20 6d 61 72 6b 20 |is buffe|r" mark |
|00000c00| 6e 69 6c 20 73 74 61 72 | 74 20 65 6e 64 20 70 72 |nil star|t end pr|
|00000c10| 69 6f 72 2d 79 65 61 72 | 73 20 6d 6f 6e 74 68 20 |ior-year|s month |
|00000c20| 64 61 79 20 79 65 61 72 | 20 33 31 20 64 61 79 2d |day year| 31 day-|
|00000c30| 6f 66 2d 79 65 61 72 20 | 32 20 34 20 32 33 20 31 |of-year |2 4 23 1|
|00000c40| 30 20 30 20 31 30 30 20 | 34 30 30 20 33 36 35 20 |0 0 100 |400 365 |
|00000c50| 6d 61 6b 65 2d 64 69 61 | 72 79 2d 65 6e 74 72 79 |make-dia|ry-entry|
|00000c60| 20 66 6f 72 6d 61 74 20 | 22 25 73 28 64 69 61 72 | format |"%s(diar|
|00000c70| 79 2d 62 6c 6f 63 6b 20 | 25 73 20 25 73 29 22 20 |y-block |%s %s)" |
|00000c80| 73 65 78 70 2d 64 69 61 | 72 79 2d 65 6e 74 72 79 |sexp-dia|ry-entry|
|00000c90| 2d 73 79 6d 62 6f 6c 20 | 63 61 6c 65 6e 64 61 72 |-symbol |calendar|
|00000ca0| 2d 64 61 74 65 2d 73 74 | 72 69 6e 67 20 61 72 67 |-date-st|ring arg|
|00000cb0| 5d 20 39 20 22 5c 0a 49 | 6e 73 65 72 74 20 61 20 |] 9 "\.I|nsert a |
|00000cc0| 62 6c 6f 63 6b 20 64 69 | 61 72 79 20 65 6e 74 72 |block di|ary entr|
|00000cd0| 79 20 66 6f 72 20 74 68 | 65 20 64 61 79 73 20 62 |y for th|e days b|
|00000ce0| 65 74 77 65 65 6e 20 74 | 68 65 20 70 6f 69 6e 74 |etween t|he point|
|00000cf0| 20 61 6e 64 20 6d 61 72 | 6b 65 64 20 64 61 74 65 | and mar|ked date|
|00000d00| 2e 0a 50 72 65 66 69 78 | 20 61 72 67 20 77 69 6c |..Prefix| arg wil|
|00000d10| 6c 20 6d 61 6b 65 20 74 | 68 65 20 65 6e 74 72 79 |l make t|he entry|
|00000d20| 20 6e 6f 6e 6d 61 72 6b | 69 6e 67 2e 22 20 22 50 | nonmark|ing." "P|
|00000d30| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 69 |"]).(def|alias 'i|
|00000d40| 6e 73 65 72 74 2d 63 79 | 63 6c 69 63 2d 64 69 61 |nsert-cy|clic-dia|
|00000d50| 72 79 2d 65 6e 74 72 79 | 20 23 5b 28 61 72 67 29 |ry-entry| #[(arg)|
|00000d60| 20 22 08 83 08 00 c1 82 | 09 00 c2 1b c4 c5 c6 0e | "......|........|
|00000d70| 07 c8 c9 ca 5c 22 cb cc | cd 21 ce cd 23 24 0e 0f |....\"..|.!..#$..|
|00000d80| 5c 22 29 87 22 20 5b 65 | 75 72 6f 70 65 61 6e 2d |\")." [e|uropean-|
|00000d90| 63 61 6c 65 6e 64 61 72 | 2d 73 74 79 6c 65 20 28 |calendar|-style (|
|00000da0| 64 61 79 20 22 20 22 20 | 6d 6f 6e 74 68 20 22 20 |day " " |month " |
|00000db0| 22 20 79 65 61 72 29 20 | 28 6d 6f 6e 74 68 20 22 |" year) |(month "|
|00000dc0| 20 22 20 64 61 79 20 22 | 20 22 20 79 65 61 72 29 | " day "| " year)|
|00000dd0| 20 63 61 6c 65 6e 64 61 | 72 2d 64 61 74 65 2d 64 | calenda|r-date-d|
|00000de0| 69 73 70 6c 61 79 2d 66 | 6f 72 6d 20 6d 61 6b 65 |isplay-f|orm make|
|00000df0| 2d 64 69 61 72 79 2d 65 | 6e 74 72 79 20 66 6f 72 |-diary-e|ntry for|
|00000e00| 6d 61 74 20 22 25 73 28 | 64 69 61 72 79 2d 63 79 |mat "%s(|diary-cy|
|00000e10| 63 6c 69 63 20 25 64 20 | 25 73 29 22 20 73 65 78 |clic %d |%s)" sex|
|00000e20| 70 2d 64 69 61 72 79 2d | 65 6e 74 72 79 2d 73 79 |p-diary-|entry-sy|
|00000e30| 6d 62 6f 6c 20 63 61 6c | 65 6e 64 61 72 2d 72 65 |mbol cal|endar-re|
|00000e40| 61 64 20 22 52 65 70 65 | 61 74 20 65 76 65 72 79 |ad "Repe|at every|
|00000e50| 20 68 6f 77 20 6d 61 6e | 79 20 64 61 79 73 3a 20 | how man|y days: |
|00000e60| 22 20 28 6c 61 6d 62 64 | 61 20 28 78 29 20 28 3e |" (lambd|a (x) (>|
|00000e70| 20 78 20 30 29 29 20 63 | 61 6c 65 6e 64 61 72 2d | x 0)) c|alendar-|
|00000e80| 64 61 74 65 2d 73 74 72 | 69 6e 67 20 63 61 6c 65 |date-str|ing cale|
|00000e90| 6e 64 61 72 2d 63 75 72 | 73 6f 72 2d 74 6f 2d 64 |ndar-cur|sor-to-d|
|00000ea0| 61 74 65 20 74 20 6e 69 | 6c 20 61 72 67 5d 20 39 |ate t ni|l arg] 9|
|00000eb0| 20 22 5c 0a 49 6e 73 65 | 72 74 20 61 20 63 79 63 | "\.Inse|rt a cyc|
|00000ec0| 6c 69 63 20 64 69 61 72 | 79 20 65 6e 74 72 79 20 |lic diar|y entry |
|00000ed0| 73 74 61 72 74 69 6e 67 | 20 61 74 20 74 68 65 20 |starting| at the |
|00000ee0| 64 61 74 65 20 67 69 76 | 65 6e 20 62 79 20 70 6f |date giv|en by po|
|00000ef0| 69 6e 74 2e 0a 50 72 65 | 66 69 78 20 61 72 67 20 |int..Pre|fix arg |
|00000f00| 77 69 6c 6c 20 6d 61 6b | 65 20 74 68 65 20 65 6e |will mak|e the en|
|00000f10| 74 72 79 20 6e 6f 6e 6d | 61 72 6b 69 6e 67 2e 22 |try nonm|arking."|
|00000f20| 20 22 50 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | "P"]).(|defalias|
|00000f30| 20 27 69 6e 73 65 72 74 | 2d 68 65 62 72 65 77 2d | 'insert|-hebrew-|
|00000f40| 64 69 61 72 79 2d 65 6e | 74 72 79 20 23 5b 28 61 |diary-en|try #[(a|
|00000f50| 72 67 29 20 22 08 19 c2 | 0b c4 c5 c6 c7 21 41 41 |rg) "...|.....!AA|
|00000f60| 40 53 1e 08 c6 c7 21 40 | 1e 09 c6 c7 21 41 40 1e |@S....!@|....!A@.|
|00000f70| 5c 6e c6 c7 21 41 41 40 | 1e 0b 0e 5c 6e 0e 09 53 |\n..!AA@|...\n..S|
|00000f80| cc 5f 5c 5c 1e 0d 0e 09 | ce 56 83 62 00 0e 0d 0e |._\\....|.V.b....|
|00000f90| 09 cf 5f d0 5c 5c d1 a5 | 5a 16 0d 0e 0b cf a6 d2 |.._.\\..|Z.......|
|00000fa0| 55 83 62 00 0e 0b d3 a6 | d2 55 83 5d 00 0e 0b d4 |U.b.....|.U.]....|
|00000fb0| a6 d2 55 83 62 00 0e 0d | 54 16 0d 0e 0d 2c 0e 08 |..U.b...|T....,..|
|00000fc0| d5 5f 0e 08 cf a5 0e 08 | d3 a5 5b 0e 08 d4 a5 5c |._......|..[....\|
|00000fd0| 5c 5c 5c 5c 5c 5c 5c 29 | 21 d6 c7 23 50 0e 17 5c |\\\\\\\)|!..#P..\|
|00000fe0| 22 29 87 22 20 5b 63 61 | 6c 65 6e 64 61 72 2d 68 |")." [ca|lendar-h|
|00000ff0| 65 62 72 65 77 2d 6d 6f | 6e 74 68 2d 6e 61 6d 65 |ebrew-mo|nth-name|
|00001000| 2d 61 72 72 61 79 2d 6c | 65 61 70 2d 79 65 61 72 |-array-l|eap-year|
|00001010| 20 63 61 6c 65 6e 64 61 | 72 2d 6d 6f 6e 74 68 2d | calenda|r-month-|
|00001020| 6e 61 6d 65 2d 61 72 72 | 61 79 20 6d 61 6b 65 2d |name-arr|ay make-|
|00001030| 64 69 61 72 79 2d 65 6e | 74 72 79 20 68 65 62 72 |diary-en|try hebr|
|00001040| 65 77 2d 64 69 61 72 79 | 2d 65 6e 74 72 79 2d 73 |ew-diary|-entry-s|
|00001050| 79 6d 62 6f 6c 20 63 61 | 6c 65 6e 64 61 72 2d 64 |ymbol ca|lendar-d|
|00001060| 61 74 65 2d 73 74 72 69 | 6e 67 20 63 61 6c 65 6e |ate-stri|ng calen|
|00001070| 64 61 72 2d 68 65 62 72 | 65 77 2d 66 72 6f 6d 2d |dar-hebr|ew-from-|
|00001080| 61 62 73 6f 6c 75 74 65 | 20 63 61 6c 65 6e 64 61 |absolute| calenda|
|00001090| 72 2d 63 75 72 73 6f 72 | 2d 74 6f 2d 64 61 74 65 |r-cursor|-to-date|
|000010a0| 20 74 20 70 72 69 6f 72 | 2d 79 65 61 72 73 20 6d | t prior|-years m|
|000010b0| 6f 6e 74 68 20 64 61 79 | 20 79 65 61 72 20 33 31 |onth day| year 31|
|000010c0| 20 64 61 79 2d 6f 66 2d | 79 65 61 72 20 32 20 34 | day-of-|year 2 4|
|000010d0| 20 32 33 20 31 30 20 30 | 20 31 30 30 20 34 30 30 | 23 10 0| 100 400|
|000010e0| 20 33 36 35 20 6e 69 6c | 20 61 72 67 5d 20 31 30 | 365 nil| arg] 10|
|000010f0| 20 22 5c 0a 49 6e 73 65 | 72 74 20 61 20 64 69 61 | "\.Inse|rt a dia|
|00001100| 72 79 20 65 6e 74 72 79 | 2e 0a 46 6f 72 20 74 68 |ry entry|..For th|
|00001110| 65 20 48 65 62 72 65 77 | 20 64 61 74 65 20 63 6f |e Hebrew| date co|
|00001120| 72 72 65 73 70 6f 6e 64 | 69 6e 67 20 74 6f 20 74 |rrespond|ing to t|
|00001130| 68 65 20 64 61 74 65 20 | 69 6e 64 69 63 61 74 65 |he date |indicate|
|00001140| 64 20 62 79 20 70 6f 69 | 6e 74 2e 0a 50 72 65 66 |d by poi|nt..Pref|
|00001150| 69 78 20 61 72 67 20 77 | 69 6c 6c 20 6d 61 6b 65 |ix arg w|ill make|
|00001160| 20 74 68 65 20 65 6e 74 | 72 79 20 6e 6f 6e 6d 61 | the ent|ry nonma|
|00001170| 72 6b 69 6e 67 2e 22 20 | 22 50 22 5d 29 0a 28 64 |rking." |"P"]).(d|
|00001180| 65 66 61 6c 69 61 73 20 | 27 69 6e 73 65 72 74 2d |efalias |'insert-|
|00001190| 6d 6f 6e 74 68 6c 79 2d | 68 65 62 72 65 77 2d 64 |monthly-|hebrew-d|
|000011a0| 69 61 72 79 2d 65 6e 74 | 72 79 20 23 5b 28 61 72 |iary-ent|ry #[(ar|
|000011b0| 67 29 20 22 08 83 08 00 | c1 82 09 00 c2 1b 5c 66 |g) "....|......\f|
|000011c0| 1d c6 0e 07 c8 c9 ca cb | 21 41 41 40 53 1e 5c 66 |........|!AA@S.\f|
|000011d0| ca cb 21 40 1e 0d ca cb | 21 41 40 1e 0e ca cb 21 |..!@....|!A@....!|
|000011e0| 41 41 40 1e 0f 0e 0e 0e | 0d 53 d0 5f 5c 5c 1e 11 |AA@.....|.S._\\..|
|000011f0| 0e 0d d2 56 83 6d 00 0e | 11 0e 0d d3 5f d4 5c 5c |...V.m..|...._.\\|
|00001200| d5 a5 5a 16 11 0e 0f d3 | a6 d6 55 83 6d 00 0e 0f |..Z.....|..U.m...|
|00001210| d7 a6 d6 55 83 68 00 0e | 0f d8 a6 d6 55 83 6d 00 |...U.h..|....U.m.|
|00001220| 0e 11 54 16 11 0e 11 2c | 0e 5c 66 d9 5f 0e 5c 66 |..T....,|.\f._.\f|
|00001230| d3 a5 0e 5c 66 d7 a5 5b | 0e 5c 66 d8 a5 5c 5c 5c |...\f..[|.\f..\\\|
|00001240| 5c 5c 5c 5c 5c 29 21 21 | 50 0e 1a 5c 22 2a 87 22 |\\\\\)!!|P..\"*."|
|00001250| 20 5b 65 75 72 6f 70 65 | 61 6e 2d 63 61 6c 65 6e | [europe|an-calen|
|00001260| 64 61 72 2d 73 74 79 6c | 65 20 28 64 61 79 20 22 |dar-styl|e (day "|
|00001270| 20 2a 20 22 29 20 28 22 | 2a 20 22 20 64 61 79 29 | * ") ("|* " day)|
|00001280| 20 63 61 6c 65 6e 64 61 | 72 2d 64 61 74 65 2d 64 | calenda|r-date-d|
|00001290| 69 73 70 6c 61 79 2d 66 | 6f 72 6d 20 63 61 6c 65 |isplay-f|orm cale|
|000012a0| 6e 64 61 72 2d 68 65 62 | 72 65 77 2d 6d 6f 6e 74 |ndar-heb|rew-mont|
|000012b0| 68 2d 6e 61 6d 65 2d 61 | 72 72 61 79 2d 6c 65 61 |h-name-a|rray-lea|
|000012c0| 70 2d 79 65 61 72 20 63 | 61 6c 65 6e 64 61 72 2d |p-year c|alendar-|
|000012d0| 6d 6f 6e 74 68 2d 6e 61 | 6d 65 2d 61 72 72 61 79 |month-na|me-array|
|000012e0| 20 6d 61 6b 65 2d 64 69 | 61 72 79 2d 65 6e 74 72 | make-di|ary-entr|
|000012f0| 79 20 68 65 62 72 65 77 | 2d 64 69 61 72 79 2d 65 |y hebrew|-diary-e|
|00001300| 6e 74 72 79 2d 73 79 6d | 62 6f 6c 20 63 61 6c 65 |ntry-sym|bol cale|
|00001310| 6e 64 61 72 2d 64 61 74 | 65 2d 73 74 72 69 6e 67 |ndar-dat|e-string|
|00001320| 20 63 61 6c 65 6e 64 61 | 72 2d 68 65 62 72 65 77 | calenda|r-hebrew|
|00001330| 2d 66 72 6f 6d 2d 61 62 | 73 6f 6c 75 74 65 20 63 |-from-ab|solute c|
|00001340| 61 6c 65 6e 64 61 72 2d | 63 75 72 73 6f 72 2d 74 |alendar-|cursor-t|
|00001350| 6f 2d 64 61 74 65 20 74 | 20 70 72 69 6f 72 2d 79 |o-date t| prior-y|
|00001360| 65 61 72 73 20 6d 6f 6e | 74 68 20 64 61 79 20 79 |ears mon|th day y|
|00001370| 65 61 72 20 33 31 20 64 | 61 79 2d 6f 66 2d 79 65 |ear 31 d|ay-of-ye|
|00001380| 61 72 20 32 20 34 20 32 | 33 20 31 30 20 30 20 31 |ar 2 4 2|3 10 0 1|
|00001390| 30 30 20 34 30 30 20 33 | 36 35 20 61 72 67 5d 20 |00 400 3|65 arg] |
|000013a0| 31 30 20 22 5c 0a 49 6e | 73 65 72 74 20 61 20 6d |10 "\.In|sert a m|
|000013b0| 6f 6e 74 68 6c 79 20 64 | 69 61 72 79 20 65 6e 74 |onthly d|iary ent|
|000013c0| 72 79 2e 0a 46 6f 72 20 | 74 68 65 20 64 61 79 20 |ry..For |the day |
|000013d0| 6f 66 20 74 68 65 20 48 | 65 62 72 65 77 20 6d 6f |of the H|ebrew mo|
|000013e0| 6e 74 68 20 63 6f 72 72 | 65 73 70 6f 6e 64 69 6e |nth corr|espondin|
|000013f0| 67 20 74 6f 20 74 68 65 | 20 64 61 74 65 20 69 6e |g to the| date in|
|00001400| 64 69 63 61 74 65 64 20 | 62 79 20 70 6f 69 6e 74 |dicated |by point|
|00001410| 2e 0a 50 72 65 66 69 78 | 20 61 72 67 20 77 69 6c |..Prefix| arg wil|
|00001420| 6c 20 6d 61 6b 65 20 74 | 68 65 20 65 6e 74 72 79 |l make t|he entry|
|00001430| 20 6e 6f 6e 6d 61 72 6b | 69 6e 67 2e 22 20 22 50 | nonmark|ing." "P|
|00001440| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 69 |"]).(def|alias 'i|
|00001450| 6e 73 65 72 74 2d 79 65 | 61 72 6c 79 2d 68 65 62 |nsert-ye|arly-heb|
|00001460| 72 65 77 2d 64 69 61 72 | 79 2d 65 6e 74 72 79 20 |rew-diar|y-entry |
|00001470| 23 5b 28 61 72 67 29 20 | 22 08 83 08 00 c1 82 09 |#[(arg) |".......|
|00001480| 00 c2 1b 5c 66 1d c6 0e | 07 c8 c9 ca cb 21 41 41 |...\f...|.....!AA|
|00001490| 40 53 1e 5c 66 ca cb 21 | 40 1e 0d ca cb 21 41 40 |@S.\f..!|@....!A@|
|000014a0| 1e 0e ca cb 21 41 41 40 | 1e 0f 0e 0e 0e 0d 53 d0 |....!AA@|......S.|
|000014b0| 5f 5c 5c 1e 11 0e 0d d2 | 56 83 6d 00 0e 11 0e 0d |_\\.....|V.m.....|
|000014c0| d3 5f d4 5c 5c d5 a5 5a | 16 11 0e 0f d3 a6 d6 55 |._.\\..Z|.......U|
|000014d0| 83 6d 00 0e 0f d7 a6 d6 | 55 83 68 00 0e 0f d8 a6 |.m......|U.h.....|
|000014e0| d6 55 83 6d 00 0e 11 54 | 16 11 0e 11 2c 0e 5c 66 |.U.m...T|....,.\f|
|000014f0| d9 5f 0e 5c 66 d3 a5 0e | 5c 66 d7 a5 5b 0e 5c 66 |._.\f...|\f..[.\f|
|00001500| d8 a5 5c 5c 5c 5c 5c 5c | 5c 5c 29 21 21 50 0e 1a |..\\\\\\|\\)!!P..|
|00001510| 5c 22 2a 87 22 20 5b 65 | 75 72 6f 70 65 61 6e 2d |\"*." [e|uropean-|
|00001520| 63 61 6c 65 6e 64 61 72 | 2d 73 74 79 6c 65 20 28 |calendar|-style (|
|00001530| 64 61 79 20 22 20 22 20 | 6d 6f 6e 74 68 6e 61 6d |day " " |monthnam|
|00001540| 65 29 20 28 6d 6f 6e 74 | 68 6e 61 6d 65 20 22 20 |e) (mont|hname " |
|00001550| 22 20 64 61 79 29 20 63 | 61 6c 65 6e 64 61 72 2d |" day) c|alendar-|
|00001560| 64 61 74 65 2d 64 69 73 | 70 6c 61 79 2d 66 6f 72 |date-dis|play-for|
|00001570| 6d 20 63 61 6c 65 6e 64 | 61 72 2d 68 65 62 72 65 |m calend|ar-hebre|
|00001580| 77 2d 6d 6f 6e 74 68 2d | 6e 61 6d 65 2d 61 72 72 |w-month-|name-arr|
|00001590| 61 79 2d 6c 65 61 70 2d | 79 65 61 72 20 63 61 6c |ay-leap-|year cal|
|000015a0| 65 6e 64 61 72 2d 6d 6f | 6e 74 68 2d 6e 61 6d 65 |endar-mo|nth-name|
|000015b0| 2d 61 72 72 61 79 20 6d | 61 6b 65 2d 64 69 61 72 |-array m|ake-diar|
|000015c0| 79 2d 65 6e 74 72 79 20 | 68 65 62 72 65 77 2d 64 |y-entry |hebrew-d|
|000015d0| 69 61 72 79 2d 65 6e 74 | 72 79 2d 73 79 6d 62 6f |iary-ent|ry-symbo|
|000015e0| 6c 20 63 61 6c 65 6e 64 | 61 72 2d 64 61 74 65 2d |l calend|ar-date-|
|000015f0| 73 74 72 69 6e 67 20 63 | 61 6c 65 6e 64 61 72 2d |string c|alendar-|
|00001600| 68 65 62 72 65 77 2d 66 | 72 6f 6d 2d 61 62 73 6f |hebrew-f|rom-abso|
|00001610| 6c 75 74 65 20 63 61 6c | 65 6e 64 61 72 2d 63 75 |lute cal|endar-cu|
|00001620| 72 73 6f 72 2d 74 6f 2d | 64 61 74 65 20 74 20 70 |rsor-to-|date t p|
|00001630| 72 69 6f 72 2d 79 65 61 | 72 73 20 6d 6f 6e 74 68 |rior-yea|rs month|
|00001640| 20 64 61 79 20 79 65 61 | 72 20 33 31 20 64 61 79 | day yea|r 31 day|
|00001650| 2d 6f 66 2d 79 65 61 72 | 20 32 20 34 20 32 33 20 |-of-year| 2 4 23 |
|00001660| 31 30 20 30 20 31 30 30 | 20 34 30 30 20 33 36 35 |10 0 100| 400 365|
|00001670| 20 61 72 67 5d 20 31 30 | 20 22 5c 0a 49 6e 73 65 | arg] 10| "\.Inse|
|00001680| 72 74 20 61 6e 20 61 6e | 6e 75 61 6c 20 64 69 61 |rt an an|nual dia|
|00001690| 72 79 20 65 6e 74 72 79 | 2e 0a 46 6f 72 20 74 68 |ry entry|..For th|
|000016a0| 65 20 64 61 79 20 6f 66 | 20 74 68 65 20 48 65 62 |e day of| the Heb|
|000016b0| 72 65 77 20 79 65 61 72 | 20 63 6f 72 72 65 73 70 |rew year| corresp|
|000016c0| 6f 6e 64 69 6e 67 20 74 | 6f 20 74 68 65 20 64 61 |onding t|o the da|
|000016d0| 74 65 20 69 6e 64 69 63 | 61 74 65 64 20 62 79 20 |te indic|ated by |
|000016e0| 70 6f 69 6e 74 2e 0a 50 | 72 65 66 69 78 20 61 72 |point..P|refix ar|
|000016f0| 67 20 77 69 6c 6c 20 6d | 61 6b 65 20 74 68 65 20 |g will m|ake the |
|00001700| 65 6e 74 72 79 20 6e 6f | 6e 6d 61 72 6b 69 6e 67 |entry no|nmarking|
|00001710| 2e 22 20 22 50 22 5d 29 | 0a 28 64 65 66 61 6c 69 |." "P"])|.(defali|
|00001720| 61 73 20 27 69 6e 73 65 | 72 74 2d 69 73 6c 61 6d |as 'inse|rt-islam|
|00001730| 69 63 2d 64 69 61 72 79 | 2d 65 6e 74 72 79 20 23 |ic-diary|-entry #|
|00001740| 5b 28 61 72 67 29 20 22 | 08 19 c2 0b c4 c5 c6 c7 |[(arg) "|........|
|00001750| 21 41 41 40 53 1e 08 c6 | c7 21 40 1e 09 c6 c7 21 |!AA@S...|.!@....!|
|00001760| 41 40 1e 5c 6e c6 c7 21 | 41 41 40 1e 0b 0e 5c 6e |A@.\n..!|AA@...\n|
|00001770| 0e 09 53 cc 5f 5c 5c 1e | 0d 0e 09 ce 56 83 62 00 |..S._\\.|....V.b.|
|00001780| 0e 0d 0e 09 cf 5f d0 5c | 5c d1 a5 5a 16 0d 0e 0b |....._.\|\..Z....|
|00001790| cf a6 d2 55 83 62 00 0e | 0b d3 a6 d2 55 83 5d 00 |...U.b..|....U.].|
|000017a0| 0e 0b d4 a6 d2 55 83 62 | 00 0e 0d 54 16 0d 0e 0d |.....U.b|...T....|
|000017b0| 2c 0e 08 d5 5f 0e 08 cf | a5 0e 08 d3 a5 5b 0e 08 |,..._...|.....[..|
|000017c0| d4 a5 5c 5c 5c 5c 5c 5c | 5c 5c 29 21 d6 c7 23 50 |..\\\\\\|\\)!..#P|
|000017d0| 0e 17 5c 22 29 87 22 20 | 5b 63 61 6c 65 6e 64 61 |..\")." |[calenda|
|000017e0| 72 2d 69 73 6c 61 6d 69 | 63 2d 6d 6f 6e 74 68 2d |r-islami|c-month-|
|000017f0| 6e 61 6d 65 2d 61 72 72 | 61 79 20 63 61 6c 65 6e |name-arr|ay calen|
|00001800| 64 61 72 2d 6d 6f 6e 74 | 68 2d 6e 61 6d 65 2d 61 |dar-mont|h-name-a|
|00001810| 72 72 61 79 20 6d 61 6b | 65 2d 64 69 61 72 79 2d |rray mak|e-diary-|
|00001820| 65 6e 74 72 79 20 69 73 | 6c 61 6d 69 63 2d 64 69 |entry is|lamic-di|
|00001830| 61 72 79 2d 65 6e 74 72 | 79 2d 73 79 6d 62 6f 6c |ary-entr|y-symbol|
|00001840| 20 63 61 6c 65 6e 64 61 | 72 2d 64 61 74 65 2d 73 | calenda|r-date-s|
|00001850| 74 72 69 6e 67 20 63 61 | 6c 65 6e 64 61 72 2d 69 |tring ca|lendar-i|
|00001860| 73 6c 61 6d 69 63 2d 66 | 72 6f 6d 2d 61 62 73 6f |slamic-f|rom-abso|
|00001870| 6c 75 74 65 20 63 61 6c | 65 6e 64 61 72 2d 63 75 |lute cal|endar-cu|
|00001880| 72 73 6f 72 2d 74 6f 2d | 64 61 74 65 20 74 20 70 |rsor-to-|date t p|
|00001890| 72 69 6f 72 2d 79 65 61 | 72 73 20 6d 6f 6e 74 68 |rior-yea|rs month|
|000018a0| 20 64 61 79 20 79 65 61 | 72 20 33 31 20 64 61 79 | day yea|r 31 day|
|000018b0| 2d 6f 66 2d 79 65 61 72 | 20 32 20 34 20 32 33 20 |-of-year| 2 4 23 |
|000018c0| 31 30 20 30 20 31 30 30 | 20 34 30 30 20 33 36 35 |10 0 100| 400 365|
|000018d0| 20 6e 69 6c 20 61 72 67 | 5d 20 31 30 20 22 5c 0a | nil arg|] 10 "\.|
|000018e0| 49 6e 73 65 72 74 20 61 | 20 64 69 61 72 79 20 65 |Insert a| diary e|
|000018f0| 6e 74 72 79 2e 0a 46 6f | 72 20 74 68 65 20 49 73 |ntry..Fo|r the Is|
|00001900| 6c 61 6d 69 63 20 64 61 | 74 65 20 63 6f 72 72 65 |lamic da|te corre|
|00001910| 73 70 6f 6e 64 69 6e 67 | 20 74 6f 20 74 68 65 20 |sponding| to the |
|00001920| 64 61 74 65 20 69 6e 64 | 69 63 61 74 65 64 20 62 |date ind|icated b|
|00001930| 79 20 70 6f 69 6e 74 2e | 0a 50 72 65 66 69 78 20 |y point.|.Prefix |
|00001940| 61 72 67 20 77 69 6c 6c | 20 6d 61 6b 65 20 74 68 |arg will| make th|
|00001950| 65 20 65 6e 74 72 79 20 | 6e 6f 6e 6d 61 72 6b 69 |e entry |nonmarki|
|00001960| 6e 67 2e 22 20 22 50 22 | 5d 29 0a 28 64 65 66 61 |ng." "P"|]).(defa|
|00001970| 6c 69 61 73 20 27 69 6e | 73 65 72 74 2d 6d 6f 6e |lias 'in|sert-mon|
|00001980| 74 68 6c 79 2d 69 73 6c | 61 6d 69 63 2d 64 69 61 |thly-isl|amic-dia|
|00001990| 72 79 2d 65 6e 74 72 79 | 20 23 5b 28 61 72 67 29 |ry-entry| #[(arg)|
|000019a0| 20 22 08 83 08 00 c1 82 | 09 00 c2 1b 5c 66 1d c6 | "......|....\f..|
|000019b0| 0e 07 c8 c9 ca cb 21 41 | 41 40 53 1e 5c 66 ca cb |......!A|A@S.\f..|
|000019c0| 21 40 1e 0d ca cb 21 41 | 40 1e 0e ca cb 21 41 41 |!@....!A|@....!AA|
|000019d0| 40 1e 0f 0e 0e 0e 0d 53 | d0 5f 5c 5c 1e 11 0e 0d |@......S|._\\....|
|000019e0| d2 56 83 6d 00 0e 11 0e | 0d d3 5f d4 5c 5c d5 a5 |.V.m....|.._.\\..|
|000019f0| 5a 16 11 0e 0f d3 a6 d6 | 55 83 6d 00 0e 0f d7 a6 |Z.......|U.m.....|
|00001a00| d6 55 83 68 00 0e 0f d8 | a6 d6 55 83 6d 00 0e 11 |.U.h....|..U.m...|
|00001a10| 54 16 11 0e 11 2c 0e 5c | 66 d9 5f 0e 5c 66 d3 a5 |T....,.\|f._.\f..|
|00001a20| 0e 5c 66 d7 a5 5b 0e 5c | 66 d8 a5 5c 5c 5c 5c 5c |.\f..[.\|f..\\\\\|
|00001a30| 5c 5c 5c 29 21 21 50 0e | 1a 5c 22 2a 87 22 20 5b |\\\)!!P.|.\"*." [|
|00001a40| 65 75 72 6f 70 65 61 6e | 2d 63 61 6c 65 6e 64 61 |european|-calenda|
|00001a50| 72 2d 73 74 79 6c 65 20 | 28 64 61 79 20 22 20 2a |r-style |(day " *|
|00001a60| 20 22 29 20 28 22 2a 20 | 22 20 64 61 79 29 20 63 | ") ("* |" day) c|
|00001a70| 61 6c 65 6e 64 61 72 2d | 64 61 74 65 2d 64 69 73 |alendar-|date-dis|
|00001a80| 70 6c 61 79 2d 66 6f 72 | 6d 20 63 61 6c 65 6e 64 |play-for|m calend|
|00001a90| 61 72 2d 69 73 6c 61 6d | 69 63 2d 6d 6f 6e 74 68 |ar-islam|ic-month|
|00001aa0| 2d 6e 61 6d 65 2d 61 72 | 72 61 79 20 63 61 6c 65 |-name-ar|ray cale|
|00001ab0| 6e 64 61 72 2d 6d 6f 6e | 74 68 2d 6e 61 6d 65 2d |ndar-mon|th-name-|
|00001ac0| 61 72 72 61 79 20 6d 61 | 6b 65 2d 64 69 61 72 79 |array ma|ke-diary|
|00001ad0| 2d 65 6e 74 72 79 20 69 | 73 6c 61 6d 69 63 2d 64 |-entry i|slamic-d|
|00001ae0| 69 61 72 79 2d 65 6e 74 | 72 79 2d 73 79 6d 62 6f |iary-ent|ry-symbo|
|00001af0| 6c 20 63 61 6c 65 6e 64 | 61 72 2d 64 61 74 65 2d |l calend|ar-date-|
|00001b00| 73 74 72 69 6e 67 20 63 | 61 6c 65 6e 64 61 72 2d |string c|alendar-|
|00001b10| 69 73 6c 61 6d 69 63 2d | 66 72 6f 6d 2d 61 62 73 |islamic-|from-abs|
|00001b20| 6f 6c 75 74 65 20 63 61 | 6c 65 6e 64 61 72 2d 63 |olute ca|lendar-c|
|00001b30| 75 72 73 6f 72 2d 74 6f | 2d 64 61 74 65 20 74 20 |ursor-to|-date t |
|00001b40| 70 72 69 6f 72 2d 79 65 | 61 72 73 20 6d 6f 6e 74 |prior-ye|ars mont|
|00001b50| 68 20 64 61 79 20 79 65 | 61 72 20 33 31 20 64 61 |h day ye|ar 31 da|
|00001b60| 79 2d 6f 66 2d 79 65 61 | 72 20 32 20 34 20 32 33 |y-of-yea|r 2 4 23|
|00001b70| 20 31 30 20 30 20 31 30 | 30 20 34 30 30 20 33 36 | 10 0 10|0 400 36|
|00001b80| 35 20 61 72 67 5d 20 31 | 30 20 22 5c 0a 49 6e 73 |5 arg] 1|0 "\.Ins|
|00001b90| 65 72 74 20 61 20 6d 6f | 6e 74 68 6c 79 20 64 69 |ert a mo|nthly di|
|00001ba0| 61 72 79 20 65 6e 74 72 | 79 2e 0a 46 6f 72 20 74 |ary entr|y..For t|
|00001bb0| 68 65 20 64 61 79 20 6f | 66 20 74 68 65 20 49 73 |he day o|f the Is|
|00001bc0| 6c 61 6d 69 63 20 6d 6f | 6e 74 68 20 63 6f 72 72 |lamic mo|nth corr|
|00001bd0| 65 73 70 6f 6e 64 69 6e | 67 20 74 6f 20 74 68 65 |espondin|g to the|
|00001be0| 20 64 61 74 65 20 69 6e | 64 69 63 61 74 65 64 20 | date in|dicated |
|00001bf0| 62 79 20 70 6f 69 6e 74 | 2e 0a 50 72 65 66 69 78 |by point|..Prefix|
|00001c00| 20 61 72 67 20 77 69 6c | 6c 20 6d 61 6b 65 20 74 | arg wil|l make t|
|00001c10| 68 65 20 65 6e 74 72 79 | 20 6e 6f 6e 6d 61 72 6b |he entry| nonmark|
|00001c20| 69 6e 67 2e 22 20 22 50 | 22 5d 29 0a 28 64 65 66 |ing." "P|"]).(def|
|00001c30| 61 6c 69 61 73 20 27 69 | 6e 73 65 72 74 2d 79 65 |alias 'i|nsert-ye|
|00001c40| 61 72 6c 79 2d 69 73 6c | 61 6d 69 63 2d 64 69 61 |arly-isl|amic-dia|
|00001c50| 72 79 2d 65 6e 74 72 79 | 20 23 5b 28 61 72 67 29 |ry-entry| #[(arg)|
|00001c60| 20 22 08 83 08 00 c1 82 | 09 00 c2 1b 5c 66 1d c6 | "......|....\f..|
|00001c70| 0e 07 c8 c9 ca cb 21 41 | 41 40 53 1e 5c 66 ca cb |......!A|A@S.\f..|
|00001c80| 21 40 1e 0d ca cb 21 41 | 40 1e 0e ca cb 21 41 41 |!@....!A|@....!AA|
|00001c90| 40 1e 0f 0e 0e 0e 0d 53 | d0 5f 5c 5c 1e 11 0e 0d |@......S|._\\....|
|00001ca0| d2 56 83 6d 00 0e 11 0e | 0d d3 5f d4 5c 5c d5 a5 |.V.m....|.._.\\..|
|00001cb0| 5a 16 11 0e 0f d3 a6 d6 | 55 83 6d 00 0e 0f d7 a6 |Z.......|U.m.....|
|00001cc0| d6 55 83 68 00 0e 0f d8 | a6 d6 55 83 6d 00 0e 11 |.U.h....|..U.m...|
|00001cd0| 54 16 11 0e 11 2c 0e 5c | 66 d9 5f 0e 5c 66 d3 a5 |T....,.\|f._.\f..|
|00001ce0| 0e 5c 66 d7 a5 5b 0e 5c | 66 d8 a5 5c 5c 5c 5c 5c |.\f..[.\|f..\\\\\|
|00001cf0| 5c 5c 5c 29 21 21 50 0e | 1a 5c 22 2a 87 22 20 5b |\\\)!!P.|.\"*." [|
|00001d00| 65 75 72 6f 70 65 61 6e | 2d 63 61 6c 65 6e 64 61 |european|-calenda|
|00001d10| 72 2d 73 74 79 6c 65 20 | 28 64 61 79 20 22 20 22 |r-style |(day " "|
|00001d20| 20 6d 6f 6e 74 68 6e 61 | 6d 65 29 20 28 6d 6f 6e | monthna|me) (mon|
|00001d30| 74 68 6e 61 6d 65 20 22 | 20 22 20 64 61 79 29 20 |thname "| " day) |
|00001d40| 63 61 6c 65 6e 64 61 72 | 2d 64 61 74 65 2d 64 69 |calendar|-date-di|
|00001d50| 73 70 6c 61 79 2d 66 6f | 72 6d 20 63 61 6c 65 6e |splay-fo|rm calen|
|00001d60| 64 61 72 2d 69 73 6c 61 | 6d 69 63 2d 6d 6f 6e 74 |dar-isla|mic-mont|
|00001d70| 68 2d 6e 61 6d 65 2d 61 | 72 72 61 79 20 63 61 6c |h-name-a|rray cal|
|00001d80| 65 6e 64 61 72 2d 6d 6f | 6e 74 68 2d 6e 61 6d 65 |endar-mo|nth-name|
|00001d90| 2d 61 72 72 61 79 20 6d | 61 6b 65 2d 64 69 61 72 |-array m|ake-diar|
|00001da0| 79 2d 65 6e 74 72 79 20 | 69 73 6c 61 6d 69 63 2d |y-entry |islamic-|
|00001db0| 64 69 61 72 79 2d 65 6e | 74 72 79 2d 73 79 6d 62 |diary-en|try-symb|
|00001dc0| 6f 6c 20 63 61 6c 65 6e | 64 61 72 2d 64 61 74 65 |ol calen|dar-date|
|00001dd0| 2d 73 74 72 69 6e 67 20 | 63 61 6c 65 6e 64 61 72 |-string |calendar|
|00001de0| 2d 69 73 6c 61 6d 69 63 | 2d 66 72 6f 6d 2d 61 62 |-islamic|-from-ab|
|00001df0| 73 6f 6c 75 74 65 20 63 | 61 6c 65 6e 64 61 72 2d |solute c|alendar-|
|00001e00| 63 75 72 73 6f 72 2d 74 | 6f 2d 64 61 74 65 20 74 |cursor-t|o-date t|
|00001e10| 20 70 72 69 6f 72 2d 79 | 65 61 72 73 20 6d 6f 6e | prior-y|ears mon|
|00001e20| 74 68 20 64 61 79 20 79 | 65 61 72 20 33 31 20 64 |th day y|ear 31 d|
|00001e30| 61 79 2d 6f 66 2d 79 65 | 61 72 20 32 20 34 20 32 |ay-of-ye|ar 2 4 2|
|00001e40| 33 20 31 30 20 30 20 31 | 30 30 20 34 30 30 20 33 |3 10 0 1|00 400 3|
|00001e50| 36 35 20 61 72 67 5d 20 | 31 30 20 22 5c 0a 49 6e |65 arg] |10 "\.In|
|00001e60| 73 65 72 74 20 61 6e 20 | 61 6e 6e 75 61 6c 20 64 |sert an |annual d|
|00001e70| 69 61 72 79 20 65 6e 74 | 72 79 2e 0a 46 6f 72 20 |iary ent|ry..For |
|00001e80| 74 68 65 20 64 61 79 20 | 6f 66 20 74 68 65 20 49 |the day |of the I|
|00001e90| 73 6c 61 6d 69 63 20 79 | 65 61 72 20 63 6f 72 72 |slamic y|ear corr|
|00001ea0| 65 73 70 6f 6e 64 69 6e | 67 20 74 6f 20 74 68 65 |espondin|g to the|
|00001eb0| 20 64 61 74 65 20 69 6e | 64 69 63 61 74 65 64 20 | date in|dicated |
|00001ec0| 62 79 20 70 6f 69 6e 74 | 2e 0a 50 72 65 66 69 78 |by point|..Prefix|
|00001ed0| 20 61 72 67 20 77 69 6c | 6c 20 6d 61 6b 65 20 74 | arg wil|l make t|
|00001ee0| 68 65 20 65 6e 74 72 79 | 20 6e 6f 6e 6d 61 72 6b |he entry| nonmark|
|00001ef0| 69 6e 67 2e 22 20 22 50 | 22 5d 29 0a 28 70 72 6f |ing." "P|"]).(pro|
|00001f00| 76 69 64 65 20 28 71 75 | 6f 74 65 20 64 69 61 72 |vide (qu|ote diar|
|00001f10| 79 2d 69 6e 73 29 29 0a | |y-ins)).| |
+--------+-------------------------+-------------------------+--------+--------+
