/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / calendar / cal-x.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 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 33 3a 35 31 3a 35 | 30 20 31 39 39 35 0a 3b | 13:51:5|0 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 63 61 | 6c 65 6e 64 61 72 2f 63 |/lisp/ca|lendar/c|
|00000090| 61 6c 2d 78 2e 65 6c 0a | 3b 3b 3b 20 65 6d 61 63 |al-x.el.|;;; emac|
|000000a0| 73 20 76 65 72 73 69 6f | 6e 20 31 39 2e 31 33 20 |s versio|n 19.13 |
|000000b0| 58 45 6d 61 63 73 20 4c | 75 63 69 64 2e 0a 3b 3b |XEmacs L|ucid..;;|
|000000c0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000d0| 6f 6e 20 32 2e 32 35 3b | 20 31 2d 53 65 70 2d 39 |on 2.25;| 1-Sep-9|
|000000e0| 34 2e 0a 3b 3b 3b 20 6f | 70 74 69 6d 69 7a 61 74 |4..;;; o|ptimizat|
|000000f0| 69 6f 6e 20 69 73 20 6f | 6e 2e 0a 3b 3b 3b 20 74 |ion is o|n..;;; t|
|00000100| 68 69 73 20 66 69 6c 65 | 20 75 73 65 73 20 6f 70 |his file| uses op|
|00000110| 63 6f 64 65 73 20 77 68 | 69 63 68 20 64 6f 20 6e |codes wh|ich do n|
|00000120| 6f 74 20 65 78 69 73 74 | 20 69 6e 20 45 6d 61 63 |ot exist| in Emac|
|00000130| 73 20 31 38 2e 0a 0a 28 | 69 66 20 28 61 6e 64 20 |s 18...(|if (and |
|00000140| 28 62 6f 75 6e 64 70 20 | 27 65 6d 61 63 73 2d 76 |(boundp |'emacs-v|
|00000150| 65 72 73 69 6f 6e 29 0a | 09 20 28 6f 72 20 28 61 |ersion).|. (or (a|
|00000160| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 70 6f 63 |nd (boun|dp 'epoc|
|00000170| 68 3a 3a 76 65 72 73 69 | 6f 6e 29 20 65 70 6f 63 |h::versi|on) epoc|
|00000180| 68 3a 3a 76 65 72 73 69 | 6f 6e 29 0a 09 20 20 20 |h::versi|on)..   |
|00000190| 20 20 28 73 74 72 69 6e | 67 2d 6c 65 73 73 70 20 |  (strin|g-lessp |
|000001a0| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 20 22 31 |emacs-ve|rsion "1|
|000001b0| 39 22 29 29 29 0a 20 20 | 20 20 28 65 72 72 6f 72 |9"))).  |  (error|
|000001c0| 20 22 54 68 69 73 20 66 | 69 6c 65 20 77 61 73 20 | "This f|ile was |
|000001d0| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|000001e0| 63 73 20 31 39 2e 22 29 | 29 0a 0a 28 62 79 74 65 |cs 19.")|)..(byte|
|000001f0| 2d 63 6f 64 65 20 22 c0 | c1 21 88 c2 c3 21 ac 85 |-code ".|.!...!..|
|00000200| c3 c1 4b 4d 88 c0 87 22 | 20 5b 72 65 71 75 69 72 |..KM..."| [requir|
|00000210| 65 20 63 61 6c 65 6e 64 | 61 72 20 66 62 6f 75 6e |e calend|ar fboun|
|00000220| 64 70 20 63 61 6c 65 6e | 64 61 72 2d 62 61 73 69 |dp calen|dar-basi|
|00000230| 63 2d 73 65 74 75 70 5d | 20 32 29 0a 28 64 65 66 |c-setup]| 2).(def|
|00000240| 76 61 72 20 63 61 6c 65 | 6e 64 61 72 2d 73 65 74 |var cale|ndar-set|
|00000250| 75 70 20 27 6f 6e 65 2d | 66 72 61 6d 65 20 22 5c |up 'one-|frame "\|
|00000260| 0a 54 68 65 20 66 72 61 | 6d 65 20 73 65 74 20 75 |.The fra|me set u|
|00000270| 70 20 6f 66 20 74 68 65 | 20 63 61 6c 65 6e 64 61 |p of the| calenda|
|00000280| 72 2e 0a 54 68 65 20 63 | 68 6f 69 63 65 73 20 61 |r..The c|hoices a|
|00000290| 72 65 20 60 6f 6e 65 2d | 66 72 61 6d 65 27 20 28 |re `one-|frame' (|
|000002a0| 63 61 6c 65 6e 64 61 72 | 20 61 6e 64 20 64 69 61 |calendar| and dia|
|000002b0| 72 79 20 74 6f 67 65 74 | 68 65 72 20 69 6e 20 6f |ry toget|her in o|
|000002c0| 6e 65 20 73 65 70 61 72 | 61 74 65 2c 0a 64 65 64 |ne separ|ate,.ded|
|000002d0| 69 63 69 61 74 65 64 20 | 66 72 61 6d 65 29 20 6f |iciated |frame) o|
|000002e0| 72 20 60 74 77 6f 2d 66 | 72 61 6d 65 73 27 20 28 |r `two-f|rames' (|
|000002f0| 63 61 6c 65 6e 64 61 72 | 20 61 6e 64 20 64 69 61 |calendar| and dia|
|00000300| 72 79 20 69 6e 20 73 65 | 70 61 72 61 74 65 2c 20 |ry in se|parate, |
|00000310| 64 65 64 69 63 61 74 65 | 64 0a 66 72 61 6d 65 73 |dedicate|d.frames|
|00000320| 29 3b 20 77 69 74 68 20 | 61 6e 79 20 6f 74 68 65 |); with |any othe|
|00000330| 72 20 76 61 6c 75 65 20 | 74 68 65 20 63 75 72 72 |r value |the curr|
|00000340| 65 6e 74 20 66 72 61 6d | 65 20 69 73 20 75 73 65 |ent fram|e is use|
|00000350| 64 2e 22 29 0a 28 66 73 | 65 74 20 27 63 61 6c 65 |d.").(fs|et 'cale|
|00000360| 6e 64 61 72 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |ndar #[(|&optiona|
|00000370| 6c 20 61 72 67 29 20 22 | 08 c1 9a ab 84 c2 0b 21 |l arg) "|.......!|
|00000380| 87 08 c4 9a ab 84 c5 0b | 21 87 c6 0b 21 87 22 20 |........|!...!." |
|00000390| 5b 63 61 6c 65 6e 64 61 | 72 2d 73 65 74 75 70 20 |[calenda|r-setup |
|000003a0| 6f 6e 65 2d 66 72 61 6d | 65 20 63 61 6c 65 6e 64 |one-fram|e calend|
|000003b0| 61 72 2d 6f 6e 65 2d 66 | 72 61 6d 65 2d 73 65 74 |ar-one-f|rame-set|
|000003c0| 75 70 20 61 72 67 20 74 | 77 6f 2d 66 72 61 6d 65 |up arg t|wo-frame|
|000003d0| 73 20 63 61 6c 65 6e 64 | 61 72 2d 74 77 6f 2d 66 |s calend|ar-two-f|
|000003e0| 72 61 6d 65 2d 73 65 74 | 75 70 20 63 61 6c 65 6e |rame-set|up calen|
|000003f0| 64 61 72 2d 62 61 73 69 | 63 2d 73 65 74 75 70 5d |dar-basi|c-setup]|
|00000400| 20 32 20 22 5c 0a 43 68 | 6f 6f 73 65 20 62 65 74 | 2 "\.Ch|oose bet|
|00000410| 77 65 65 6e 20 74 68 65 | 20 6f 6e 65 20 66 72 61 |ween the| one fra|
|00000420| 6d 65 2c 20 74 77 6f 20 | 66 72 61 6d 65 2c 20 6f |me, two |frame, o|
|00000430| 72 20 62 61 73 69 63 20 | 63 61 6c 65 6e 64 61 72 |r basic |calendar|
|00000440| 20 64 69 73 70 6c 61 79 | 73 2e 0a 54 68 65 20 6f | display|s..The o|
|00000450| 72 69 67 69 6e 61 6c 20 | 66 75 6e 63 74 69 6f 6e |riginal |function|
|00000460| 20 60 63 61 6c 65 6e 64 | 61 72 27 20 68 61 73 20 | `calend|ar' has |
|00000470| 62 65 65 6e 20 72 65 6e | 61 6d 65 64 20 60 63 61 |been ren|amed `ca|
|00000480| 6c 65 6e 64 61 72 2d 62 | 61 73 69 63 2d 73 65 74 |lendar-b|asic-set|
|00000490| 75 70 27 2e 22 20 22 50 | 22 5d 29 0a 28 64 65 66 |up'." "P|"]).(def|
|000004a0| 76 61 72 20 63 61 6c 65 | 6e 64 61 72 2d 66 72 61 |var cale|ndar-fra|
|000004b0| 6d 65 20 6e 69 6c 20 22 | 5c 0a 46 72 61 6d 65 20 |me nil "|\.Frame |
|000004c0| 69 6e 20 77 68 69 63 68 | 20 74 6f 20 64 69 73 70 |in which| to disp|
|000004d0| 6c 61 79 20 74 68 65 20 | 63 61 6c 65 6e 64 61 72 |lay the |calendar|
|000004e0| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 64 69 61 72 |.").(def|var diar|
|000004f0| 79 2d 66 72 61 6d 65 20 | 6e 69 6c 20 22 5c 0a 46 |y-frame |nil "\.F|
|00000500| 72 61 6d 65 20 69 6e 20 | 77 68 69 63 68 20 74 6f |rame in |which to|
|00000510| 20 64 69 73 70 6c 61 79 | 20 74 68 65 20 64 69 61 | display| the dia|
|00000520| 72 79 2e 22 29 0a 28 64 | 65 66 76 61 72 20 64 69 |ry.").(d|efvar di|
|00000530| 61 72 79 2d 66 72 61 6d | 65 2d 70 61 72 61 6d 65 |ary-fram|e-parame|
|00000540| 74 65 72 73 20 27 28 28 | 6e 61 6d 65 20 2e 20 22 |ters '((|name . "|
|00000550| 44 69 61 72 79 22 29 20 | 28 68 65 69 67 68 74 20 |Diary") |(height |
|00000560| 2e 20 31 30 29 20 28 77 | 69 64 74 68 20 2e 20 38 |. 10) (w|idth . 8|
|00000570| 30 29 20 28 75 6e 73 70 | 6c 69 74 74 61 62 6c 65 |0) (unsp|littable|
|00000580| 20 2e 20 74 29 20 28 66 | 6f 6e 74 20 2e 20 22 36 | . t) (f|ont . "6|
|00000590| 78 31 33 22 29 20 28 61 | 75 74 6f 2d 6c 6f 77 65 |x13") (a|uto-lowe|
|000005a0| 72 20 2e 20 74 29 20 28 | 61 75 74 6f 2d 72 61 69 |r . t) (|auto-rai|
|000005b0| 73 65 20 2e 20 74 29 20 | 28 6d 69 6e 69 62 75 66 |se . t) |(minibuf|
|000005c0| 66 65 72 29 29 20 22 5c | 0a 50 61 72 61 6d 65 74 |fer)) "\|.Paramet|
|000005d0| 65 72 73 20 6f 66 20 74 | 68 65 20 64 69 61 72 79 |ers of t|he diary|
|000005e0| 20 66 72 61 6d 65 2c 20 | 69 66 20 74 68 65 20 64 | frame, |if the d|
|000005f0| 69 61 72 79 20 69 73 20 | 69 6e 20 69 74 73 20 6f |iary is |in its o|
|00000600| 77 6e 20 66 72 61 6d 65 | 2e 0a 4c 6f 63 61 74 69 |wn frame|..Locati|
|00000610| 6f 6e 20 61 6e 64 20 63 | 6f 6c 6f 72 20 73 68 6f |on and c|olor sho|
|00000620| 75 6c 64 20 62 65 20 73 | 65 74 20 69 6e 20 2e 58 |uld be s|et in .X|
|00000630| 64 65 66 61 75 6c 74 73 | 2e 22 29 0a 28 64 65 66 |defaults|.").(def|
|00000640| 76 61 72 20 63 61 6c 65 | 6e 64 61 72 2d 66 72 61 |var cale|ndar-fra|
|00000650| 6d 65 2d 70 61 72 61 6d | 65 74 65 72 73 20 27 28 |me-param|eters '(|
|00000660| 28 6e 61 6d 65 20 2e 20 | 22 43 61 6c 65 6e 64 61 |(name . |"Calenda|
|00000670| 72 22 29 20 28 6d 69 6e | 69 62 75 66 66 65 72 29 |r") (min|ibuffer)|
|00000680| 20 28 68 65 69 67 68 74 | 20 2e 20 31 30 29 20 28 | (height| . 10) (|
|00000690| 77 69 64 74 68 20 2e 20 | 38 30 29 20 28 61 75 74 |width . |80) (aut|
|000006a0| 6f 2d 72 61 69 73 65 20 | 2e 20 74 29 20 28 61 75 |o-raise |. t) (au|
|000006b0| 74 6f 2d 6c 6f 77 65 72 | 20 2e 20 74 29 20 28 66 |to-lower| . t) (f|
|000006c0| 6f 6e 74 20 2e 20 22 36 | 78 31 33 22 29 20 28 75 |ont . "6|x13") (u|
|000006d0| 6e 73 70 6c 69 74 74 61 | 62 6c 65 20 2e 20 74 29 |nsplitta|ble . t)|
|000006e0| 20 28 76 65 72 74 69 63 | 61 6c 2d 73 63 72 6f 6c | (vertic|al-scrol|
|000006f0| 6c 2d 62 61 72 73 29 29 | 20 22 5c 0a 50 61 72 61 |l-bars))| "\.Para|
|00000700| 6d 65 74 65 72 73 20 6f | 66 20 74 68 65 20 63 61 |meters o|f the ca|
|00000710| 6c 65 6e 64 61 72 20 66 | 72 61 6d 65 2c 20 69 66 |lendar f|rame, if|
|00000720| 20 74 68 65 20 63 61 6c | 65 6e 64 61 72 20 69 73 | the cal|endar is|
|00000730| 20 69 6e 20 61 20 73 65 | 70 61 72 61 74 65 20 66 | in a se|parate f|
|00000740| 72 61 6d 65 2e 0a 4c 6f | 63 61 74 69 6f 6e 20 61 |rame..Lo|cation a|
|00000750| 6e 64 20 63 6f 6c 6f 72 | 20 73 68 6f 75 6c 64 20 |nd color| should |
|00000760| 62 65 20 73 65 74 20 69 | 6e 20 2e 58 64 65 66 61 |be set i|n .Xdefa|
|00000770| 75 6c 74 73 2e 22 29 0a | 28 64 65 66 76 61 72 20 |ults.").|(defvar |
|00000780| 63 61 6c 65 6e 64 61 72 | 2d 61 6e 64 2d 64 69 61 |calendar|-and-dia|
|00000790| 72 79 2d 66 72 61 6d 65 | 2d 70 61 72 61 6d 65 74 |ry-frame|-paramet|
|000007a0| 65 72 73 20 27 28 28 6e | 61 6d 65 20 2e 20 22 43 |ers '((n|ame . "C|
|000007b0| 61 6c 65 6e 64 61 72 22 | 29 20 28 68 65 69 67 68 |alendar"|) (heigh|
|000007c0| 74 20 2e 20 32 38 29 20 | 28 77 69 64 74 68 20 2e |t . 28) |(width .|
|000007d0| 20 38 30 29 20 28 6d 69 | 6e 69 62 75 66 66 65 72 | 80) (mi|nibuffer|
|000007e0| 29 20 28 66 6f 6e 74 20 | 2e 20 22 36 78 31 33 22 |) (font |. "6x13"|
|000007f0| 29 20 28 61 75 74 6f 2d | 72 61 69 73 65 20 2e 20 |) (auto-|raise . |
|00000800| 74 29 20 28 61 75 74 6f | 2d 6c 6f 77 65 72 20 2e |t) (auto|-lower .|
|00000810| 20 74 29 29 20 22 5c 0a | 50 61 72 61 6d 65 74 65 | t)) "\.|Paramete|
|00000820| 72 73 20 6f 66 20 74 68 | 65 20 66 72 61 6d 65 20 |rs of th|e frame |
|00000830| 74 68 61 74 20 64 69 73 | 70 6c 61 79 73 20 62 6f |that dis|plays bo|
|00000840| 74 68 20 74 68 65 20 63 | 61 6c 65 6e 64 61 72 20 |th the c|alendar |
|00000850| 61 6e 64 20 74 68 65 20 | 64 69 61 72 79 2e 0a 4c |and the |diary..L|
|00000860| 6f 63 61 74 69 6f 6e 20 | 61 6e 64 20 63 6f 6c 6f |ocation |and colo|
|00000870| 72 20 73 68 6f 75 6c 64 | 20 62 65 20 73 65 74 20 |r should| be set |
|00000880| 69 6e 20 2e 58 64 65 66 | 61 75 6c 74 73 2e 22 29 |in .Xdef|aults.")|
|00000890| 0a 28 64 65 66 76 61 72 | 20 63 61 6c 65 6e 64 61 |.(defvar| calenda|
|000008a0| 72 2d 61 66 74 65 72 2d | 66 72 61 6d 65 2d 73 65 |r-after-|frame-se|
|000008b0| 74 75 70 2d 68 6f 6f 6b | 73 20 6e 69 6c 20 22 5c |tup-hook|s nil "\|
|000008c0| 0a 48 6f 6f 6b 73 20 74 | 6f 20 62 65 20 72 75 6e |.Hooks t|o be run|
|000008d0| 20 6a 75 73 74 20 61 66 | 74 65 72 20 73 65 74 74 | just af|ter sett|
|000008e0| 69 6e 67 20 75 70 20 61 | 20 63 61 6c 65 6e 64 61 |ing up a| calenda|
|000008f0| 72 20 66 72 61 6d 65 2e | 0a 43 61 6e 20 62 65 20 |r frame.|.Can be |
|00000900| 75 73 65 64 20 74 6f 20 | 63 68 61 6e 67 65 20 66 |used to |change f|
|00000910| 72 61 6d 65 20 70 61 72 | 61 6d 65 74 65 72 73 2c |rame par|ameters,|
|00000920| 20 73 75 63 68 20 61 73 | 20 66 6f 6e 74 2c 20 63 | such as| font, c|
|00000930| 6f 6c 6f 72 2c 20 6c 6f | 63 61 74 69 6f 6e 2c 20 |olor, lo|cation, |
|00000940| 65 74 63 2e 22 29 0a 28 | 66 73 65 74 20 27 63 61 |etc.").(|fset 'ca|
|00000950| 6c 65 6e 64 61 72 2d 6e | 6f 74 2d 75 73 69 6e 67 |lendar-n|ot-using|
|00000960| 2d 77 69 6e 64 6f 77 2d | 73 79 73 74 65 6d 2d 70 |-window-|system-p|
|00000970| 20 23 5b 6e 69 6c 20 22 | c0 c1 21 ab 88 c1 c2 20 | #[nil "|..!.... |
|00000980| 21 c3 3d 3f 87 0c 3f 87 | 22 20 5b 66 62 6f 75 6e |!.=?..?.|" [fboun|
|00000990| 64 70 20 64 65 76 69 63 | 65 2d 74 79 70 65 20 73 |dp devic|e-type s|
|000009a0| 65 6c 65 63 74 65 64 2d | 64 65 76 69 63 65 20 78 |elected-|device x|
|000009b0| 20 77 69 6e 64 6f 77 2d | 73 79 73 74 65 6d 5d 20 | window-|system] |
|000009c0| 32 20 22 5c 0a 52 65 74 | 75 72 6e 20 74 20 69 66 |2 "\.Ret|urn t if|
|000009d0| 20 6e 6f 74 20 72 75 6e | 6e 69 6e 67 20 75 6e 64 | not run|ning und|
|000009e0| 65 72 20 61 20 77 69 6e | 64 6f 77 20 73 79 73 74 |er a win|dow syst|
|000009f0| 65 6d 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 63 61 |em."]).(|fset 'ca|
|00000a00| 6c 65 6e 64 61 72 2d 64 | 65 69 63 6f 6e 69 66 79 |lendar-d|eiconify|
|00000a10| 2d 66 72 61 6d 65 20 23 | 5b 28 66 72 61 6d 65 29 |-frame #|[(frame)|
|00000a20| 20 22 c0 c1 5c 6e 5c 22 | ab 89 c3 0c 21 ad 91 c5 | "..\n\"|....!...|
|00000a30| 0c 21 87 c6 c7 c8 0c 21 | 5c 22 41 c9 3d ad 82 ca |.!.....!|\"A.=...|
|00000a40| 20 87 22 20 5b 73 74 72 | 69 6e 67 2d 6d 61 74 63 | ." [str|ing-matc|
|00000a50| 68 20 22 58 45 6d 61 63 | 73 22 20 65 6d 61 63 73 |h "XEmac|s" emacs|
|00000a60| 2d 76 65 72 73 69 6f 6e | 20 66 72 61 6d 65 2d 69 |-version| frame-i|
|00000a70| 63 6f 6e 69 66 69 65 64 | 2d 70 20 66 72 61 6d 65 |conified|-p frame|
|00000a80| 20 64 65 69 63 6f 6e 69 | 66 79 2d 66 72 61 6d 65 | deiconi|fy-frame|
|00000a90| 20 61 73 73 6f 63 20 76 | 69 73 69 62 69 6c 69 74 | assoc v|isibilit|
|00000aa0| 79 20 66 72 61 6d 65 2d | 70 61 72 61 6d 65 74 65 |y frame-|paramete|
|00000ab0| 72 73 20 69 63 6f 6e 20 | 69 63 6f 6e 69 66 79 2d |rs icon |iconify-|
|00000ac0| 6f 72 2d 64 65 69 63 6f | 6e 69 66 79 2d 66 72 61 |or-deico|nify-fra|
|00000ad0| 6d 65 5d 20 34 20 22 5c | 0a 44 65 69 63 6f 6e 69 |me] 4 "\|.Deiconi|
|00000ae0| 66 79 20 74 68 65 20 67 | 69 76 65 6e 20 66 72 61 |fy the g|iven fra|
|00000af0| 6d 65 20 69 66 20 69 74 | 20 69 73 20 63 75 72 72 |me if it| is curr|
|00000b00| 65 6e 74 6c 79 20 69 63 | 6f 6e 69 66 69 65 64 2e |ently ic|onified.|
|00000b10| 22 5d 29 0a 28 66 73 65 | 74 20 27 63 61 6c 65 6e |"]).(fse|t 'calen|
|00000b20| 64 61 72 2d 6f 6e 65 2d | 66 72 61 6d 65 2d 73 65 |dar-one-|frame-se|
|00000b30| 74 75 70 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |tup #[(&|optional|
|00000b40| 20 61 72 67 29 20 22 c0 | 20 ab 84 c1 5c 6e 21 87 | arg) ".| ...\n!.|
|00000b50| c3 0c 21 ab 84 c5 0c 21 | 88 c3 0e 06 21 ab 85 c5 |..!....!|....!...|
|00000b60| 0e 06 21 88 c7 c8 1e 09 | 1e 5c 6e cb 8b 2a 87 22 |..!.....|.\n..*."|
|00000b70| 20 5b 63 61 6c 65 6e 64 | 61 72 2d 6e 6f 74 2d 75 | [calend|ar-not-u|
|00000b80| 73 69 6e 67 2d 77 69 6e | 64 6f 77 2d 73 79 73 74 |sing-win|dow-syst|
|00000b90| 65 6d 2d 70 20 63 61 6c | 65 6e 64 61 72 2d 62 61 |em-p cal|endar-ba|
|00000ba0| 73 69 63 2d 73 65 74 75 | 70 20 61 72 67 20 66 72 |sic-setu|p arg fr|
|00000bb0| 61 6d 65 2d 6c 69 76 65 | 2d 70 20 63 61 6c 65 6e |ame-live|-p calen|
|00000bc0| 64 61 72 2d 66 72 61 6d | 65 20 64 65 6c 65 74 65 |dar-fram|e delete|
|00000bd0| 2d 66 72 61 6d 65 20 64 | 69 61 72 79 2d 66 72 61 |-frame d|iary-fra|
|00000be0| 6d 65 20 6e 69 6c 20 74 | 20 76 69 65 77 2d 64 69 |me nil t| view-di|
|00000bf0| 61 72 79 2d 65 6e 74 72 | 69 65 73 2d 69 6e 69 74 |ary-entr|ies-init|
|00000c00| 69 61 6c 6c 79 20 73 70 | 65 63 69 61 6c 2d 64 69 |ially sp|ecial-di|
|00000c10| 73 70 6c 61 79 2d 62 75 | 66 66 65 72 2d 6e 61 6d |splay-bu|ffer-nam|
|00000c20| 65 73 20 28 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |es ((byt|e-code "|
|00000c30| 8a c0 09 21 12 c3 c4 21 | 88 c5 5c 6e 21 88 c6 5c |...!...!|..\n!..\|
|00000c40| 6e 21 88 c7 0e 08 21 88 | c9 ca 20 cb 5c 22 88 c9 |n!....!.|.. .\"..|
|00000c50| cc cd 0e 0e 3e ac 86 cf | 0e 10 21 aa 8d d1 d2 0e |....>...|..!.....|
|00000c60| 13 21 21 ac 83 d4 20 88 | 0e 13 21 d5 5c 22 29 87 |.!!... .|..!.\").|
|00000c70| 22 20 5b 6d 61 6b 65 2d | 66 72 61 6d 65 20 63 61 |" [make-|frame ca|
|00000c80| 6c 65 6e 64 61 72 2d 61 | 6e 64 2d 64 69 61 72 79 |lendar-a|nd-diary|
|00000c90| 2d 66 72 61 6d 65 2d 70 | 61 72 61 6d 65 74 65 72 |-frame-p|arameter|
|00000ca0| 73 20 63 61 6c 65 6e 64 | 61 72 2d 66 72 61 6d 65 |s calend|ar-frame|
|00000cb0| 20 72 75 6e 2d 68 6f 6f | 6b 73 20 63 61 6c 65 6e | run-hoo|ks calen|
|00000cc0| 64 61 72 2d 61 66 74 65 | 72 2d 66 72 61 6d 65 2d |dar-afte|r-frame-|
|00000cd0| 73 65 74 75 70 2d 68 6f | 6f 6b 73 20 73 65 6c 65 |setup-ho|oks sele|
|00000ce0| 63 74 2d 66 72 61 6d 65 | 20 63 61 6c 65 6e 64 61 |ct-frame| calenda|
|00000cf0| 72 2d 64 65 69 63 6f 6e | 69 66 79 2d 66 72 61 6d |r-deicon|ify-fram|
|00000d00| 65 20 63 61 6c 65 6e 64 | 61 72 2d 62 61 73 69 63 |e calend|ar-basic|
|00000d10| 2d 73 65 74 75 70 20 61 | 72 67 20 73 65 74 2d 77 |-setup a|rg set-w|
|00000d20| 69 6e 64 6f 77 2d 64 65 | 64 69 63 61 74 65 64 2d |indow-de|dicated-|
|00000d30| 70 20 73 65 6c 65 63 74 | 65 64 2d 77 69 6e 64 6f |p select|ed-windo|
|00000d40| 77 20 63 61 6c 65 6e 64 | 61 72 20 64 69 73 70 6c |w calend|ar displ|
|00000d50| 61 79 2d 62 75 66 66 65 | 72 20 66 61 6e 63 79 2d |ay-buffe|r fancy-|
|00000d60| 64 69 61 72 79 2d 64 69 | 73 70 6c 61 79 20 64 69 |diary-di|splay di|
|00000d70| 61 72 79 2d 64 69 73 70 | 6c 61 79 2d 68 6f 6f 6b |ary-disp|lay-hook|
|00000d80| 20 67 65 74 2d 66 69 6c | 65 2d 62 75 66 66 65 72 | get-fil|e-buffer|
|00000d90| 20 64 69 61 72 79 2d 66 | 69 6c 65 20 62 75 66 66 | diary-f|ile buff|
|00000da0| 65 72 70 20 67 65 74 2d | 62 75 66 66 65 72 20 66 |erp get-|buffer f|
|00000db0| 61 6e 63 79 2d 64 69 61 | 72 79 2d 62 75 66 66 65 |ancy-dia|ry-buffe|
|00000dc0| 72 20 6d 61 6b 65 2d 66 | 61 6e 63 79 2d 64 69 61 |r make-f|ancy-dia|
|00000dd0| 72 79 2d 62 75 66 66 65 | 72 20 64 69 61 72 79 5d |ry-buffe|r diary]|
|00000de0| 20 35 29 29 5d 20 32 20 | 22 5c 0a 53 74 61 72 74 | 5))] 2 |"\.Start|
|00000df0| 20 63 61 6c 65 6e 64 61 | 72 20 61 6e 64 20 64 69 | calenda|r and di|
|00000e00| 73 70 6c 61 79 20 69 74 | 20 69 6e 20 61 20 64 65 |splay it| in a de|
|00000e10| 64 69 63 61 74 65 64 20 | 66 72 61 6d 65 20 74 6f |dicated |frame to|
|00000e20| 67 65 74 68 65 72 20 77 | 69 74 68 20 74 68 65 20 |gether w|ith the |
|00000e30| 64 69 61 72 79 2e 22 5d | 29 0a 28 66 73 65 74 20 |diary."]|).(fset |
|00000e40| 27 63 61 6c 65 6e 64 61 | 72 2d 74 77 6f 2d 66 72 |'calenda|r-two-fr|
|00000e50| 61 6d 65 2d 73 65 74 75 | 70 20 23 5b 28 26 6f 70 |ame-setu|p #[(&op|
|00000e60| 74 69 6f 6e 61 6c 20 61 | 72 67 29 20 22 c0 20 ab |tional a|rg) ". .|
|00000e70| 84 c1 5c 6e 21 87 c3 0c | 21 ab 84 c5 0c 21 88 c3 |..\n!...|!....!..|
|00000e80| 0e 06 21 ab 85 c5 0e 06 | 21 88 c7 89 89 1e 08 1e |..!.....|!.......|
|00000e90| 09 1e 5c 6e cb 8b 2b 87 | 22 20 5b 63 61 6c 65 6e |..\n..+.|" [calen|
|00000ea0| 64 61 72 2d 6e 6f 74 2d | 75 73 69 6e 67 2d 77 69 |dar-not-|using-wi|
|00000eb0| 6e 64 6f 77 2d 73 79 73 | 74 65 6d 2d 70 20 63 61 |ndow-sys|tem-p ca|
|00000ec0| 6c 65 6e 64 61 72 2d 62 | 61 73 69 63 2d 73 65 74 |lendar-b|asic-set|
|00000ed0| 75 70 20 61 72 67 20 66 | 72 61 6d 65 2d 6c 69 76 |up arg f|rame-liv|
|00000ee0| 65 2d 70 20 63 61 6c 65 | 6e 64 61 72 2d 66 72 61 |e-p cale|ndar-fra|
|00000ef0| 6d 65 20 64 65 6c 65 74 | 65 2d 66 72 61 6d 65 20 |me delet|e-frame |
|00000f00| 64 69 61 72 79 2d 66 72 | 61 6d 65 20 6e 69 6c 20 |diary-fr|ame nil |
|00000f10| 73 70 65 63 69 61 6c 2d | 64 69 73 70 6c 61 79 2d |special-|display-|
|00000f20| 62 75 66 66 65 72 2d 6e | 61 6d 65 73 20 76 69 65 |buffer-n|ames vie|
|00000f30| 77 2d 64 69 61 72 79 2d | 65 6e 74 72 69 65 73 2d |w-diary-|entries-|
|00000f40| 69 6e 69 74 69 61 6c 6c | 79 20 70 6f 70 2d 75 70 |initiall|y pop-up|
|00000f50| 2d 77 69 6e 64 6f 77 73 | 20 28 28 62 79 74 65 2d |-windows| ((byte-|
|00000f60| 63 6f 64 65 20 22 8a c0 | 09 21 88 29 c2 0b 21 14 |code "..|.!.)..!.|
|00000f70| c5 c6 21 88 c7 0c 21 88 | c8 0c 21 88 c9 0e 5c 6e |..!...!.|..!...\n|
|00000f80| 21 88 cb cc 20 cd 5c 22 | 88 c2 0e 0e 21 16 0f c5 |!... .\"|....!...|
|00000f90| c6 21 88 c7 0e 0f 21 88 | c8 0e 0f 21 88 8a d0 20 |.!....!.|...!... |
|00000fa0| 88 29 cb c9 d1 0e 12 3e | ac 86 d3 0e 14 21 aa 8d |.).....>|.....!..|
|00000fb0| d5 d6 0e 17 21 21 ac 83 | d8 20 88 0e 17 21 d0 5c |....!!..|. ...!.\|
|00000fc0| 22 87 22 20 5b 63 61 6c | 65 6e 64 61 72 2d 62 61 |"." [cal|endar-ba|
|00000fd0| 73 69 63 2d 73 65 74 75 | 70 20 61 72 67 20 6d 61 |sic-setu|p arg ma|
|00000fe0| 6b 65 2d 66 72 61 6d 65 | 20 63 61 6c 65 6e 64 61 |ke-frame| calenda|
|00000ff0| 72 2d 66 72 61 6d 65 2d | 70 61 72 61 6d 65 74 65 |r-frame-|paramete|
|00001000| 72 73 20 63 61 6c 65 6e | 64 61 72 2d 66 72 61 6d |rs calen|dar-fram|
|00001010| 65 20 72 75 6e 2d 68 6f | 6f 6b 73 20 63 61 6c 65 |e run-ho|oks cale|
|00001020| 6e 64 61 72 2d 61 66 74 | 65 72 2d 66 72 61 6d 65 |ndar-aft|er-frame|
|00001030| 2d 73 65 74 75 70 2d 68 | 6f 6f 6b 73 20 73 65 6c |-setup-h|ooks sel|
|00001040| 65 63 74 2d 66 72 61 6d | 65 20 63 61 6c 65 6e 64 |ect-fram|e calend|
|00001050| 61 72 2d 64 65 69 63 6f | 6e 69 66 79 2d 66 72 61 |ar-deico|nify-fra|
|00001060| 6d 65 20 64 69 73 70 6c | 61 79 2d 62 75 66 66 65 |me displ|ay-buffe|
|00001070| 72 20 63 61 6c 65 6e 64 | 61 72 2d 62 75 66 66 65 |r calend|ar-buffe|
|00001080| 72 20 73 65 74 2d 77 69 | 6e 64 6f 77 2d 64 65 64 |r set-wi|ndow-ded|
|00001090| 69 63 61 74 65 64 2d 70 | 20 73 65 6c 65 63 74 65 |icated-p| selecte|
|000010a0| 64 2d 77 69 6e 64 6f 77 | 20 63 61 6c 65 6e 64 61 |d-window| calenda|
|000010b0| 72 20 64 69 61 72 79 2d | 66 72 61 6d 65 2d 70 61 |r diary-|frame-pa|
|000010c0| 72 61 6d 65 74 65 72 73 | 20 64 69 61 72 79 2d 66 |rameters| diary-f|
|000010d0| 72 61 6d 65 20 64 69 61 | 72 79 20 66 61 6e 63 79 |rame dia|ry fancy|
|000010e0| 2d 64 69 61 72 79 2d 64 | 69 73 70 6c 61 79 20 64 |-diary-d|isplay d|
|000010f0| 69 61 72 79 2d 64 69 73 | 70 6c 61 79 2d 68 6f 6f |iary-dis|play-hoo|
|00001100| 6b 20 67 65 74 2d 66 69 | 6c 65 2d 62 75 66 66 65 |k get-fi|le-buffe|
|00001110| 72 20 64 69 61 72 79 2d | 66 69 6c 65 20 62 75 66 |r diary-|file buf|
|00001120| 66 65 72 70 20 67 65 74 | 2d 62 75 66 66 65 72 20 |ferp get|-buffer |
|00001130| 66 61 6e 63 79 2d 64 69 | 61 72 79 2d 62 75 66 66 |fancy-di|ary-buff|
|00001140| 65 72 20 6d 61 6b 65 2d | 66 61 6e 63 79 2d 64 69 |er make-|fancy-di|
|00001150| 61 72 79 2d 62 75 66 66 | 65 72 5d 20 35 29 29 5d |ary-buff|er] 5))]|
|00001160| 20 33 20 22 5c 0a 53 74 | 61 72 74 20 63 61 6c 65 | 3 "\.St|art cale|
|00001170| 6e 64 61 72 20 61 6e 64 | 20 64 69 61 72 79 20 69 |ndar and| diary i|
|00001180| 6e 20 73 65 70 61 72 61 | 74 65 2c 20 64 65 64 69 |n separa|te, dedi|
|00001190| 63 61 74 65 64 20 66 72 | 61 6d 65 73 2e 22 5d 29 |cated fr|ames."])|
|000011a0| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 4d |.(byte-c|ode "..M|
|000011b0| 88 c2 c3 0c 5c 22 ac 95 | c5 0e 06 c7 0e 08 0e 09 |....\"..|........|
|000011c0| 0e 5c 6e cb 0e 0c 21 0e | 0d af 06 5c 22 16 06 ce |.\n...!.|...\"...|
|000011d0| cf 21 88 d0 d1 21 87 22 | 20 5b 6d 61 6b 65 2d 66 |.!...!."| [make-f|
|000011e0| 61 6e 63 79 2d 64 69 61 | 72 79 2d 62 75 66 66 65 |ancy-dia|ry-buffe|
|000011f0| 72 20 23 5b 6e 69 6c 20 | 22 8a c0 09 21 71 88 c2 |r #[nil |"...!q..|
|00001200| 13 c4 c5 21 88 c6 c7 21 | 88 c8 20 88 c9 c2 21 88 |...!...!|.. ...!.|
|00001210| ca 89 13 29 87 22 20 5b | 67 65 74 2d 62 75 66 66 |...)." [|get-buff|
|00001220| 65 72 2d 63 72 65 61 74 | 65 20 66 61 6e 63 79 2d |er-creat|e fancy-|
|00001230| 64 69 61 72 79 2d 62 75 | 66 66 65 72 20 6e 69 6c |diary-bu|ffer nil|
|00001240| 20 62 75 66 66 65 72 2d | 72 65 61 64 2d 6f 6e 6c | buffer-|read-onl|
|00001250| 79 20 6d 61 6b 65 2d 6c | 6f 63 61 6c 2d 76 61 72 |y make-l|ocal-var|
|00001260| 69 61 62 6c 65 20 6d 6f | 64 65 2d 6c 69 6e 65 2d |iable mo|de-line-|
|00001270| 66 6f 72 6d 61 74 20 63 | 61 6c 65 6e 64 61 72 2d |format c|alendar-|
|00001280| 73 65 74 2d 6d 6f 64 65 | 2d 6c 69 6e 65 20 22 44 |set-mode|-line "D|
|00001290| 69 61 72 79 20 45 6e 74 | 72 69 65 73 22 20 65 72 |iary Ent|ries" er|
|000012a0| 61 73 65 2d 62 75 66 66 | 65 72 20 73 65 74 2d 62 |ase-buff|er set-b|
|000012b0| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|000012c0| 20 74 5d 20 32 5d 20 73 | 74 72 69 6e 67 2d 6d 61 | t] 2] s|tring-ma|
|000012d0| 74 63 68 20 22 58 45 6d | 61 63 73 22 20 65 6d 61 |tch "XEm|acs" ema|
|000012e0| 63 73 2d 76 65 72 73 69 | 6f 6e 20 61 70 70 65 6e |cs-versi|on appen|
|000012f0| 64 20 73 70 65 63 69 61 | 6c 2d 64 69 73 70 6c 61 |d specia|l-displa|
|00001300| 79 2d 62 75 66 66 65 72 | 2d 6e 61 6d 65 73 20 22 |y-buffer|-names "|
|00001310| 2a 59 61 68 72 7a 65 69 | 74 73 2a 22 20 6c 75 6e |*Yahrzei|ts*" lun|
|00001320| 61 72 2d 70 68 61 73 65 | 73 2d 62 75 66 66 65 72 |ar-phase|s-buffer|
|00001330| 20 68 6f 6c 69 64 61 79 | 2d 62 75 66 66 65 72 20 | holiday|-buffer |
|00001340| 66 61 6e 63 79 2d 64 69 | 61 72 79 2d 62 75 66 66 |fancy-di|ary-buff|
|00001350| 65 72 20 67 65 74 2d 66 | 69 6c 65 2d 62 75 66 66 |er get-f|ile-buff|
|00001360| 65 72 20 64 69 61 72 79 | 2d 66 69 6c 65 20 63 61 |er diary|-file ca|
|00001370| 6c 65 6e 64 61 72 2d 62 | 75 66 66 65 72 20 72 75 |lendar-b|uffer ru|
|00001380| 6e 2d 68 6f 6f 6b 73 20 | 63 61 6c 2d 78 2d 6c 6f |n-hooks |cal-x-lo|
|00001390| 61 64 2d 68 6f 6f 6b 20 | 70 72 6f 76 69 64 65 20 |ad-hook |provide |
|000013a0| 63 61 6c 2d 78 5d 20 38 | 29 0a                   |cal-x] 8|).      |
+--------+-------------------------+-------------------------+--------+--------+