/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / calendar / appt.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 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 4d 6f 6e 20 |lidomide| on Mon |
|00000030| 46 65 62 20 20 31 20 31 | 38 3a 33 35 3a 32 38 20 |Feb  1 1|8:35:28 |
|00000040| 31 39 39 33 0a 3b 3b 3b | 20 66 72 6f 6d 20 66 69 |1993.;;;| from fi|
|00000050| 6c 65 20 2f 63 61 64 69 | 6c 6c 61 63 31 2f 63 6f |le /cadi|llac1/co|
|00000060| 64 65 2f 62 75 69 6c 64 | 2f 6c 65 6d 61 63 73 2f |de/build|/lemacs/|
|00000070| 6c 69 73 70 2f 63 61 6c | 65 6e 64 61 72 2f 61 70 |lisp/cal|endar/ap|
|00000080| 70 74 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |pt.el.;;|; emacs |
|00000090| 76 65 72 73 69 6f 6e 20 | 31 39 2e 34 2e 31 33 20 |version |19.4.13 |
|000000a0| 4c 75 63 69 64 2e 0a 3b | 3b 3b 20 62 79 74 65 63 |Lucid..;|;; bytec|
|000000b0| 6f 6d 70 20 76 65 72 73 | 69 6f 6e 20 32 2e 31 30 |omp vers|ion 2.10|
|000000c0| 3b 20 20 31 2d 66 65 62 | 2d 39 33 2e 0a 3b 3b 3b |;  1-feb|-93..;;;|
|000000d0| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|000000e0| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|000000f0| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|00000100| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|00000110| 73 74 20 69 6e 20 45 6d | 61 63 73 31 38 2e 0a 0a |st in Em|acs18...|
|00000120| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000130| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000140| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000150| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|00000160| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|00000170| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion)..  |   (stri|
|00000180| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|00000190| 65 72 73 69 6f 6e 20 22 | 31 39 22 29 29 29 0a 20 |ersion "|19"))). |
|000001a0| 20 20 20 28 65 72 72 6f | 72 20 22 54 68 69 73 20 |   (erro|r "This |
|000001b0| 66 69 6c 65 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |file was| compile|
|000001c0| 64 20 66 6f 72 20 45 6d | 61 63 73 31 39 2e 22 29 |d for Em|acs19.")|
|000001d0| 29 0a 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |)..(byte|-code ".|
|000001e0| c1 21 88 c0 c2 21 87 22 | 20 5b 72 65 71 75 69 72 |.!...!."| [requir|
|000001f0| 65 20 63 61 6c 65 6e 64 | 61 72 20 64 69 61 72 79 |e calend|ar diary|
|00000200| 5d 20 32 29 0a 28 64 65 | 66 76 61 72 20 61 70 70 |] 2).(de|fvar app|
|00000210| 74 2d 69 73 73 75 65 2d | 6d 65 73 73 61 67 65 20 |t-issue-|message |
|00000220| 74 20 22 5c 0a 2a 49 66 | 20 54 2c 20 74 68 65 20 |t "\.*If| T, the |
|00000230| 64 69 61 72 79 20 62 75 | 66 66 65 72 20 69 73 20 |diary bu|ffer is |
|00000240| 63 68 65 63 6b 65 64 20 | 66 6f 72 20 61 70 70 6f |checked |for appo|
|00000250| 69 6e 74 6d 65 6e 74 73 | 2e 20 20 46 6f 72 20 61 |intments|.  For a|
|00000260| 6e 0a 20 61 70 70 6f 69 | 6e 74 6d 65 6e 74 20 77 |n. appoi|ntment w|
|00000270| 61 72 6e 69 6e 67 20 74 | 6f 20 62 65 20 6d 61 64 |arning t|o be mad|
|00000280| 65 2c 20 74 68 65 20 74 | 69 6d 65 20 6d 75 73 74 |e, the t|ime must|
|00000290| 20 62 65 20 74 68 65 20 | 66 69 72 73 74 20 74 68 | be the |first th|
|000002a0| 69 6e 67 20 6f 6e 0a 20 | 74 68 65 20 6c 69 6e 65 |ing on. |the line|
|000002b0| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 61 70 70 74 |.").(def|var appt|
|000002c0| 2d 6d 73 67 2d 63 6f 75 | 6e 74 64 6f 77 6e 2d 6c |-msg-cou|ntdown-l|
|000002d0| 69 73 74 20 27 28 32 30 | 20 31 35 20 31 30 20 35 |ist '(20| 15 10 5|
|000002e0| 20 33 20 31 29 20 22 5c | 0a 2a 41 20 6c 69 73 74 | 3 1) "\|.*A list|
|000002f0| 20 6f 66 20 74 68 65 20 | 69 6e 74 65 72 76 61 6c | of the |interval|
|00000300| 73 20 69 6e 20 6d 69 6e | 75 74 65 73 20 62 65 66 |s in min|utes bef|
|00000310| 6f 72 65 20 74 68 65 20 | 61 70 70 6f 69 6e 74 6d |ore the |appointm|
|00000320| 65 6e 74 20 77 68 65 6e | 0a 20 74 68 65 20 77 61 |ent when|. the wa|
|00000330| 72 6e 69 6e 67 73 20 77 | 69 6c 6c 20 62 65 20 67 |rnings w|ill be g|
|00000340| 69 76 65 6e 2e 20 20 54 | 68 61 74 20 69 73 2c 20 |iven.  T|hat is, |
|00000350| 69 66 20 74 68 69 73 20 | 77 65 72 65 20 74 68 65 |if this |were the|
|00000360| 20 6c 69 73 74 20 27 28 | 35 20 33 20 31 29 2c 0a | list '(|5 3 1),.|
|00000370| 20 74 68 65 6e 20 61 20 | 6e 6f 74 69 66 69 63 61 | then a |notifica|
|00000380| 74 69 6f 6e 20 77 6f 75 | 6c 64 20 62 65 20 67 69 |tion wou|ld be gi|
|00000390| 76 65 6e 20 66 69 76 65 | 20 6d 69 6e 75 74 65 73 |ven five| minutes|
|000003a0| 2c 20 74 68 72 65 65 20 | 6d 69 6e 75 74 65 73 2c |, three |minutes,|
|000003b0| 20 61 6e 64 0a 20 6f 6e | 65 20 6d 69 6e 75 74 65 | and. on|e minute|
|000003c0| 20 62 65 66 6f 72 65 20 | 74 68 65 20 61 70 70 6f | before |the appo|
|000003d0| 69 6e 74 6d 65 6e 74 2e | 22 29 0a 28 64 65 66 76 |intment.|").(defv|
|000003e0| 61 72 20 61 70 70 74 2d | 63 68 65 63 6b 2d 74 69 |ar appt-|check-ti|
|000003f0| 6d 65 2d 73 79 6e 74 61 | 78 20 6e 69 6c 20 22 5c |me-synta|x nil "\|
|00000400| 0a 2a 57 68 65 74 68 65 | 72 20 61 6c 6c 20 64 69 |.*Whethe|r all di|
|00000410| 61 72 79 20 65 6e 74 72 | 69 65 73 20 61 72 65 20 |ary entr|ies are |
|00000420| 69 6e 74 65 6e 64 65 64 | 20 74 6f 20 62 65 67 69 |intended| to begi|
|00000430| 6e 67 20 77 69 74 68 20 | 74 69 6d 65 20 73 70 65 |ng with |time spe|
|00000440| 63 69 66 69 63 61 74 69 | 6f 6e 73 2e 0a 41 70 70 |cificati|ons..App|
|00000450| 74 20 77 69 6c 6c 20 62 | 65 65 70 20 61 6e 64 20 |t will b|eep and |
|00000460| 69 73 73 75 65 20 61 20 | 77 61 72 6e 69 6e 67 20 |issue a |warning |
|00000470| 6d 65 73 73 61 67 65 20 | 77 68 65 6e 20 65 6e 63 |message |when enc|
|00000480| 6f 75 6e 74 65 72 69 6e | 67 20 75 6e 70 61 72 73 |ounterin|g unpars|
|00000490| 61 62 6c 65 20 0a 6c 69 | 6e 65 73 2e 22 29 0a 28 |able .li|nes.").(|
|000004a0| 64 65 66 76 61 72 20 61 | 70 70 74 2d 61 75 64 69 |defvar a|ppt-audi|
|000004b0| 62 6c 65 20 74 20 22 5c | 0a 2a 43 6f 6e 74 72 6f |ble t "\|.*Contro|
|000004c0| 6c 73 20 77 68 65 74 68 | 65 72 20 61 70 70 6f 69 |ls wheth|er appoi|
|000004d0| 6e 74 6d 65 6e 74 20 61 | 6e 6e 6f 75 6e 63 65 6d |ntment a|nnouncem|
|000004e0| 65 6e 74 73 20 73 68 6f | 75 6c 64 20 62 65 65 70 |ents sho|uld beep|
|000004f0| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 61 70 70 74 |.").(def|var appt|
|00000500| 2d 64 69 73 70 6c 61 79 | 2d 6d 6f 64 65 2d 6c 69 |-display|-mode-li|
|00000510| 6e 65 20 74 20 22 5c 0a | 2a 43 6f 6e 74 72 6f 6c |ne t "\.|*Control|
|00000520| 73 20 69 66 20 6d 69 6e | 75 74 65 73 2d 74 6f 2d |s if min|utes-to-|
|00000530| 61 70 70 6f 69 6e 74 6d | 65 6e 74 20 73 68 6f 75 |appointm|ent shou|
|00000540| 6c 64 20 62 65 20 64 69 | 73 70 6c 61 79 65 64 20 |ld be di|splayed |
|00000550| 6f 6e 20 74 68 65 20 6d | 6f 64 65 20 6c 69 6e 65 |on the m|ode line|
|00000560| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 61 70 70 74 |.").(def|var appt|
|00000570| 2d 61 6e 6e 6f 75 6e 63 | 65 2d 6d 65 74 68 6f 64 |-announc|e-method|
|00000580| 20 27 61 70 70 74 2d 77 | 69 6e 64 6f 77 2d 61 6e | 'appt-w|indow-an|
|00000590| 6e 6f 75 6e 63 65 20 22 | 5c 0a 2a 54 68 65 20 6e |nounce "|\.*The n|
|000005a0| 61 6d 65 20 6f 66 20 74 | 68 65 20 66 75 6e 63 74 |ame of t|he funct|
|000005b0| 69 6f 6e 20 75 73 65 64 | 20 74 6f 20 6e 6f 74 69 |ion used| to noti|
|000005c0| 66 79 20 74 68 65 20 75 | 73 65 72 20 6f 66 20 61 |fy the u|ser of a|
|000005d0| 6e 20 69 6d 70 65 6e 64 | 69 6e 67 20 0a 61 70 70 |n impend|ing .app|
|000005e0| 6f 69 6e 74 6d 65 6e 74 | 2e 20 20 54 68 69 73 20 |ointment|.  This |
|000005f0| 69 73 20 63 61 6c 6c 65 | 64 20 77 69 74 68 20 74 |is calle|d with t|
|00000600| 77 6f 20 61 72 67 75 6d | 65 6e 74 73 2c 20 74 68 |wo argum|ents, th|
|00000610| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 6d 69 6e 75 |e number| of minu|
|00000620| 74 65 73 0a 75 6e 74 69 | 6c 20 74 68 65 20 61 70 |tes.unti|l the ap|
|00000630| 70 6f 69 6e 74 6d 65 6e | 74 2c 20 61 6e 64 20 74 |pointmen|t, and t|
|00000640| 68 65 20 61 70 70 6f 69 | 6e 74 6d 65 6e 74 20 64 |he appoi|ntment d|
|00000650| 65 73 63 72 69 70 74 69 | 6f 6e 20 6c 69 73 74 2e |escripti|on list.|
|00000660| 0a 0a 52 65 61 73 6f 6e | 61 62 6c 65 20 76 61 6c |..Reason|able val|
|00000670| 75 65 73 20 66 6f 72 20 | 74 68 69 73 20 76 61 72 |ues for |this var|
|00000680| 69 61 62 6c 65 20 61 72 | 65 20 27 61 70 70 74 2d |iable ar|e 'appt-|
|00000690| 77 69 6e 64 6f 77 2d 61 | 6e 6e 6f 75 6e 63 65 2c |window-a|nnounce,|
|000006a0| 0a 27 61 70 70 74 2d 6d | 65 73 73 61 67 65 2d 61 |.'appt-m|essage-a|
|000006b0| 6e 6e 6f 75 6e 63 65 2c | 20 6f 72 20 27 61 70 70 |nnounce,| or 'app|
|000006c0| 74 2d 70 65 72 73 69 73 | 74 65 6e 74 2d 6d 65 73 |t-persis|tent-mes|
|000006d0| 73 61 67 65 2d 61 6e 6e | 6f 75 6e 63 65 2e 22 29 |sage-ann|ounce.")|
|000006e0| 0a 28 64 65 66 76 61 72 | 20 61 70 70 74 2d 74 69 |.(defvar| appt-ti|
|000006f0| 6d 65 2d 6d 73 67 2d 6c | 69 73 74 20 6e 69 6c 20 |me-msg-l|ist nil |
|00000700| 22 5c 0a 54 68 65 20 6c | 69 73 74 20 6f 66 20 61 |"\.The l|ist of a|
|00000710| 70 70 6f 69 6e 74 6d 65 | 6e 74 73 20 66 6f 72 20 |ppointme|nts for |
|00000720| 74 6f 64 61 79 2e 20 20 | 55 73 65 20 61 70 70 74 |today.  |Use appt|
|00000730| 2d 61 64 64 20 61 6e 64 | 20 61 70 70 74 2d 64 65 |-add and| appt-de|
|00000740| 6c 65 74 65 0a 20 74 6f | 20 61 64 64 20 61 6e 64 |lete. to| add and|
|00000750| 20 64 65 6c 65 74 65 20 | 61 70 70 6f 69 6e 74 6d | delete |appointm|
|00000760| 65 6e 74 73 20 66 72 6f | 6d 20 6c 69 73 74 2e 20 |ents fro|m list. |
|00000770| 20 54 68 65 20 6f 72 69 | 67 69 6e 61 6c 20 6c 69 | The ori|ginal li|
|00000780| 73 74 20 69 73 20 67 65 | 6e 65 72 61 74 65 64 0a |st is ge|nerated.|
|00000790| 20 66 72 6f 6d 20 74 68 | 65 20 74 6f 64 61 79 27 | from th|e today'|
|000007a0| 73 20 64 69 61 72 79 2d | 65 6e 74 72 69 65 73 2d |s diary-|entries-|
|000007b0| 6c 69 73 74 2e 20 54 68 | 65 20 6e 75 6d 62 65 72 |list. Th|e number|
|000007c0| 20 62 65 66 6f 72 65 20 | 65 61 63 68 20 74 69 6d | before |each tim|
|000007d0| 65 2f 6d 65 73 73 61 67 | 65 0a 20 69 73 20 74 68 |e/messag|e. is th|
|000007e0| 65 20 74 69 6d 65 20 69 | 6e 20 6d 69 6e 75 74 65 |e time i|n minute|
|000007f0| 73 20 61 66 74 65 72 20 | 6d 69 64 6e 69 67 68 74 |s after |midnight|
|00000800| 2e 22 29 0a 28 64 65 66 | 63 6f 6e 73 74 20 6d 61 |.").(def|const ma|
|00000810| 78 2d 74 69 6d 65 20 31 | 34 33 39 20 22 5c 0a 31 |x-time 1|439 "\.1|
|00000820| 31 3a 35 39 70 6d 20 69 | 6e 20 6d 69 6e 75 74 65 |1:59pm i|n minute|
|00000830| 73 20 2d 20 6e 75 6d 62 | 65 72 20 6f 66 20 6d 69 |s - numb|er of mi|
|00000840| 6e 75 74 65 73 20 69 6e | 20 61 20 64 61 79 20 6d |nutes in| a day m|
|00000850| 69 6e 75 73 20 31 2e 22 | 29 0a 28 62 79 74 65 2d |inus 1."|).(byte-|
|00000860| 63 6f 64 65 20 22 c0 11 | c0 87 22 20 5b 2d 31 20 |code "..|.." [-1 |
|00000870| 61 70 70 74 2d 63 68 65 | 63 6b 2d 74 69 63 6b 5d |appt-che|ck-tick]|
|00000880| 20 31 29 0a 28 66 73 65 | 74 20 27 61 70 70 74 2d | 1).(fse|t 'appt-|
|00000890| 6d 65 73 73 61 67 65 2d | 61 6e 6e 6f 75 6e 63 65 |message-|announce|
|000008a0| 20 23 5b 28 6d 69 6e 2d | 74 6f 2d 61 70 70 20 61 | #[(min-|to-app a|
|000008b0| 70 70 74 29 20 22 c0 09 | c2 3d ab 83 c3 aa 91 c4 |ppt) "..|.=......|
|000008c0| c5 09 89 c6 3d ab 83 c7 | aa 81 c8 0e 09 41 40 24 |....=...|.....A@$|
|000008d0| 21 87 22 20 5b 6d 65 73 | 73 61 67 65 20 6d 69 6e |!." [mes|sage min|
|000008e0| 2d 74 6f 2d 61 70 70 20 | 30 20 22 41 70 70 27 74 |-to-app |0 "App't|
|000008f0| 20 4e 4f 57 2e 22 20 66 | 6f 72 6d 61 74 20 22 41 | NOW." f|ormat "A|
|00000900| 70 70 27 74 20 69 6e 20 | 25 64 20 6d 69 6e 75 74 |pp't in |%d minut|
|00000910| 65 25 73 20 2d 2d 20 25 | 73 22 20 31 20 22 22 20 |e%s -- %|s" 1 "" |
|00000920| 22 73 22 20 61 70 70 74 | 5d 20 36 20 22 5c 0a 53 |"s" appt|] 6 "\.S|
|00000930| 65 74 20 61 70 70 74 2d | 61 6e 6e 6f 75 6e 63 65 |et appt-|announce|
|00000940| 2d 6d 65 74 68 6f 64 20 | 74 6f 20 74 68 65 20 6e |-method |to the n|
|00000950| 61 6d 65 20 6f 66 20 74 | 68 69 73 20 66 75 6e 63 |ame of t|his func|
|00000960| 74 69 6f 6e 20 74 6f 20 | 63 61 75 73 65 20 61 70 |tion to |cause ap|
|00000970| 70 6f 69 6e 74 6d 65 6e | 74 0a 6e 6f 74 69 66 69 |pointmen|t.notifi|
|00000980| 63 61 74 69 6f 6e 73 20 | 74 6f 20 62 65 20 67 69 |cations |to be gi|
|00000990| 76 65 6e 20 76 69 61 20 | 6d 65 73 73 61 67 65 73 |ven via |messages|
|000009a0| 20 69 6e 20 74 68 65 20 | 6d 69 6e 69 62 75 66 66 | in the |minibuff|
|000009b0| 65 72 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 61 70 |er."]).(|fset 'ap|
|000009c0| 70 74 2d 70 65 72 73 69 | 73 74 65 6e 74 2d 6d 65 |pt-persi|stent-me|
|000009d0| 73 73 61 67 65 2d 61 6e | 6e 6f 75 6e 63 65 20 23 |ssage-an|nounce #|
|000009e0| 5b 28 6d 69 6e 2d 74 6f | 2d 61 70 70 20 61 70 70 |[(min-to|-app app|
|000009f0| 74 29 20 22 08 c1 3d ab | 88 c2 c3 0c 41 40 5c 22 |t) "..=.|....A@\"|
|00000a00| aa 90 c2 c5 08 89 c6 3d | ab 83 c7 aa 81 c8 0c 41 |.......=|.......A|
|00000a10| 40 24 c9 20 ca 20 3d 1e | 0b 1e 0c 0e 0b ac 85 8a |@$. . =.|........|
|00000a20| cd 8b 88 29 0e 0b ad 84 | 0e 0c c7 98 3f ad 85 ce |...)....|....?...|
|00000a30| cf 0e 0c 5c 22 2a 87 22 | 20 5b 6d 69 6e 2d 74 6f |...\"*."| [min-to|
|00000a40| 2d 61 70 70 20 30 20 66 | 6f 72 6d 61 74 20 22 41 |-app 0 f|ormat "A|
|00000a50| 70 70 27 74 20 4e 4f 57 | 20 2d 2d 20 25 73 22 20 |pp't NOW| -- %s" |
|00000a60| 61 70 70 74 20 22 41 70 | 70 27 74 20 69 6e 20 25 |appt "Ap|p't in %|
|00000a70| 64 20 6d 69 6e 75 74 65 | 25 73 20 2d 2d 20 25 73 |d minute|%s -- %s|
|00000a80| 22 20 31 20 22 22 20 22 | 73 22 20 73 65 6c 65 63 |" 1 "" "|s" selec|
|00000a90| 74 65 64 2d 77 69 6e 64 | 6f 77 20 6d 69 6e 69 62 |ted-wind|ow minib|
|00000aa0| 75 66 66 65 72 2d 77 69 | 6e 64 6f 77 20 69 6e 2d |uffer-wi|ndow in-|
|00000ab0| 65 63 68 6f 2d 61 72 65 | 61 2d 61 6c 72 65 61 64 |echo-are|a-alread|
|00000ac0| 79 20 73 74 72 20 28 28 | 62 79 74 65 2d 63 6f 64 |y str ((|byte-cod|
|00000ad0| 65 20 22 c0 c1 20 21 88 | 65 64 7c 88 5c 6e 63 87 |e ".. !.|ed|.\nc.|
|00000ae0| 22 20 5b 73 65 6c 65 63 | 74 2d 77 69 6e 64 6f 77 |" [selec|t-window|
|00000af0| 20 6d 69 6e 69 62 75 66 | 66 65 72 2d 77 69 6e 64 | minibuf|fer-wind|
|00000b00| 6f 77 20 73 74 72 5d 20 | 32 29 29 20 6d 65 73 73 |ow str] |2)) mess|
|00000b10| 61 67 65 20 22 25 73 22 | 5d 20 35 20 22 5c 0a 53 |age "%s"|] 5 "\.S|
|00000b20| 65 74 20 61 70 70 74 2d | 61 6e 6e 6f 75 6e 63 65 |et appt-|announce|
|00000b30| 2d 6d 65 74 68 6f 64 20 | 74 6f 20 74 68 65 20 6e |-method |to the n|
|00000b40| 61 6d 65 20 6f 66 20 74 | 68 69 73 20 66 75 6e 63 |ame of t|his func|
|00000b50| 74 69 6f 6e 20 74 6f 20 | 63 61 75 73 65 20 61 70 |tion to |cause ap|
|00000b60| 70 6f 69 6e 74 6d 65 6e | 74 0a 6e 6f 74 69 66 69 |pointmen|t.notifi|
|00000b70| 63 61 74 69 6f 6e 73 20 | 74 6f 20 62 65 20 67 69 |cations |to be gi|
|00000b80| 76 65 6e 20 76 69 61 20 | 6d 65 73 73 61 67 65 73 |ven via |messages|
|00000b90| 20 69 6e 20 74 68 65 20 | 6d 69 6e 69 62 75 66 66 | in the |minibuff|
|00000ba0| 65 72 2c 20 62 75 74 20 | 68 61 76 65 20 74 68 6f |er, but |have tho|
|00000bb0| 73 65 20 0a 6d 65 73 73 | 61 67 65 73 20 73 74 61 |se .mess|ages sta|
|00000bc0| 79 20 61 72 6f 75 6e 64 | 20 65 76 65 6e 20 69 66 |y around| even if|
|00000bd0| 20 79 6f 75 20 74 79 70 | 65 20 73 6f 6d 65 74 68 | you typ|e someth|
|00000be0| 69 6e 67 20 28 75 6e 6c | 69 6b 65 20 6e 6f 72 6d |ing (unl|ike norm|
|00000bf0| 61 6c 20 6d 65 73 73 61 | 67 65 73 29 2e 22 5d 29 |al messa|ges)."])|
|00000c00| 0a 28 64 65 66 76 61 72 | 20 61 70 70 74 2d 64 69 |.(defvar| appt-di|
|00000c10| 73 70 6c 61 79 2d 64 75 | 72 61 74 69 6f 6e 20 35 |splay-du|ration 5|
|00000c20| 20 22 5c 0a 2a 54 68 65 | 20 6e 75 6d 62 65 72 20 | "\.*The| number |
|00000c30| 6f 66 20 73 65 63 6f 6e | 64 73 20 61 6e 20 61 70 |of secon|ds an ap|
|00000c40| 70 6f 69 6e 74 6d 65 6e | 74 20 6d 65 73 73 61 67 |pointmen|t messag|
|00000c50| 65 20 69 73 20 64 69 73 | 70 6c 61 79 65 64 20 69 |e is dis|played i|
|00000c60| 6e 20 69 74 73 20 6f 77 | 6e 20 0a 20 77 69 6e 64 |n its ow|n . wind|
|00000c70| 6f 77 20 69 66 20 61 70 | 70 74 2d 61 6e 6e 6f 75 |ow if ap|pt-annou|
|00000c80| 6e 63 65 2d 6d 65 74 68 | 6f 64 20 69 73 20 27 61 |nce-meth|od is 'a|
|00000c90| 70 70 74 2d 77 69 6e 64 | 6f 77 2d 61 6e 6e 6f 75 |ppt-wind|ow-annou|
|00000ca0| 6e 63 65 2e 22 29 0a 28 | 66 73 65 74 20 27 61 70 |nce.").(|fset 'ap|
|00000cb0| 70 74 2d 77 69 6e 64 6f | 77 2d 61 6e 6e 6f 75 6e |pt-windo|w-announ|
|00000cc0| 63 65 20 23 5b 28 6d 69 | 6e 2d 74 6f 2d 61 70 70 |ce #[(mi|n-to-app|
|00000cd0| 20 61 70 70 74 29 20 22 | c0 c1 21 88 8a c2 8b 29 | appt) "|..!....)|
|00000ce0| 87 22 20 5b 72 65 71 75 | 69 72 65 20 65 6c 65 63 |." [requ|ire elec|
|00000cf0| 74 72 69 63 20 28 28 62 | 79 74 65 2d 63 6f 64 65 |tric ((b|yte-code|
|00000d00| 20 22 c0 20 c1 c2 c3 20 | 21 38 55 ac 86 c4 20 88 | ". ... |!8U... .|
|00000d10| c5 20 88 70 c6 1e 07 1e | 08 c9 8e ca cb 21 71 16 |. .p....|.....!q.|
|00000d20| 07 cc 0e 0d ce 3d ab 83 | cf aa 8d d0 0e 0d 89 d1 |.....=..|........|
|00000d30| 3d ab 83 d2 aa 81 d3 51 | d4 d5 d6 20 d7 d8 4f 21 |=......Q|... ..O!|
|00000d40| 89 1e 19 da 56 ab 86 0e | 19 da 5a aa 82 0e 19 db |....V...|..Z.....|
|00000d50| d6 20 dc dd 4f 0e 19 da | 57 ab 83 de aa 81 df 52 |. ..O...|W......R|
|00000d60| 29 e0 b0 05 16 21 e2 0e | 07 21 88 e3 0e 24 41 40 |)....!..|.!...$A@|
|00000d70| 21 88 e5 e6 0e 07 21 21 | 88 e7 c6 21 88 e8 0e 29 |!.....!!|...!...)|
|00000d80| 21 2b 87 22 20 5b 73 63 | 72 65 65 6e 2d 68 65 69 |!+." [sc|reen-hei|
|00000d90| 67 68 74 20 33 20 77 69 | 6e 64 6f 77 2d 65 64 67 |ght 3 wi|ndow-edg|
|00000da0| 65 73 20 73 65 6c 65 63 | 74 65 64 2d 77 69 6e 64 |es selec|ted-wind|
|00000db0| 6f 77 20 61 70 70 74 2d | 73 65 6c 65 63 74 2d 6c |ow appt-|select-l|
|00000dc0| 6f 77 65 73 74 2d 77 69 | 6e 64 6f 77 20 73 70 6c |owest-wi|ndow spl|
|00000dd0| 69 74 2d 77 69 6e 64 6f | 77 20 6e 69 6c 20 61 70 |it-windo|w nil ap|
|00000de0| 70 74 2d 64 69 73 70 2d | 62 75 66 20 74 68 69 73 |pt-disp-|buf this|
|00000df0| 2d 62 75 66 66 65 72 20 | 28 28 62 79 74 65 2d 63 |-buffer |((byte-c|
|00000e00| 6f 64 65 20 22 08 ab 84 | c1 08 21 88 c1 87 22 20 |ode "...|..!..." |
|00000e10| 5b 61 70 70 74 2d 64 69 | 73 70 2d 62 75 66 20 6b |[appt-di|sp-buf k|
|00000e20| 69 6c 6c 2d 62 75 66 66 | 65 72 5d 20 32 29 29 20 |ill-buff|er] 2)) |
|00000e30| 67 65 74 2d 62 75 66 66 | 65 72 2d 63 72 65 61 74 |get-buff|er-creat|
|00000e40| 65 20 22 2a 61 70 70 74 | 2d 62 75 66 2a 22 20 22 |e "*appt|-buf*" "|
|00000e50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e60| 2d 2d 2d 2d 20 41 70 70 | 6f 69 6e 74 6d 65 6e 74 |---- App|ointment|
|00000e70| 20 22 20 6d 69 6e 2d 74 | 6f 2d 61 70 70 20 30 20 | " min-t|o-app 0 |
|00000e80| 22 4e 4f 57 22 20 22 69 | 6e 20 22 20 31 20 22 20 |"NOW" "i|n " 1 " |
|00000e90| 6d 69 6e 75 74 65 22 20 | 22 20 6d 69 6e 75 74 65 |minute" |" minute|
|00000ea0| 73 22 20 22 2e 20 28 22 | 20 73 74 72 69 6e 67 2d |s" ". ("| string-|
|00000eb0| 74 6f 2d 69 6e 74 20 63 | 75 72 72 65 6e 74 2d 74 |to-int c|urrent-t|
|00000ec0| 69 6d 65 2d 73 74 72 69 | 6e 67 20 31 31 20 31 33 |ime-stri|ng 11 13|
|00000ed0| 20 68 20 31 32 20 22 3a | 22 20 31 34 20 31 36 20 | h 12 ":|" 14 16 |
|00000ee0| 22 61 6d 22 20 22 70 6d | 22 20 22 29 20 25 2d 22 |"am" "pm|" ") %-"|
|00000ef0| 20 6d 6f 64 65 2d 6c 69 | 6e 65 2d 66 6f 72 6d 61 | mode-li|ne-forma|
|00000f00| 74 20 70 6f 70 2d 74 6f | 2d 62 75 66 66 65 72 20 |t pop-to|-buffer |
|00000f10| 69 6e 73 65 72 74 2d 73 | 74 72 69 6e 67 20 61 70 |insert-s|tring ap|
|00000f20| 70 74 20 73 68 72 69 6e | 6b 2d 77 69 6e 64 6f 77 |pt shrin|k-window|
|00000f30| 2d 69 66 2d 6c 61 72 67 | 65 72 2d 74 68 61 6e 2d |-if-larg|er-than-|
|00000f40| 62 75 66 66 65 72 20 67 | 65 74 2d 62 75 66 66 65 |buffer g|et-buffe|
|00000f50| 72 2d 77 69 6e 64 6f 77 | 20 73 65 74 2d 62 75 66 |r-window| set-buf|
|00000f60| 66 65 72 2d 6d 6f 64 69 | 66 69 65 64 2d 70 20 73 |fer-modi|fied-p s|
|00000f70| 69 74 2d 66 6f 72 20 61 | 70 70 74 2d 64 69 73 70 |it-for a|ppt-disp|
|00000f80| 6c 61 79 2d 64 75 72 61 | 74 69 6f 6e 5d 20 39 29 |lay-dura|tion] 9)|
|00000f90| 29 5d 20 32 20 22 5c 0a | 53 65 74 20 61 70 70 74 |)] 2 "\.|Set appt|
|00000fa0| 2d 61 6e 6e 6f 75 6e 63 | 65 2d 6d 65 74 68 6f 64 |-announc|e-method|
|00000fb0| 20 74 6f 20 74 68 65 20 | 6e 61 6d 65 20 6f 66 20 | to the |name of |
|00000fc0| 74 68 69 73 20 66 75 6e | 63 74 69 6f 6e 20 74 6f |this fun|ction to|
|00000fd0| 20 63 61 75 73 65 20 61 | 70 70 6f 69 6e 74 6d 65 | cause a|ppointme|
|00000fe0| 6e 74 20 0a 6e 6f 74 69 | 66 69 63 61 74 69 6f 6e |nt .noti|fication|
|00000ff0| 73 20 74 6f 20 62 65 20 | 67 69 76 65 6e 20 76 69 |s to be |given vi|
|00001000| 61 20 6d 65 73 73 61 67 | 65 73 20 69 6e 20 61 20 |a messag|es in a |
|00001010| 70 6f 70 2d 75 70 20 77 | 69 6e 64 6f 77 2e 20 20 |pop-up w|indow.  |
|00001020| 54 68 65 20 76 61 72 69 | 61 62 6c 65 0a 61 70 70 |The vari|able.app|
|00001030| 74 2d 64 69 73 70 6c 61 | 79 2d 64 75 72 61 74 69 |t-displa|y-durati|
|00001040| 6f 6e 20 63 6f 6e 74 72 | 6f 6c 73 20 68 6f 77 20 |on contr|ols how |
|00001050| 6c 6f 6e 67 20 74 68 69 | 73 20 77 69 6e 64 6f 77 |long thi|s window|
|00001060| 20 73 68 6f 75 6c 64 20 | 62 65 20 6c 65 66 74 20 | should |be left |
|00001070| 75 70 2e 22 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |up."]).(|byte-cod|
|00001080| 65 20 22 c0 c1 21 ac 82 | c2 11 c2 87 22 20 5b 62 |e "..!..|...." [b|
|00001090| 6f 75 6e 64 70 20 61 70 | 70 74 2d 73 63 72 65 65 |oundp ap|pt-scree|
|000010a0| 6e 2d 64 65 66 61 75 6c | 74 73 20 6e 69 6c 5d 20 |n-defaul|ts nil] |
|000010b0| 32 29 0a 28 66 73 65 74 | 20 27 61 70 70 74 2d 73 |2).(fset| 'appt-s|
|000010c0| 63 72 65 65 6e 2d 61 6e | 6e 6f 75 6e 63 65 20 23 |creen-an|nounce #|
|000010d0| 5b 28 6d 69 6e 2d 74 6f | 2d 61 70 70 20 61 70 70 |[(min-to|-app app|
|000010e0| 74 29 20 22 8a c0 c1 21 | 71 12 c3 20 88 c4 0d c6 |t) "...!|q.. ....|
|000010f0| 3d ab 83 c7 aa 8c c8 0d | 89 c9 3d ab 83 ca aa 81 |=.......|..=.....|
|00001100| cb 51 cc cd ce 20 cf d0 | 4f 21 89 1e 11 d2 56 ab |.Q... ..|O!....V.|
|00001110| 86 0e 11 d2 5a aa 82 0e | 11 d3 ce 20 d4 d5 4f 0e |....Z...|... ..O.|
|00001120| 11 d2 57 ab 83 d6 aa 81 | d7 52 29 d8 b0 05 16 19 |..W.....|.R).....|
|00001130| da 0e 1b 41 40 21 88 dc | dd de 65 64 5c 22 df 5c |...A@!..|..ed\".\|
|00001140| 5c 5e 5d 1e 20 e1 e2 21 | ab a2 0e 5c 22 ab 9e e3 |\^]. ..!|...\"...|
|00001150| 20 1e 24 e5 0e 5c 22 21 | 88 e6 0e 5c 22 21 88 e7 | .$..\"!|...\"!..|
|00001160| 0e 20 21 88 e8 c6 21 88 | e5 0e 24 21 29 aa 8f e9 |. !...!.|..$!)...|
|00001170| ea 0e 2b ec e0 0e 20 42 | 44 5c 22 21 89 16 5c 22 |..+... B|D\"!..\"|
|00001180| 2a 87 22 20 5b 67 65 74 | 2d 62 75 66 66 65 72 2d |*." [get|-buffer-|
|00001190| 63 72 65 61 74 65 20 22 | 2a 61 70 70 74 2d 62 75 |create "|*appt-bu|
|000011a0| 66 2a 22 20 61 70 70 74 | 2d 64 69 73 70 2d 62 75 |f*" appt|-disp-bu|
|000011b0| 66 20 65 72 61 73 65 2d | 62 75 66 66 65 72 20 22 |f erase-|buffer "|
|000011c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011d0| 2d 2d 2d 2d 20 41 70 70 | 6f 69 6e 74 6d 65 6e 74 |---- App|ointment|
|000011e0| 20 22 20 6d 69 6e 2d 74 | 6f 2d 61 70 70 20 30 20 | " min-t|o-app 0 |
|000011f0| 22 4e 4f 57 22 20 22 69 | 6e 20 22 20 31 20 22 20 |"NOW" "i|n " 1 " |
|00001200| 6d 69 6e 75 74 65 22 20 | 22 20 6d 69 6e 75 74 65 |minute" |" minute|
|00001210| 73 22 20 22 2e 20 28 22 | 20 73 74 72 69 6e 67 2d |s" ". ("| string-|
|00001220| 74 6f 2d 69 6e 74 20 63 | 75 72 72 65 6e 74 2d 74 |to-int c|urrent-t|
|00001230| 69 6d 65 2d 73 74 72 69 | 6e 67 20 31 31 20 31 33 |ime-stri|ng 11 13|
|00001240| 20 68 20 31 32 20 22 3a | 22 20 31 34 20 31 36 20 | h 12 ":|" 14 16 |
|00001250| 22 61 6d 22 20 22 70 6d | 22 20 22 29 20 25 2d 22 |"am" "pm|" ") %-"|
|00001260| 20 6d 6f 64 65 2d 6c 69 | 6e 65 2d 66 6f 72 6d 61 | mode-li|ne-forma|
|00001270| 74 20 69 6e 73 65 72 74 | 2d 73 74 72 69 6e 67 20 |t insert|-string |
|00001280| 61 70 70 74 20 31 30 20 | 32 30 20 63 6f 75 6e 74 |appt 10 |20 count|
|00001290| 2d 6c 69 6e 65 73 20 32 | 20 68 65 69 67 68 74 20 |-lines 2| height |
|000012a0| 62 6f 75 6e 64 70 20 61 | 70 70 74 2d 64 69 73 70 |boundp a|ppt-disp|
|000012b0| 2d 73 63 72 65 65 6e 20 | 73 65 6c 65 63 74 65 64 |-screen |selected|
|000012c0| 2d 73 63 72 65 65 6e 20 | 73 20 73 65 6c 65 63 74 |-screen |s select|
|000012d0| 2d 73 63 72 65 65 6e 20 | 6d 61 6b 65 2d 73 63 72 |-screen |make-scr|
|000012e0| 65 65 6e 2d 76 69 73 69 | 62 6c 65 20 73 65 74 2d |een-visi|ble set-|
|000012f0| 73 63 72 65 65 6e 2d 68 | 65 69 67 68 74 20 73 69 |screen-h|eight si|
|00001300| 74 2d 66 6f 72 20 78 2d | 63 72 65 61 74 65 2d 73 |t-for x-|create-s|
|00001310| 63 72 65 65 6e 20 61 70 | 70 65 6e 64 20 61 70 70 |creen ap|pend app|
|00001320| 74 2d 73 63 72 65 65 6e | 2d 64 65 66 61 75 6c 74 |t-screen|-default|
|00001330| 73 20 28 77 69 64 74 68 | 20 2e 20 38 30 29 5d 20 |s (width| . 80)] |
|00001340| 39 20 22 5c 0a 53 65 74 | 20 61 70 70 74 2d 61 6e |9 "\.Set| appt-an|
|00001350| 6e 6f 75 6e 63 65 2d 6d | 65 74 68 6f 64 20 74 6f |nounce-m|ethod to|
|00001360| 20 74 68 65 20 6e 61 6d | 65 20 6f 66 20 74 68 69 | the nam|e of thi|
|00001370| 73 20 66 75 6e 63 74 69 | 6f 6e 20 74 6f 20 63 61 |s functi|on to ca|
|00001380| 75 73 65 20 61 70 70 6f | 69 6e 74 6d 65 6e 74 20 |use appo|intment |
|00001390| 0a 6e 6f 74 69 66 69 63 | 61 74 69 6f 6e 73 20 74 |.notific|ations t|
|000013a0| 6f 20 62 65 20 67 69 76 | 65 6e 20 76 69 61 20 6d |o be giv|en via m|
|000013b0| 65 73 73 61 67 65 73 20 | 69 6e 20 61 20 70 6f 70 |essages |in a pop|
|000013c0| 2d 75 70 20 73 63 72 65 | 65 6e 2e 22 5d 29 0a 28 |-up scre|en."]).(|
|000013d0| 66 73 65 74 20 27 61 70 | 70 74 2d 73 65 6c 65 63 |fset 'ap|pt-selec|
|000013e0| 74 2d 6c 6f 77 65 73 74 | 2d 77 69 6e 64 6f 77 20 |t-lowest|-window |
|000013f0| 23 5b 6e 69 6c 20 22 c0 | 20 11 c2 20 41 41 41 40 |#[nil ".| .. AAA@|
|00001400| 1b c4 20 1d c6 1e 07 0e | 07 ad ad c8 20 1e 09 ca |.. .....|.... ...|
|00001410| c2 0e 09 21 38 1e 0b 0b | 0e 0b 57 ab 86 0e 0b 13 |...!8...|..W.....|
|00001420| 0e 09 11 cc 0e 09 21 88 | 0d 0e 09 3d ab 87 cc 09 |......!.|...=....|
|00001430| 21 88 cd 16 07 2a aa 4f | 2b 87 22 20 5b 73 65 6c |!....*.O|+." [sel|
|00001440| 65 63 74 65 64 2d 77 69 | 6e 64 6f 77 20 6c 6f 77 |ected-wi|ndow low|
|00001450| 65 73 74 2d 77 69 6e 64 | 6f 77 20 77 69 6e 64 6f |est-wind|ow windo|
|00001460| 77 2d 65 64 67 65 73 20 | 62 6f 74 74 6f 6d 2d 65 |w-edges |bottom-e|
|00001470| 64 67 65 20 70 72 65 76 | 69 6f 75 73 2d 77 69 6e |dge prev|ious-win|
|00001480| 64 6f 77 20 6c 61 73 74 | 2d 77 69 6e 64 6f 77 20 |dow last|-window |
|00001490| 74 20 77 69 6e 64 6f 77 | 2d 73 65 61 72 63 68 20 |t window|-search |
|000014a0| 6e 65 78 74 2d 77 69 6e | 64 6f 77 20 74 68 69 73 |next-win|dow this|
|000014b0| 2d 77 69 6e 64 6f 77 20 | 33 20 6e 65 78 74 2d 62 |-window |3 next-b|
|000014c0| 6f 74 74 6f 6d 2d 65 64 | 67 65 20 73 65 6c 65 63 |ottom-ed|ge selec|
|000014d0| 74 2d 77 69 6e 64 6f 77 | 20 6e 69 6c 5d 20 33 20 |t-window| nil] 3 |
|000014e0| 22 5c 0a 20 44 65 74 65 | 72 6d 69 6e 65 73 20 77 |"\. Dete|rmines w|
|000014f0| 68 69 63 68 20 77 69 6e | 64 6f 77 20 69 73 20 74 |hich win|dow is t|
|00001500| 68 65 20 6c 6f 77 65 73 | 74 20 6f 6e 65 20 62 65 |he lowes|t one be|
|00001510| 69 6e 67 20 64 69 73 70 | 6c 61 79 65 64 20 61 6e |ing disp|layed an|
|00001520| 64 20 0a 73 65 6c 65 63 | 74 73 20 74 68 61 74 20 |d .selec|ts that |
|00001530| 6f 6e 65 2e 22 5d 29 0a | 28 64 65 66 76 61 72 20 |one."]).|(defvar |
|00001540| 61 70 70 74 2d 6d 6f 64 | 65 2d 6c 69 6e 65 2d 73 |appt-mod|e-line-s|
|00001550| 74 72 69 6e 67 20 22 22 | 20 22 5c 0a 2a 54 68 65 |tring ""| "\.*The|
|00001560| 20 73 74 72 69 6e 67 20 | 64 69 73 70 6c 61 79 65 | string |displaye|
|00001570| 64 20 69 6e 20 74 68 65 | 20 6d 6f 64 65 20 6c 69 |d in the| mode li|
|00001580| 6e 65 20 62 79 20 74 68 | 65 20 61 70 70 6f 69 6e |ne by th|e appoin|
|00001590| 74 6d 65 6e 74 20 70 61 | 63 6b 61 67 65 2e 22 29 |tment pa|ckage.")|
|000015a0| 0a 28 66 73 65 74 20 27 | 61 70 70 74 2d 64 69 73 |.(fset '|appt-dis|
|000015b0| 70 6c 61 79 2d 6d 6f 64 | 65 2d 6c 69 6e 65 20 23 |play-mod|e-line #|
|000015c0| 5b 28 6d 69 6e 2d 74 6f | 2d 61 70 70 29 20 22 08 |[(min-to|-app) ".|
|000015d0| ab 99 09 ab 96 09 c2 3d | ab 83 c3 aa 8f c4 09 89 |.......=|........|
|000015e0| c5 3d ab 83 c6 aa 81 c7 | 51 aa 81 c8 16 09 08 ab |.=......|Q.......|
|000015f0| a6 0e 5c 6e ac 87 c8 c9 | 44 16 5c 6e aa 9b 0e 5c |..\n....|D.\n...\|
|00001600| 6e 3b ab 88 0e 5c 6e c9 | 44 16 5c 6e aa 8e c9 0e |n;...\n.|D.\n....|
|00001610| 5c 6e 3e ac 88 cb 0e 5c | 6e c9 43 5c 22 16 5c 6e |\n>....\|n.C\".\n|
|00001620| 8a cc 20 71 88 29 cd ce | 20 21 88 cf c2 21 87 22 |.. q.)..| !...!."|
|00001630| 20 5b 61 70 70 74 2d 64 | 69 73 70 6c 61 79 2d 6d | [appt-d|isplay-m|
|00001640| 6f 64 65 2d 6c 69 6e 65 | 20 6d 69 6e 2d 74 6f 2d |ode-line| min-to-|
|00001650| 61 70 70 20 30 20 22 41 | 70 70 27 74 20 4e 4f 57 |app 0 "A|pp't NOW|
|00001660| 20 22 20 22 41 70 70 27 | 74 20 69 6e 20 22 20 31 | " "App'|t in " 1|
|00001670| 20 22 20 6d 69 6e 75 74 | 65 20 20 22 20 22 20 6d | " minut|e  " " m|
|00001680| 69 6e 75 74 65 73 20 22 | 20 22 22 20 61 70 70 74 |inutes "| "" appt|
|00001690| 2d 6d 6f 64 65 2d 6c 69 | 6e 65 2d 73 74 72 69 6e |-mode-li|ne-strin|
|000016a0| 67 20 67 6c 6f 62 61 6c | 2d 6d 6f 64 65 2d 73 74 |g global|-mode-st|
|000016b0| 72 69 6e 67 20 61 70 70 | 65 6e 64 20 6f 74 68 65 |ring app|end othe|
|000016c0| 72 2d 62 75 66 66 65 72 | 20 73 65 74 2d 62 75 66 |r-buffer| set-buf|
|000016d0| 66 65 72 2d 6d 6f 64 69 | 66 69 65 64 2d 70 20 62 |fer-modi|fied-p b|
|000016e0| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|000016f0| 20 73 69 74 2d 66 6f 72 | 5d 20 34 20 22 5c 0a 41 | sit-for|] 4 "\.A|
|00001700| 64 64 20 61 6e 20 61 70 | 70 6f 69 6e 74 6d 65 6e |dd an ap|pointmen|
|00001710| 74 20 61 6e 6e 6f 74 61 | 74 69 6f 6e 20 74 6f 20 |t annota|tion to |
|00001720| 74 68 65 20 6d 6f 64 65 | 20 6c 69 6e 65 2e 22 5d |the mode| line."]|
|00001730| 29 0a 28 66 73 65 74 20 | 27 61 70 70 74 2d 63 6f |).(fset |'appt-co|
|00001740| 6e 76 65 72 74 2d 74 69 | 6d 65 20 23 5b 28 74 69 |nvert-ti|me #[(ti|
|00001750| 6d 65 32 63 6f 6e 76 29 | 20 22 c0 c1 5c 6e 5c 22 |me2conv)| "..\n\"|
|00001760| ab 82 c3 87 c0 c4 5c 6e | 5c 22 ab 82 c5 87 c3 89 |......\n|\"......|
|00001770| 1e 06 1e 07 c0 c8 5c 6e | 5c 22 ac 85 c9 ca 5c 6e |......\n|\"....\n|
|00001780| 5c 22 88 cb 5c 6e cc 94 | cc 95 4f 21 16 07 cd 94 |\"..\n..|..O!....|
|00001790| ab 8a cb 5c 6e cd 94 cd | 95 4f 21 16 06 ce 94 ab |...\n...|.O!.....|
|000017a0| b2 0e 07 c3 55 ac 86 0e | 07 cf 56 ab 85 c9 d0 5c |....U...|..V....\|
|000017b0| 6e 5c 22 88 c0 d1 5c 6e | ce 94 d2 4f 5c 22 ab 8b |n\"...\n|...O\"..|
|000017c0| 0e 07 cf 55 ab 91 c3 16 | 07 aa 8c 0e 07 cf 57 ab |...U....|......W.|
|000017d0| 86 0e 07 cf 5c 5c 16 07 | 0e 06 d3 56 ab 85 c9 d4 |....\\..|...V....|
|000017e0| 5c 6e 5c 22 88 0e 07 d5 | 5f 0e 06 5c 5c 2a 87 22 |\n\"....|_..\\*."|
|000017f0| 20 5b 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 | [string|-match "|
|00001800| 5e 5b 20 09 5d 2a 6d 69 | 64 6e 69 5c 5c 28 67 68 |^[ .]*mi|dni\\(gh|
|00001810| 74 5c 5c 7c 74 65 5c 5c | 29 5b 20 09 5d 2a 5c 5c |t\\|te\\|)[ .]*\\|
|00001820| 27 22 20 74 69 6d 65 32 | 63 6f 6e 76 20 30 20 22 |'" time2|conv 0 "|
|00001830| 5e 5b 20 09 5d 2a 6e 6f | 6f 6e 5b 20 09 5d 2a 5c |^[ .]*no|on[ .]*\|
|00001840| 5c 27 22 20 37 32 30 20 | 6d 69 6e 20 68 72 20 22 |\'" 720 |min hr "|
|00001850| 5c 5c 60 5b 20 09 5d 2a | 5c 5c 28 5b 30 2d 39 5d |\\`[ .]*|\\([0-9]|
|00001860| 5b 30 2d 39 5d 3f 5c 5c | 29 5b 20 09 5d 2a 5c 5c |[0-9]?\\|)[ .]*\\|
|00001870| 28 3a 5b 20 09 5d 2a 5c | 5c 28 5b 30 2d 39 5d 5b |(:[ .]*\|\([0-9][|
|00001880| 30 2d 39 5d 5c 5c 29 5c | 5c 29 3f 5b 20 09 5d 2a |0-9]\\)\|\)?[ .]*|
|00001890| 5c 5c 28 61 6d 5c 5c 7c | 70 6d 5c 5c 29 3f 22 20 |\\(am\\||pm\\)?" |
|000018a0| 65 72 72 6f 72 20 22 75 | 6e 70 61 72 73 61 62 6c |error "u|nparsabl|
|000018b0| 65 20 74 69 6d 65 20 5c | 22 25 73 5c 22 22 20 73 |e time \|"%s\"" s|
|000018c0| 74 72 69 6e 67 2d 74 6f | 2d 69 6e 74 20 31 20 33 |tring-to|-int 1 3|
|000018d0| 20 34 20 31 32 20 22 6d | 69 78 69 6e 67 20 31 32 | 4 12 "m|ixing 12|
|000018e0| 68 72 20 61 6e 64 20 32 | 34 20 68 72 20 74 69 6d |hr and 2|4 hr tim|
|000018f0| 65 21 20 20 25 73 22 20 | 22 61 6d 22 20 6e 69 6c |e!  %s" |"am" nil|
|00001900| 20 35 39 20 22 6d 69 6e | 75 74 65 73 20 6f 75 74 | 59 "min|utes out|
|00001910| 61 20 62 6f 75 6e 64 73 | 20 2d 20 25 73 22 20 36 |a bounds| - %s" 6|
|00001920| 30 5d 20 35 20 22 5c 0a | 20 43 6f 6e 76 65 72 74 |0] 5 "\.| Convert|
|00001930| 20 68 6f 75 72 3a 6d 69 | 6e 5b 61 6d 2f 70 6d 5d | hour:mi|n[am/pm]|
|00001940| 20 66 6f 72 6d 61 74 20 | 74 6f 20 6d 69 6e 75 74 | format |to minut|
|00001950| 65 73 20 66 72 6f 6d 20 | 6d 69 64 6e 69 67 68 74 |es from |midnight|
|00001960| 2e 22 5d 29 0a 28 66 73 | 65 74 20 27 61 70 70 74 |."]).(fs|et 'appt|
|00001970| 2d 63 75 72 72 65 6e 74 | 2d 74 69 6d 65 2d 69 6e |-current|-time-in|
|00001980| 2d 73 65 63 6f 6e 64 73 | 20 23 5b 6e 69 6c 20 22 |-seconds| #[nil "|
|00001990| c0 20 19 c2 09 c3 c4 4f | 21 1d c2 09 c6 c7 4f 21 |. .....O|!.....O!|
|000019a0| 1e 08 0d c9 5f 0e 08 5c | 5c 2b 87 22 20 5b 63 75 |...._..\|\+." [cu|
|000019b0| 72 72 65 6e 74 2d 74 69 | 6d 65 2d 73 74 72 69 6e |rrent-ti|me-strin|
|000019c0| 67 20 73 74 72 20 73 74 | 72 69 6e 67 2d 74 6f 2d |g str st|ring-to-|
|000019d0| 69 6e 74 20 31 31 20 31 | 33 20 68 6f 75 72 20 31 |int 11 1|3 hour 1|
|000019e0| 34 20 31 36 20 6d 69 6e | 20 36 30 5d 20 34 20 22 |4 16 min| 60] 4 "|
|000019f0| 5c 0a 72 65 74 75 72 6e | 73 20 74 68 65 20 63 75 |\.return|s the cu|
|00001a00| 72 72 65 6e 74 20 74 69 | 6d 65 20 69 6e 20 73 65 |rrent ti|me in se|
|00001a10| 63 6f 6e 64 73 20 73 69 | 6e 63 65 20 6d 69 64 6e |conds si|nce midn|
|00001a20| 69 67 68 74 2e 22 5d 29 | 0a 28 62 79 74 65 2d 63 |ight."])|.(byte-c|
|00001a30| 6f 64 65 20 22 c0 c1 4d | 88 c2 c3 4d 87 22 20 5b |ode "..M|...M." [|
|00001a40| 61 70 70 74 2d 73 6f 72 | 74 2d 6c 69 73 74 20 23 |appt-sor|t-list #|
|00001a50| 5b 28 61 70 70 74 2d 6c | 69 73 74 29 20 22 c0 c1 |[(appt-l|ist) "..|
|00001a60| 5c 6e 21 c3 5c 22 87 22 | 20 5b 73 6f 72 74 20 63 |\n!.\"."| [sort c|
|00001a70| 6f 70 79 2d 73 65 71 75 | 65 6e 63 65 20 61 70 70 |opy-sequ|ence app|
|00001a80| 74 2d 6c 69 73 74 20 23 | 5b 28 78 20 79 29 20 22 |t-list #|[(x y) "|
|00001a90| 08 40 40 09 40 40 57 87 | 22 20 5b 78 20 79 5d 20 |.@@.@@W.|" [x y] |
|00001aa0| 32 5d 5d 20 33 5d 20 61 | 70 70 74 2d 64 69 61 72 |2]] 3] a|ppt-diar|
|00001ab0| 79 2d 65 6e 74 72 69 65 | 73 20 23 5b 6e 69 6c 20 |y-entrie|s #[nil |
|00001ac0| 22 c0 c1 89 1a 1b 1c c5 | c6 21 88 0e 07 2b 87 22 |".......|.!...+."|
|00001ad0| 20 5b 28 61 70 70 74 2d | 6d 61 6b 65 2d 6c 69 73 | [(appt-|make-lis|
|00001ae0| 74 29 20 6e 69 6c 20 64 | 69 61 72 79 2d 6c 69 73 |t) nil d|iary-lis|
|00001af0| 74 2d 69 6e 63 6c 75 64 | 65 2d 62 6c 61 6e 6b 73 |t-includ|e-blanks|
|00001b00| 20 64 69 61 72 79 2d 64 | 69 73 70 6c 61 79 2d 68 | diary-d|isplay-h|
|00001b10| 6f 6f 6b 20 6c 69 73 74 | 2d 64 69 61 72 79 2d 65 |ook list|-diary-e|
|00001b20| 6e 74 72 69 65 73 2d 68 | 6f 6f 6b 20 64 69 61 72 |ntries-h|ook diar|
|00001b30| 79 20 31 20 61 70 70 74 | 2d 74 69 6d 65 2d 6d 73 |y 1 appt|-time-ms|
|00001b40| 67 2d 6c 69 73 74 5d 20 | 33 5d 5d 20 32 29 0a 28 |g-list] |3]] 2).(|
|00001b50| 66 73 65 74 20 27 61 70 | 70 74 2d 69 6e 69 74 69 |fset 'ap|pt-initi|
|00001b60| 61 6c 69 7a 65 20 23 5b | 6e 69 6c 20 22 c0 20 88 |alize #[|nil ". .|
|00001b70| c1 20 47 89 1a c3 55 ab | 85 c4 c5 21 aa 90 5c 6e |. G...U.|...!..\n|
|00001b80| c6 55 ab 85 c4 c7 21 aa | 86 c4 c8 c9 5c 6e 5c 22 |.U....!.|....\n\"|
|00001b90| 21 29 87 22 20 5b 69 6e | 73 74 61 6c 6c 2d 64 69 |!)." [in|stall-di|
|00001ba0| 73 70 6c 61 79 2d 74 69 | 6d 65 2d 68 6f 6f 6b 20 |splay-ti|me-hook |
|00001bb0| 61 70 70 74 2d 64 69 61 | 72 79 2d 65 6e 74 72 69 |appt-dia|ry-entri|
|00001bc0| 65 73 20 6e 20 30 20 6d | 65 73 73 61 67 65 20 22 |es n 0 m|essage "|
|00001bd0| 6e 6f 20 61 70 70 6f 69 | 6e 74 6d 65 6e 74 73 20 |no appoi|ntments |
|00001be0| 74 6f 64 61 79 2e 22 20 | 31 20 22 31 20 61 70 70 |today." |1 "1 app|
|00001bf0| 6f 69 6e 74 6d 65 6e 74 | 20 74 6f 64 61 79 2e 22 |ointment| today."|
|00001c00| 20 66 6f 72 6d 61 74 20 | 22 25 64 20 61 70 70 6f | format |"%d appo|
|00001c10| 69 6e 74 6d 65 6e 74 73 | 20 74 6f 64 61 79 2e 22 |intments| today."|
|00001c20| 5d 20 35 20 22 5c 0a 20 | 52 65 61 64 20 79 6f 75 |] 5 "\. |Read you|
|00001c30| 72 20 60 64 69 61 72 79 | 2d 66 69 6c 65 27 20 61 |r `diary|-file' a|
|00001c40| 6e 64 20 72 65 6d 65 6d | 62 65 72 20 74 6f 64 61 |nd remem|ber toda|
|00001c50| 79 27 73 20 61 70 70 6f | 69 6e 74 6d 65 6e 74 73 |y's appo|intments|
|00001c60| 2e 20 20 43 61 6c 6c 20 | 74 68 69 73 20 66 72 6f |.  Call |this fro|
|00001c70| 6d 20 0a 20 79 6f 75 72 | 20 2e 65 6d 61 63 73 20 |m . your| .emacs |
|00001c80| 66 69 6c 65 2c 20 6f 72 | 20 61 6e 79 20 74 69 6d |file, or| any tim|
|00001c90| 65 20 79 6f 75 20 77 61 | 6e 74 20 79 6f 75 72 20 |e you wa|nt your |
|00001ca0| 2e 64 69 61 72 79 20 66 | 69 6c 65 20 72 65 2d 72 |.diary f|ile re-r|
|00001cb0| 65 61 64 20 28 74 68 69 | 73 20 68 61 70 70 65 6e |ead (thi|s happen|
|00001cc0| 73 20 0a 20 61 75 74 6f | 6d 61 74 69 63 61 6c 6c |s . auto|maticall|
|00001cd0| 79 20 61 74 20 6d 69 64 | 6e 69 67 68 74 20 74 6f |y at mid|night to|
|00001ce0| 20 6d 6f 76 65 20 74 6f | 20 6e 6f 74 69 63 65 20 | move to| notice |
|00001cf0| 74 68 65 20 6e 65 78 74 | 20 64 61 79 27 73 20 61 |the next| day's a|
|00001d00| 70 70 6f 69 6e 74 6d 65 | 6e 74 73 29 2e 0a 20 0a |ppointme|nts).. .|
|00001d10| 20 54 68 65 20 74 69 6d | 65 20 6d 75 73 74 20 62 | The tim|e must b|
|00001d20| 65 20 61 74 20 74 68 65 | 20 62 65 67 69 6e 6e 69 |e at the| beginni|
|00001d30| 6e 67 20 6f 66 20 61 20 | 6c 69 6e 65 20 66 6f 72 |ng of a |line for|
|00001d40| 20 69 74 20 74 6f 20 62 | 65 20 70 75 74 20 69 6e | it to b|e put in|
|00001d50| 20 74 68 65 20 0a 20 61 | 70 70 6f 69 6e 74 6d 65 | the . a|ppointme|
|00001d60| 6e 74 73 20 6c 69 73 74 | 2e 0a 20 20 20 20 20 20 |nts list|..      |
|00001d70| 20 20 20 20 20 20 20 20 | 20 30 32 2f 32 33 2f 38 |        | 02/23/8|
|00001d80| 39 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |9.      |        |
|00001d90| 20 20 20 20 31 32 3a 30 | 30 70 6d 20 20 20 20 6c |    12:0|0pm    l|
|00001da0| 75 6e 63 68 0a 20 20 20 | 20 20 20 20 20 20 20 20 |unch.   |        |
|00001db0| 20 20 20 20 20 57 65 64 | 6e 65 73 64 61 79 0a 20 |     Wed|nesday. |
|00001dc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001dd0| 20 31 30 3a 30 30 61 6d | 20 20 20 20 67 72 6f 75 | 10:00am|    grou|
|00001de0| 70 20 6d 65 65 74 69 6e | 67 22 5d 29 0a 28 66 73 |p meetin|g"]).(fs|
|00001df0| 65 74 20 27 61 70 70 74 | 2d 6d 61 6b 65 2d 6c 69 |et 'appt|-make-li|
|00001e00| 73 74 20 23 5b 6e 69 6c | 20 22 c0 11 5c 6e 83 8d |st #[nil| "..\n..|
|00001e10| 00 5c 6e c0 1b 89 1c ab | f9 c5 c6 20 0c 40 40 5c |.\n.....|... .@@\|
|00001e20| 22 ab f0 0c 40 41 40 1e | 07 c8 c9 0e 07 5c 22 ab |"...@A@.|.....\".|
|00001e30| b5 ca 95 1e 0b 0e 07 cc | 94 cc 95 4f 1e 0d 0e 07 |........|...O....|
|00001e40| cc 95 0e 0b 4f 1e 0e cf | 0e 0d 21 43 1e 10 0e 07 |....O...|..!C....|
|00001e50| 0e 0b c0 4f 16 07 0e 10 | 0e 0d d1 0e 0e 51 43 42 |...O....|.....QCB|
|00001e60| 0b 42 13 2c aa 44 0e 12 | ab a3 c8 d3 0e 07 5c 22 |.B.,.D..|......\"|
|00001e70| ab 9c d4 20 88 d5 d6 0e | 07 cc 94 cc 95 4f 5c 22 |... ....|.....O\"|
|00001e80| 88 d7 d8 21 88 0e 07 ca | 95 c0 4f 16 07 aa 5d 29 |...!....|..O...])|
|00001e90| 0c 41 89 14 ac 07 d9 0b | 9f 09 5c 22 11 2a da 09 |.A......|..\".*..|
|00001ea0| 21 11 db 20 09 40 40 40 | 1e 1c 1e 1d 09 ab 95 0e |!.. .@@@|........|
|00001eb0| 1c 0e 1d 57 ab 8e 09 41 | 89 11 ab 70 09 40 40 40 |...W...A|...p.@@@|
|00001ec0| 16 1c aa 68 2a 09 87 22 | 20 5b 6e 69 6c 20 61 70 |...h*.."| [nil ap|
|00001ed0| 70 74 2d 74 69 6d 65 2d | 6d 73 67 2d 6c 69 73 74 |pt-time-|msg-list|
|00001ee0| 20 64 69 61 72 79 2d 65 | 6e 74 72 69 65 73 2d 6c | diary-e|ntries-l|
|00001ef0| 69 73 74 20 6e 65 77 2d | 61 70 70 74 73 20 65 6e |ist new-|appts en|
|00001f00| 74 72 79 2d 6c 69 73 74 | 20 63 61 6c 65 6e 64 61 |try-list| calenda|
|00001f10| 72 2d 64 61 74 65 2d 65 | 71 75 61 6c 20 63 61 6c |r-date-e|qual cal|
|00001f20| 65 6e 64 61 72 2d 63 75 | 72 72 65 6e 74 2d 64 61 |endar-cu|rrent-da|
|00001f30| 74 65 20 74 69 6d 65 2d | 73 74 72 69 6e 67 20 73 |te time-|string s|
|00001f40| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 5c 5c 60 |tring-ma|tch "\\`|
|00001f50| 5b 20 09 5c 6e 5d 2a 5c | 5c 28 5b 30 2d 39 5d 3f |[ .\n]*\|\([0-9]?|
|00001f60| 5b 30 2d 39 5d 5c 5c 28 | 3a 5b 30 2d 39 5d 5b 30 |[0-9]\\(|:[0-9][0|
|00001f70| 2d 39 5d 5c 5c 29 3f 5b | 20 09 5d 2a 5c 5c 28 61 |-9]\\)?[| .]*\\(a|
|00001f80| 6d 5c 5c 7c 70 6d 5c 5c | 29 3f 5c 5c 7c 6e 6f 6f |m\\|pm\\|)?\\|noo|
|00001f90| 6e 5c 5c 7c 6d 69 64 6e | 69 67 68 74 5c 5c 7c 6d |n\\|midn|ight\\|m|
|00001fa0| 69 64 6e 69 74 65 5c 5c | 29 2e 2a 24 22 20 30 20 |idnite\\|).*$" 0 |
|00001fb0| 65 6f 6c 20 31 20 61 70 | 70 74 2d 74 69 6d 65 2d |eol 1 ap|pt-time-|
|00001fc0| 73 74 72 69 6e 67 20 61 | 70 70 74 2d 6d 73 67 2d |string a|ppt-msg-|
|00001fd0| 73 74 72 69 6e 67 20 61 | 70 70 74 2d 63 6f 6e 76 |string a|ppt-conv|
|00001fe0| 65 72 74 2d 74 69 6d 65 | 20 61 70 70 74 2d 74 69 |ert-time| appt-ti|
|00001ff0| 6d 65 20 22 3a 22 20 61 | 70 70 74 2d 63 68 65 63 |me ":" a|ppt-chec|
|00002000| 6b 2d 74 69 6d 65 2d 73 | 79 6e 74 61 78 20 22 5c |k-time-s|yntax "\|
|00002010| 6e 2a 5c 5c 28 5b 5e 5c | 6e 5d 2b 5c 5c 29 24 22 |n*\\([^\|n]+\\)$"|
|00002020| 20 62 65 65 70 20 6d 65 | 73 73 61 67 65 20 22 55 | beep me|ssage "U|
|00002030| 6e 70 61 72 73 61 62 6c | 65 20 74 69 6d 65 3a 20 |nparsabl|e time: |
|00002040| 25 73 22 20 73 69 74 2d | 66 6f 72 20 33 20 61 70 |%s" sit-|for 3 ap|
|00002050| 70 65 6e 64 20 61 70 70 | 74 2d 73 6f 72 74 2d 6c |pend app|t-sort-l|
|00002060| 69 73 74 20 61 70 70 74 | 2d 63 75 72 72 65 6e 74 |ist appt|-current|
|00002070| 2d 74 69 6d 65 2d 69 6e | 2d 73 65 63 6f 6e 64 73 |-time-in|-seconds|
|00002080| 20 61 70 70 74 2d 63 6f | 6d 70 2d 74 69 6d 65 20 | appt-co|mp-time |
|00002090| 63 75 72 2d 63 6f 6d 70 | 2d 74 69 6d 65 5d 20 36 |cur-comp|-time] 6|
|000020a0| 20 22 5c 0a 44 6f 6e 27 | 74 20 63 61 6c 6c 20 74 | "\.Don'|t call t|
|000020b0| 68 69 73 20 64 69 72 65 | 63 74 6c 79 3b 20 63 61 |his dire|ctly; ca|
|000020c0| 6c 6c 20 61 70 70 74 2d | 69 6e 69 74 69 61 6c 69 |ll appt-|initiali|
|000020d0| 7a 65 20 6f 72 20 61 70 | 70 74 2d 64 69 61 72 79 |ze or ap|pt-diary|
|000020e0| 2d 65 6e 74 72 69 65 73 | 2e 22 5d 29 0a 28 66 73 |-entries|."]).(fs|
|000020f0| 65 74 20 27 61 70 70 74 | 2d 62 65 65 70 20 23 5b |et 'appt|-beep #[|
|00002100| 6e 69 6c 20 22 08 ac 82 | c1 87 08 a7 ab 92 08 89 |nil "...|........|
|00002110| 1a c3 56 ad 89 c4 20 88 | 5c 6e 53 89 12 aa 73 29 |..V... .|\nS...s)|
|00002120| 87 08 3a ab a1 08 40 08 | 41 1d 1a 0d 3a ab 83 0d |..:...@.|A...:...|
|00002130| 40 15 5c 6e c3 56 ad 8d | c4 20 88 c6 0d 21 88 5c |@.\n.V..|. ...!.\|
|00002140| 6e 53 89 12 aa 6f 2a 87 | c4 20 87 22 20 5b 61 70 |nS...o*.|. ." [ap|
|00002150| 70 74 2d 61 75 64 69 62 | 6c 65 20 6e 69 6c 20 69 |pt-audib|le nil i|
|00002160| 20 30 20 62 65 65 70 20 | 6a 20 73 6c 65 65 70 2d | 0 beep |j sleep-|
|00002170| 66 6f 72 2d 6d 69 6c 6c | 69 73 65 63 73 5d 20 33 |for-mill|isecs] 3|
|00002180| 5d 29 0a 28 66 73 65 74 | 20 27 61 70 70 74 2d 63 |]).(fset| 'appt-c|
|00002190| 68 65 63 6b 20 23 5b 6e | 69 6c 20 22 08 85 ee 00 |heck #[n|il "....|
|000021a0| c1 c2 1b 1c c5 20 89 1e | 06 0e 07 55 1e 08 0e 07 |..... ..|...U....|
|000021b0| 0e 06 56 1e 09 0e 06 16 | 07 0e 09 ab 83 ca 20 88 |..V.....|...... .|
|000021c0| 0e 0b 83 ea 00 0e 0b 40 | 40 40 89 1e 0c 0e 06 5a |.......@|@@.....Z|
|000021d0| 14 0e 0b ab 98 0e 0c 0e | 06 57 ab 91 0e 0b 41 89 |........|.W....A.|
|000021e0| 16 0b ab 6d 0e 0b 40 40 | 40 16 0c aa 64 0e 0c cd |...m..@@|@...d...|
|000021f0| ce 0e 0f 5c 22 57 ab 97 | 0e 06 cd ce 0e 0f 5c 22 |...\"W..|......\"|
|00002200| 5c 5c 0e 10 56 ab 8a 0e | 10 54 0e 06 5a 14 d1 16 |\\..V...|.T..Z...|
|00002210| 0c 0c cd ce 0e 0f 5c 22 | 56 ab 85 d2 d1 21 aa e7 |......\"|V....!..|
|00002220| 0e 08 ac 8b 0c d3 55 ac | 89 0c 0e 0f 3e ac 83 d1 |......U.|....>...|
|00002230| aa d5 0c d3 55 ab a3 d4 | d5 0e 0b 40 41 40 5c 22 |....U...|...@A@\"|
|00002240| ab 99 0e 0b 40 41 40 d3 | 95 53 d1 4f 1e 16 d1 d7 |....@A@.|.S.O....|
|00002250| d8 8f 1e 19 da 0e 19 21 | 2a aa ad 0c cd ce 0e 0f |.......!|*.......|
|00002260| 5c 22 58 ab a1 0c d3 59 | ab 9c db 20 88 0e 1c 0c |\"X....Y|... ....|
|00002270| 0e 0b 40 5c 22 88 d2 0c | 21 88 0c d3 55 ad 8b 0e |..@\"...|!...U...|
|00002280| 0b 41 89 16 0b aa 83 d2 | d1 21 29 aa 83 d2 d1 21 |.A......|.!)....!|
|00002290| 2d 87 22 20 5b 61 70 70 | 74 2d 69 73 73 75 65 2d |-." [app|t-issue-|
|000022a0| 6d 65 73 73 61 67 65 20 | 2d 31 20 22 22 20 6e 65 |message |-1 "" ne|
|000022b0| 77 2d 74 69 6d 65 20 6d | 69 6e 2d 74 6f 2d 61 70 |w-time m|in-to-ap|
|000022c0| 70 20 61 70 70 74 2d 63 | 75 72 72 65 6e 74 2d 74 |p appt-c|urrent-t|
|000022d0| 69 6d 65 2d 69 6e 2d 73 | 65 63 6f 6e 64 73 20 63 |ime-in-s|econds c|
|000022e0| 75 72 2d 63 6f 6d 70 2d | 74 69 6d 65 20 61 70 70 |ur-comp-|time app|
|000022f0| 74 2d 63 68 65 63 6b 2d | 74 69 63 6b 20 73 68 75 |t-check-|tick shu|
|00002300| 74 2d 75 70 2d 74 68 69 | 73 2d 74 69 6d 65 20 74 |t-up-thi|s-time t|
|00002310| 75 72 6e 6f 76 65 72 2d | 70 20 61 70 70 74 2d 64 |urnover-|p appt-d|
|00002320| 69 61 72 79 2d 65 6e 74 | 72 69 65 73 20 61 70 70 |iary-ent|ries app|
|00002330| 74 2d 74 69 6d 65 2d 6d | 73 67 2d 6c 69 73 74 20 |t-time-m|sg-list |
|00002340| 61 70 70 74 2d 63 6f 6d | 70 2d 74 69 6d 65 20 61 |appt-com|p-time a|
|00002350| 70 70 6c 79 20 6d 61 78 | 20 61 70 70 74 2d 6d 73 |pply max| appt-ms|
|00002360| 67 2d 63 6f 75 6e 74 64 | 6f 77 6e 2d 6c 69 73 74 |g-countd|own-list|
|00002370| 20 6d 61 78 2d 74 69 6d | 65 20 6e 69 6c 20 61 70 | max-tim|e nil ap|
|00002380| 70 74 2d 64 69 73 70 6c | 61 79 2d 6d 6f 64 65 2d |pt-displ|ay-mode-|
|00002390| 6c 69 6e 65 20 30 20 73 | 74 72 69 6e 67 2d 6d 61 |line 0 s|tring-ma|
|000023a0| 74 63 68 20 22 25 25 28 | 22 20 6c 69 73 74 2d 73 |tch "%%(|" list-s|
|000023b0| 74 72 69 6e 67 20 28 72 | 65 61 64 20 6c 69 73 74 |tring (r|ead list|
|000023c0| 2d 73 74 72 69 6e 67 29 | 20 28 28 65 72 72 6f 72 |-string)| ((error|
|000023d0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 20 88 | (byte-c|ode ". .|
|000023e0| c1 c2 0b 40 41 40 5c 22 | 88 c4 c5 21 88 c6 87 22 |...@A@\"|...!..."|
|000023f0| 20 5b 64 69 6e 67 20 6d | 65 73 73 61 67 65 20 22 | [ding m|essage "|
|00002400| 41 70 70 74 3a 20 65 72 | 72 6f 72 20 72 65 61 64 |Appt: er|ror read|
|00002410| 69 6e 67 20 66 72 6f 6d | 20 5c 22 25 73 5c 22 22 |ing from| \"%s\""|
|00002420| 20 61 70 70 74 2d 74 69 | 6d 65 2d 6d 73 67 2d 6c | appt-ti|me-msg-l|
|00002430| 69 73 74 20 73 69 74 2d | 66 6f 72 20 32 20 6e 69 |ist sit-|for 2 ni|
|00002440| 6c 5d 20 33 29 29 29 20 | 66 6f 72 6d 20 65 76 61 |l] 3))) |form eva|
|00002450| 6c 20 61 70 70 74 2d 62 | 65 65 70 20 61 70 70 74 |l appt-b|eep appt|
|00002460| 2d 61 6e 6e 6f 75 6e 63 | 65 2d 6d 65 74 68 6f 64 |-announc|e-method|
|00002470| 5d 20 35 20 22 5c 0a 43 | 68 65 63 6b 20 66 6f 72 |] 5 "\.C|heck for|
|00002480| 20 61 6e 20 61 70 70 6f | 69 6e 74 6d 65 6e 74 20 | an appo|intment |
|00002490| 61 6e 64 20 75 70 64 61 | 74 65 20 74 68 65 20 6d |and upda|te the m|
|000024a0| 6f 64 65 20 6c 69 6e 65 | 20 61 6e 64 20 6d 69 6e |ode line| and min|
|000024b0| 69 62 75 66 66 65 72 20 | 69 66 0a 20 64 65 73 69 |ibuffer |if. desi|
|000024c0| 72 65 64 2e 20 4e 6f 74 | 65 3a 20 74 68 65 20 74 |red. Not|e: the t|
|000024d0| 69 6d 65 20 6d 75 73 74 | 20 62 65 20 74 68 65 20 |ime must| be the |
|000024e0| 66 69 72 73 74 20 74 68 | 69 6e 67 20 69 6e 20 74 |first th|ing in t|
|000024f0| 68 65 20 6c 69 6e 65 20 | 69 6e 20 74 68 65 20 64 |he line |in the d|
|00002500| 69 61 72 79 0a 20 66 6f | 72 20 61 20 77 61 72 6e |iary. fo|r a warn|
|00002510| 69 6e 67 20 74 6f 20 62 | 65 20 69 73 73 75 65 64 |ing to b|e issued|
|00002520| 2e 0a 20 20 54 68 65 20 | 66 6f 72 6d 61 74 20 6f |..  The |format o|
|00002530| 66 20 74 68 65 20 74 69 | 6d 65 20 63 61 6e 20 62 |f the ti|me can b|
|00002540| 65 20 65 69 74 68 65 72 | 20 32 34 20 68 6f 75 72 |e either| 24 hour|
|00002550| 20 6f 72 20 61 6d 2f 70 | 6d 2e 20 20 45 78 61 6d | or am/p|m.  Exam|
|00002560| 70 6c 65 3a 20 0a 20 0a | 20 20 20 20 20 20 20 20 |ple: . .|        |
|00002570| 20 20 20 20 20 20 20 30 | 32 2f 32 33 2f 38 39 0a |       0|2/23/89.|
|00002580| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002590| 20 31 38 3a 30 30 20 44 | 69 6e 6e 65 72 0a 20 20 | 18:00 D|inner.  |
|000025a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 54 68 75 72 |        |    Thur|
|000025b0| 73 64 61 79 0a 20 20 20 | 20 20 20 20 20 20 20 20 |sday.   |        |
|000025c0| 20 20 20 20 20 31 31 3a | 34 35 61 6d 20 4c 75 6e |     11:|45am Lun|
|000025d0| 63 68 20 6d 65 65 74 69 | 6e 67 2e 0a 20 20 0a 20 |ch meeti|ng..  . |
|000025e0| 54 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 76 61 |The foll|owing va|
|000025f0| 72 69 61 62 6c 65 73 20 | 63 6f 6e 74 72 6f 6c 20 |riables |control |
|00002600| 74 68 65 20 61 63 74 69 | 6f 6e 20 6f 66 20 74 68 |the acti|on of th|
|00002610| 65 20 6e 6f 74 69 66 69 | 63 61 74 69 6f 6e 3a 0a |e notifi|cation:.|
|00002620| 20 0a 20 61 70 70 74 2d | 69 73 73 75 65 2d 6d 65 | . appt-|issue-me|
|00002630| 73 73 61 67 65 09 09 49 | 66 20 74 68 69 73 20 76 |ssage..I|f this v|
|00002640| 61 72 69 61 62 6c 65 20 | 69 73 20 6e 69 6c 2c 20 |ariable |is nil, |
|00002650| 74 68 65 6e 20 74 68 65 | 20 63 6f 64 65 20 69 6e |then the| code in|
|00002660| 20 74 68 69 73 0a 09 09 | 09 09 66 69 6c 65 20 64 | this...|..file d|
|00002670| 6f 65 73 20 6e 6f 74 68 | 69 6e 67 2e 0a 20 61 70 |oes noth|ing.. ap|
|00002680| 70 74 2d 6d 73 67 2d 63 | 6f 75 6e 74 64 6f 77 6e |pt-msg-c|ountdown|
|00002690| 2d 6c 69 73 74 09 53 70 | 65 63 69 66 69 65 73 20 |-list.Sp|ecifies |
|000026a0| 68 6f 77 20 6d 75 63 68 | 20 77 61 72 6e 69 6e 67 |how much| warning|
|000026b0| 20 79 6f 75 20 77 61 6e | 74 20 62 65 66 6f 72 65 | you wan|t before|
|000026c0| 20 0a 09 09 09 09 61 70 | 70 6f 69 6e 74 6d 65 6e | .....ap|pointmen|
|000026d0| 74 73 2e 0a 20 61 70 70 | 74 2d 61 75 64 69 62 6c |ts.. app|t-audibl|
|000026e0| 65 09 09 09 57 68 65 74 | 68 65 72 20 74 6f 20 62 |e...Whet|her to b|
|000026f0| 65 65 70 20 77 68 65 6e | 20 69 74 27 73 20 6e 6f |eep when| it's no|
|00002700| 74 69 66 69 63 61 74 69 | 6f 6e 2d 74 69 6d 65 2e |tificati|on-time.|
|00002710| 0a 20 61 70 70 74 2d 64 | 69 73 70 6c 61 79 2d 6d |. appt-d|isplay-m|
|00002720| 6f 64 65 2d 6c 69 6e 65 | 09 09 57 68 65 74 68 65 |ode-line|..Whethe|
|00002730| 72 20 74 6f 20 64 69 73 | 70 6c 61 79 20 61 20 63 |r to dis|play a c|
|00002740| 6f 75 6e 74 64 6f 77 6e | 20 74 6f 20 74 68 65 20 |ountdown| to the |
|00002750| 6e 65 78 74 20 0a 09 09 | 09 09 61 70 70 6f 69 6e |next ...|..appoin|
|00002760| 74 6d 65 6e 74 20 69 6e | 20 74 68 65 20 6d 6f 64 |tment in| the mod|
|00002770| 65 2d 6c 69 6e 65 2e 0a | 20 61 70 70 74 2d 61 6e |e-line..| appt-an|
|00002780| 6e 6f 75 6e 63 65 2d 6d | 65 74 68 6f 64 20 20 20 |nounce-m|ethod   |
|00002790| 09 54 68 65 20 66 75 6e | 63 74 69 6f 6e 20 75 73 |.The fun|ction us|
|000027a0| 65 64 20 74 6f 20 64 6f | 20 74 68 65 20 6e 6f 74 |ed to do| the not|
|000027b0| 69 66 69 63 61 74 69 6f | 6e 73 2e 0a 09 09 09 09 |ificatio|ns......|
|000027c0| 27 61 70 70 74 2d 77 69 | 6e 64 6f 77 2d 61 6e 6e |'appt-wi|ndow-ann|
|000027d0| 6f 75 6e 63 65 20 74 6f | 20 64 6f 20 69 74 20 69 |ounce to| do it i|
|000027e0| 6e 20 61 20 70 6f 70 2d | 75 70 0a 09 09 09 09 77 |n a pop-|up.....w|
|000027f0| 69 6e 64 6f 77 2c 20 27 | 61 70 70 74 2d 6d 65 73 |indow, '|appt-mes|
|00002800| 73 61 67 65 2d 61 6e 6e | 6f 75 6e 63 65 20 6f 72 |sage-ann|ounce or|
|00002810| 20 0a 09 09 09 09 27 61 | 70 70 74 2d 70 65 72 73 | .....'a|ppt-pers|
|00002820| 69 73 74 65 6e 74 2d 6d | 65 73 73 61 67 65 2d 61 |istent-m|essage-a|
|00002830| 6e 6e 6f 75 6e 63 65 20 | 74 6f 20 64 6f 20 69 74 |nnounce |to do it|
|00002840| 20 0a 09 09 09 09 69 6e | 20 74 68 65 20 65 63 68 | .....in| the ech|
|00002850| 6f 2d 61 72 65 61 2e 0a | 20 61 70 70 74 2d 64 69 |o-area..| appt-di|
|00002860| 73 70 6c 61 79 2d 64 75 | 72 61 74 69 6f 6e 20 20 |splay-du|ration  |
|00002870| 09 49 66 20 61 70 70 74 | 2d 61 6e 6e 6f 75 6e 63 |.If appt|-announc|
|00002880| 65 2d 6d 65 74 68 6f 64 | 20 69 73 20 73 65 74 20 |e-method| is set |
|00002890| 74 6f 20 74 68 65 20 66 | 75 6e 63 74 69 6f 6e 0a |to the f|unction.|
|000028a0| 09 09 09 09 27 61 70 70 | 74 2d 77 69 6e 64 6f 77 |....'app|t-window|
|000028b0| 2d 61 6e 6e 6f 75 6e 63 | 65 2c 20 74 68 69 73 20 |-announc|e, this |
|000028c0| 73 70 65 63 69 66 69 65 | 73 20 68 6f 77 20 6d 61 |specifie|s how ma|
|000028d0| 6e 79 0a 09 09 09 09 73 | 65 63 6f 6e 64 73 20 74 |ny.....s|econds t|
|000028e0| 68 65 20 70 6f 70 2d 75 | 70 20 77 69 6e 64 6f 77 |he pop-u|p window|
|000028f0| 20 73 68 6f 75 6c 64 20 | 73 74 69 63 6b 20 61 72 | should |stick ar|
|00002900| 6f 75 6e 64 2e 0a 20 0a | 20 54 68 69 73 20 66 75 |ound.. .| This fu|
|00002910| 6e 63 74 69 6f 6e 20 69 | 73 20 72 75 6e 20 66 72 |nction i|s run fr|
|00002920| 6f 6d 20 74 68 65 20 60 | 6c 6f 61 64 73 74 27 20 |om the `|loadst' |
|00002930| 6f 72 20 60 77 61 6b 65 | 75 70 27 20 70 72 6f 63 |or `wake|up' proc|
|00002940| 65 73 73 20 66 6f 72 20 | 64 69 73 70 6c 61 79 2d |ess for |display-|
|00002950| 74 69 6d 65 2e 0a 20 54 | 68 65 72 65 66 6f 72 65 |time.. T|herefore|
|00002960| 2c 20 79 6f 75 20 6e 65 | 65 64 20 74 6f 20 68 61 |, you ne|ed to ha|
|00002970| 76 65 20 28 64 69 73 70 | 6c 61 79 2d 74 69 6d 65 |ve (disp|lay-time|
|00002980| 29 20 69 6e 20 79 6f 75 | 72 20 2e 65 6d 61 63 73 |) in you|r .emacs|
|00002990| 20 66 69 6c 65 2e 22 5d | 29 0a 28 66 73 65 74 20 | file."]|).(fset |
|000029a0| 27 61 70 70 74 2d 61 64 | 64 20 23 5b 28 6e 65 77 |'appt-ad|d #[(new|
|000029b0| 2d 61 70 70 74 2d 74 69 | 6d 65 20 6e 65 77 2d 61 |-appt-ti|me new-a|
|000029c0| 70 70 74 2d 6d 73 67 29 | 20 22 c0 c1 5c 6e 5c 22 |ppt-msg)| "..\n\"|
|000029d0| ac 84 c3 c4 21 88 5c 6e | c5 0e 06 51 1e 07 c8 5c |....!.\n|...Q...\|
|000029e0| 6e 21 43 89 1e 09 0e 07 | 43 42 1e 5c 6e cb 0e 0c |n!C.....|CB.\n...|
|000029f0| 0e 5c 6e 43 5c 22 16 0c | cd 0e 0c 21 89 16 0c 2b |.\nC\"..|...!...+|
|00002a00| 87 22 20 5b 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |." [stri|ng-match|
|00002a10| 20 22 5b 30 2d 39 5d 3f | 5b 30 2d 39 5d 3a 5b 30 | "[0-9]?|[0-9]:[0|
|00002a20| 2d 39 5d 5b 30 2d 39 5d | 5c 5c 28 61 6d 5c 5c 7c |-9][0-9]|\\(am\\||
|00002a30| 70 6d 5c 5c 29 3f 22 20 | 6e 65 77 2d 61 70 70 74 |pm\\)?" |new-appt|
|00002a40| 2d 74 69 6d 65 20 65 72 | 72 6f 72 20 22 55 6e 61 |-time er|ror "Una|
|00002a50| 63 63 65 70 74 61 62 6c | 65 20 74 69 6d 65 2d 73 |cceptabl|e time-s|
|00002a60| 74 72 69 6e 67 22 20 22 | 20 22 20 6e 65 77 2d 61 |tring" "| " new-a|
|00002a70| 70 70 74 2d 6d 73 67 20 | 61 70 70 74 2d 74 69 6d |ppt-msg |appt-tim|
|00002a80| 65 2d 73 74 72 69 6e 67 | 20 61 70 70 74 2d 63 6f |e-string| appt-co|
|00002a90| 6e 76 65 72 74 2d 74 69 | 6d 65 20 61 70 70 74 2d |nvert-ti|me appt-|
|00002aa0| 74 69 6d 65 20 74 69 6d | 65 2d 6d 73 67 20 61 70 |time tim|e-msg ap|
|00002ab0| 70 65 6e 64 20 61 70 70 | 74 2d 74 69 6d 65 2d 6d |pend app|t-time-m|
|00002ac0| 73 67 2d 6c 69 73 74 20 | 61 70 70 74 2d 73 6f 72 |sg-list |appt-sor|
|00002ad0| 74 2d 6c 69 73 74 5d 20 | 34 20 22 5c 0a 41 64 64 |t-list] |4 "\.Add|
|00002ae0| 73 20 61 6e 20 61 70 70 | 6f 69 6e 74 6d 65 6e 74 |s an app|ointment|
|00002af0| 20 74 6f 20 74 68 65 20 | 6c 69 73 74 20 6f 66 20 | to the |list of |
|00002b00| 61 70 70 6f 69 6e 74 6d | 65 6e 74 73 20 66 6f 72 |appointm|ents for|
|00002b10| 20 74 68 65 20 64 61 79 | 20 61 74 20 54 49 4d 45 | the day| at TIME|
|00002b20| 0a 20 61 6e 64 20 69 73 | 73 75 65 20 4d 45 53 53 |. and is|sue MESS|
|00002b30| 41 47 45 2e 20 54 68 65 | 20 74 69 6d 65 20 73 68 |AGE. The| time sh|
|00002b40| 6f 75 6c 64 20 62 65 20 | 69 6e 20 65 69 74 68 65 |ould be |in eithe|
|00002b50| 72 20 32 34 20 68 6f 75 | 72 20 66 6f 72 6d 61 74 |r 24 hou|r format|
|00002b60| 20 6f 72 0a 20 61 6d 2f | 70 6d 20 66 6f 72 6d 61 | or. am/|pm forma|
|00002b70| 74 2e 20 22 20 22 73 54 | 69 6d 65 20 28 68 68 3a |t. " "sT|ime (hh:|
|00002b80| 6d 6d 5b 61 6d 2f 70 6d | 5d 29 3a 20 5c 6e 73 4d |mm[am/pm|]): \nsM|
|00002b90| 65 73 73 61 67 65 3a 20 | 22 5d 29 0a 28 66 73 65 |essage: |"]).(fse|
|00002ba0| 74 20 27 61 70 70 74 2d | 64 65 6c 65 74 65 20 23 |t 'appt-|delete #|
|00002bb0| 5b 6e 69 6c 20 22 08 19 | 09 ab a5 09 40 1a c3 c4 |[nil "..|....@...|
|00002bc0| 5c 6e 41 40 21 c5 51 1e | 06 c7 0e 06 21 1e 08 09 |\nA@!.Q.|....!...|
|00002bd0| 41 11 0e 08 ab 85 c9 5c | 6e 08 5c 22 10 ca 16 0b |A......\|n.\"....|
|00002be0| 2b aa 58 cc cd 21 29 87 | 22 20 5b 61 70 70 74 2d |+.X..!).|" [appt-|
|00002bf0| 74 69 6d 65 2d 6d 73 67 | 2d 6c 69 73 74 20 74 6d |time-msg|-list tm|
|00002c00| 70 2d 6d 73 67 2d 6c 69 | 73 74 20 65 6c 65 6d 65 |p-msg-li|st eleme|
|00002c10| 6e 74 20 22 44 65 6c 65 | 74 65 20 22 20 70 72 69 |nt "Dele|te " pri|
|00002c20| 6e 31 2d 74 6f 2d 73 74 | 72 69 6e 67 20 22 20 66 |n1-to-st|ring " f|
|00002c30| 72 6f 6d 20 6c 69 73 74 | 3f 20 22 20 70 72 6f 6d |rom list|? " prom|
|00002c40| 70 74 2d 73 74 72 69 6e | 67 20 79 2d 6f 72 2d 6e |pt-strin|g y-or-n|
|00002c50| 2d 70 20 74 65 73 74 2d | 69 6e 70 75 74 20 64 65 |-p test-|input de|
|00002c60| 6c 71 20 6e 69 6c 20 74 | 6d 70 2d 61 70 70 74 2d |lq nil t|mp-appt-|
|00002c70| 6d 73 67 2d 6c 69 73 74 | 20 6d 65 73 73 61 67 65 |msg-list| message|
|00002c80| 20 22 22 5d 20 33 20 22 | 5c 0a 44 65 6c 65 74 65 | ""] 3 "|\.Delete|
|00002c90| 73 20 61 6e 20 61 70 70 | 6f 69 6e 74 6d 65 6e 74 |s an app|ointment|
|00002ca0| 20 66 72 6f 6d 20 74 68 | 65 20 6c 69 73 74 20 6f | from th|e list o|
|00002cb0| 66 20 61 70 70 6f 69 6e | 74 6d 65 6e 74 73 2e 22 |f appoin|tments."|
|00002cc0| 20 6e 69 6c 5d 29 0a 28 | 64 65 66 76 61 72 20 64 | nil]).(|defvar d|
|00002cd0| 69 73 70 6c 61 79 2d 74 | 69 6d 65 2d 68 6f 6f 6b |isplay-t|ime-hook|
|00002ce0| 20 6e 69 6c 20 22 5c 0a | 2a 4c 69 73 74 20 6f 66 | nil "\.|*List of|
|00002cf0| 20 66 75 6e 63 74 69 6f | 6e 73 20 74 6f 20 62 65 | functio|ns to be|
|00002d00| 20 63 61 6c 6c 65 64 20 | 77 68 65 6e 20 74 68 65 | called |when the|
|00002d10| 20 74 69 6d 65 20 69 73 | 20 75 70 64 61 74 65 64 | time is| updated|
|00002d20| 20 6f 6e 20 74 68 65 20 | 6d 6f 64 65 20 6c 69 6e | on the |mode lin|
|00002d30| 65 2e 22 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |e.").(by|te-code |
|00002d40| 22 c0 11 c2 c3 21 ac 82 | c4 13 c5 c6 4d 88 c7 c8 |"....!..|....M...|
|00002d50| 21 87 22 20 5b 61 70 70 | 74 2d 63 68 65 63 6b 20 |!." [app|t-check |
|00002d60| 64 69 73 70 6c 61 79 2d | 74 69 6d 65 2d 68 6f 6f |display-|time-hoo|
|00002d70| 6b 20 62 6f 75 6e 64 70 | 20 64 69 73 70 6c 61 79 |k boundp| display|
|00002d80| 2d 74 69 6d 65 2d 68 6f | 6f 6b 2d 69 6e 73 74 61 |-time-ho|ok-insta|
|00002d90| 6c 6c 65 64 20 6e 69 6c | 20 69 6e 73 74 61 6c 6c |lled nil| install|
|00002da0| 2d 64 69 73 70 6c 61 79 | 2d 74 69 6d 65 2d 68 6f |-display|-time-ho|
|00002db0| 6f 6b 20 23 5b 6e 69 6c | 20 22 08 3f ad c3 c1 c2 |ok #[nil| ".?....|
|00002dc0| 21 ab 9f c1 c3 21 ab 9a | c4 c5 21 ab 88 c1 c6 21 |!....!..|..!....!|
|00002dd0| ab 83 c6 aa 9b c7 c8 c9 | 20 5c 22 ab 83 c2 aa 91 |........| \".....|
|00002de0| c3 aa 8e c4 c5 21 ab 88 | c1 ca 21 ab 83 ca aa 81 |.....!..|..!.....|
|00002df0| cb 1e 0c cd 0e 0c 4b 4d | 88 0e 0c ce 4d 88 29 cf |......KM|....M.).|
|00002e00| 89 10 87 22 20 5b 64 69 | 73 70 6c 61 79 2d 74 69 |..." [di|splay-ti|
|00002e10| 6d 65 2d 68 6f 6f 6b 2d | 69 6e 73 74 61 6c 6c 65 |me-hook-|installe|
|00002e20| 64 20 66 62 6f 75 6e 64 | 70 20 64 69 73 70 6c 61 |d fbound|p displa|
|00002e30| 79 2d 74 69 6d 65 2d 66 | 69 6c 74 65 72 2d 31 38 |y-time-f|ilter-18|
|00002e40| 2d 35 35 20 64 69 73 70 | 6c 61 79 2d 74 69 6d 65 |-55 disp|lay-time|
|00002e50| 2d 66 69 6c 74 65 72 2d | 31 38 2d 35 37 20 66 65 |-filter-|18-57 fe|
|00002e60| 61 74 75 72 65 70 20 74 | 69 6d 65 72 20 64 69 73 |aturep t|imer dis|
|00002e70| 70 6c 61 79 2d 74 69 6d | 65 2d 74 69 6d 65 72 2d |play-tim|e-timer-|
|00002e80| 66 75 6e 63 74 69 6f 6e | 20 73 74 72 69 6e 67 2d |function| string-|
|00002e90| 6d 61 74 63 68 20 22 31 | 38 5c 5c 2e 35 5b 30 2d |match "1|8\\.5[0-|
|00002ea0| 35 5d 22 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |5]" emac|s-versio|
|00002eb0| 6e 20 64 69 73 70 6c 61 | 79 2d 74 69 6d 65 2d 66 |n displa|y-time-f|
|00002ec0| 75 6e 63 74 69 6f 6e 20 | 64 69 73 70 6c 61 79 2d |unction |display-|
|00002ed0| 74 69 6d 65 2d 66 69 6c | 74 65 72 20 6f 6c 64 2d |time-fil|ter old-|
|00002ee0| 66 6e 20 6f 6c 64 2d 64 | 69 73 70 6c 61 79 2d 74 |fn old-d|isplay-t|
|00002ef0| 69 6d 65 2d 66 69 6c 74 | 65 72 20 23 5b 28 26 72 |ime-filt|er #[(&r|
|00002f00| 65 73 74 20 61 72 67 73 | 29 20 22 c0 c1 5c 6e 5c |est args|) "..\n\|
|00002f10| 22 88 c3 c4 21 87 22 20 | 5b 61 70 70 6c 79 20 6f |"...!." |[apply o|
|00002f20| 6c 64 2d 64 69 73 70 6c | 61 79 2d 74 69 6d 65 2d |ld-displ|ay-time-|
|00002f30| 66 69 6c 74 65 72 20 61 | 72 67 73 20 72 75 6e 2d |filter a|rgs run-|
|00002f40| 68 6f 6f 6b 73 20 64 69 | 73 70 6c 61 79 2d 74 69 |hooks di|splay-ti|
|00002f50| 6d 65 2d 68 6f 6f 6b 5d | 20 33 20 22 52 65 76 69 |me-hook]| 3 "Revi|
|00002f60| 73 65 64 20 76 65 72 73 | 69 6f 6e 20 6f 66 20 74 |sed vers|ion of t|
|00002f70| 68 65 20 6f 72 69 67 69 | 6e 61 6c 20 66 75 6e 63 |he origi|nal func|
|00002f80| 74 69 6f 6e 3a 20 74 68 | 69 73 20 76 65 72 73 69 |tion: th|is versi|
|00002f90| 6f 6e 20 63 61 6c 6c 73 | 20 61 20 68 6f 6f 6b 2e |on calls| a hook.|
|00002fa0| 22 5d 20 74 5d 20 33 5d | 20 70 72 6f 76 69 64 65 |"] t] 3]| provide|
|00002fb0| 20 61 70 70 74 5d 20 32 | 29 0a                   | appt] 2|).      |
+--------+-------------------------+-------------------------+--------+--------+