home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1995-08-29 | 12.0 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 |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
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 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 33 | 37 20 31 39 39 35 0a 3b | 13:51:3|7 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 61 |/lisp/ca|lendar/a|
|00000090| 70 70 74 2e 65 6c 0a 3b | 3b 3b 20 65 6d 61 63 73 |ppt.el.;|;; emacs|
|000000a0| 20 76 65 72 73 69 6f 6e | 20 31 39 2e 31 33 20 58 | version| 19.13 X|
|000000b0| 45 6d 61 63 73 20 4c 75 | 63 69 64 2e 0a 3b 3b 3b |Emacs Lu|cid..;;;|
|000000c0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000d0| 6e 20 32 2e 32 35 3b 20 | 31 2d 53 65 70 2d 39 34 |n 2.25; |1-Sep-94|
|000000e0| 2e 0a 3b 3b 3b 20 6f 70 | 74 69 6d 69 7a 61 74 69 |..;;; op|timizati|
|000000f0| 6f 6e 20 69 73 20 6f 6e | 2e 0a 3b 3b 3b 20 74 68 |on is on|..;;; th|
|00000100| 69 73 20 66 69 6c 65 20 | 75 73 65 73 20 6f 70 63 |is file |uses opc|
|00000110| 6f 64 65 73 20 77 68 69 | 63 68 20 64 6f 20 6e 6f |odes whi|ch do no|
|00000120| 74 20 65 78 69 73 74 20 | 69 6e 20 45 6d 61 63 73 |t exist |in Emacs|
|00000130| 20 31 38 2e 0a 0a 28 69 | 66 20 28 61 6e 64 20 28 | 18...(i|f (and (|
|00000140| 62 6f 75 6e 64 70 20 27 | 65 6d 61 63 73 2d 76 65 |boundp '|emacs-ve|
|00000150| 72 73 69 6f 6e 29 0a 09 | 20 28 6f 72 20 28 61 6e |rsion)..| (or (an|
|00000160| 64 20 28 62 6f 75 6e 64 | 70 20 27 65 70 6f 63 68 |d (bound|p 'epoch|
|00000170| 3a 3a 76 65 72 73 69 6f | 6e 29 20 65 70 6f 63 68 |::versio|n) epoch|
|00000180| 3a 3a 76 65 72 73 69 6f | 6e 29 0a 09 20 20 20 20 |::versio|n).. |
|00000190| 20 28 73 74 72 69 6e 67 | 2d 6c 65 73 73 70 20 65 | (string|-lessp e|
|000001a0| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 20 22 31 39 |macs-ver|sion "19|
|000001b0| 22 29 29 29 0a 20 20 20 | 20 28 65 72 72 6f 72 20 |"))). | (error |
|000001c0| 22 54 68 69 73 20 66 69 | 6c 65 20 77 61 73 20 63 |"This fi|le was c|
|000001d0| 6f 6d 70 69 6c 65 64 20 | 66 6f 72 20 45 6d 61 63 |ompiled |for Emac|
|000001e0| 73 20 31 39 2e 22 29 29 | 0a 0a 28 62 79 74 65 2d |s 19."))|..(byte-|
|000001f0| 63 6f 64 65 20 22 c0 c1 | 21 88 c0 c2 21 87 22 20 |code "..|!...!." |
|00000200| 5b 72 65 71 75 69 72 65 | 20 63 61 6c 65 6e 64 61 |[require| calenda|
|00000210| 72 20 64 69 61 72 79 2d | 6c 69 62 5d 20 32 29 0a |r diary-|lib] 2).|
|00000220| 28 64 65 66 76 61 72 20 | 61 70 70 74 2d 69 73 73 |(defvar |appt-iss|
|00000230| 75 65 2d 6d 65 73 73 61 | 67 65 20 74 20 22 5c 0a |ue-messa|ge t "\.|
|00000240| 2a 49 66 20 54 2c 20 74 | 68 65 20 64 69 61 72 79 |*If T, t|he diary|
|00000250| 20 62 75 66 66 65 72 20 | 69 73 20 63 68 65 63 6b | buffer |is check|
|00000260| 65 64 20 66 6f 72 20 61 | 70 70 6f 69 6e 74 6d 65 |ed for a|ppointme|
|00000270| 6e 74 73 2e 20 20 46 6f | 72 20 61 6e 0a 20 61 70 |nts. Fo|r an. ap|
|00000280| 70 6f 69 6e 74 6d 65 6e | 74 20 77 61 72 6e 69 6e |pointmen|t warnin|
|00000290| 67 20 74 6f 20 62 65 20 | 6d 61 64 65 2c 20 74 68 |g to be |made, th|
|000002a0| 65 20 74 69 6d 65 20 6d | 75 73 74 20 62 65 20 74 |e time m|ust be t|
|000002b0| 68 65 20 66 69 72 73 74 | 20 74 68 69 6e 67 20 6f |he first| thing o|
|000002c0| 6e 0a 20 74 68 65 20 6c | 69 6e 65 2e 22 29 0a 28 |n. the l|ine.").(|
|000002d0| 64 65 66 76 61 72 20 61 | 70 70 74 2d 6d 73 67 2d |defvar a|ppt-msg-|
|000002e0| 63 6f 75 6e 74 64 6f 77 | 6e 2d 6c 69 73 74 20 27 |countdow|n-list '|
|000002f0| 28 32 30 20 31 35 20 31 | 30 20 35 20 33 20 31 29 |(20 15 1|0 5 3 1)|
|00000300| 20 22 5c 0a 2a 41 20 6c | 69 73 74 20 6f 66 20 74 | "\.*A l|ist of t|
|00000310| 68 65 20 69 6e 74 65 72 | 76 61 6c 73 20 69 6e 20 |he inter|vals in |
|00000320| 6d 69 6e 75 74 65 73 20 | 62 65 66 6f 72 65 20 74 |minutes |before t|
|00000330| 68 65 20 61 70 70 6f 69 | 6e 74 6d 65 6e 74 20 77 |he appoi|ntment w|
|00000340| 68 65 6e 0a 20 74 68 65 | 20 77 61 72 6e 69 6e 67 |hen. the| warning|
|00000350| 73 20 77 69 6c 6c 20 62 | 65 20 67 69 76 65 6e 2e |s will b|e given.|
|00000360| 20 20 54 68 61 74 20 69 | 73 2c 20 69 66 20 74 68 | That i|s, if th|
|00000370| 69 73 20 77 65 72 65 20 | 74 68 65 20 6c 69 73 74 |is were |the list|
|00000380| 20 27 28 35 20 33 20 31 | 29 2c 0a 20 74 68 65 6e | '(5 3 1|),. then|
|00000390| 20 61 20 6e 6f 74 69 66 | 69 63 61 74 69 6f 6e 20 | a notif|ication |
|000003a0| 77 6f 75 6c 64 20 62 65 | 20 67 69 76 65 6e 20 66 |would be| given f|
|000003b0| 69 76 65 20 6d 69 6e 75 | 74 65 73 2c 20 74 68 72 |ive minu|tes, thr|
|000003c0| 65 65 20 6d 69 6e 75 74 | 65 73 2c 20 61 6e 64 0a |ee minut|es, and.|
|000003d0| 20 6f 6e 65 20 6d 69 6e | 75 74 65 20 62 65 66 6f | one min|ute befo|
|000003e0| 72 65 20 74 68 65 20 61 | 70 70 6f 69 6e 74 6d 65 |re the a|ppointme|
|000003f0| 6e 74 2e 22 29 0a 28 64 | 65 66 76 61 72 20 61 70 |nt.").(d|efvar ap|
|00000400| 70 74 2d 63 68 65 63 6b | 2d 74 69 6d 65 2d 73 79 |pt-check|-time-sy|
|00000410| 6e 74 61 78 20 6e 69 6c | 20 22 5c 0a 2a 57 68 65 |ntax nil| "\.*Whe|
|00000420| 74 68 65 72 20 61 6c 6c | 20 64 69 61 72 79 20 65 |ther all| diary e|
|00000430| 6e 74 72 69 65 73 20 61 | 72 65 20 69 6e 74 65 6e |ntries a|re inten|
|00000440| 64 65 64 20 74 6f 20 62 | 65 67 69 6e 67 20 77 69 |ded to b|eging wi|
|00000450| 74 68 20 74 69 6d 65 20 | 73 70 65 63 69 66 69 63 |th time |specific|
|00000460| 61 74 69 6f 6e 73 2e 0a | 41 70 70 74 20 77 69 6c |ations..|Appt wil|
|00000470| 6c 20 62 65 65 70 20 61 | 6e 64 20 69 73 73 75 65 |l beep a|nd issue|
|00000480| 20 61 20 77 61 72 6e 69 | 6e 67 20 6d 65 73 73 61 | a warni|ng messa|
|00000490| 67 65 20 77 68 65 6e 20 | 65 6e 63 6f 75 6e 74 65 |ge when |encounte|
|000004a0| 72 69 6e 67 20 75 6e 70 | 61 72 73 61 62 6c 65 20 |ring unp|arsable |
|000004b0| 0a 6c 69 6e 65 73 2e 22 | 29 0a 28 64 65 66 76 61 |.lines."|).(defva|
|000004c0| 72 20 61 70 70 74 2d 61 | 75 64 69 62 6c 65 20 74 |r appt-a|udible t|
|000004d0| 20 22 5c 0a 2a 43 6f 6e | 74 72 6f 6c 73 20 77 68 | "\.*Con|trols wh|
|000004e0| 65 74 68 65 72 20 61 70 | 70 6f 69 6e 74 6d 65 6e |ether ap|pointmen|
|000004f0| 74 20 61 6e 6e 6f 75 6e | 63 65 6d 65 6e 74 73 20 |t announ|cements |
|00000500| 73 68 6f 75 6c 64 20 62 | 65 65 70 2e 0a 41 70 70 |should b|eep..App|
|00000510| 74 20 75 73 65 73 20 74 | 77 6f 20 73 6f 75 6e 64 |t uses t|wo sound|
|00000520| 2d 74 79 70 65 73 20 66 | 6f 72 20 62 65 65 70 73 |-types f|or beeps|
|00000530| 3a 20 60 61 70 70 74 27 | 20 61 6e 64 20 60 61 70 |: `appt'| and `ap|
|00000540| 70 74 2d 66 69 6e 61 6c | 27 2e 0a 49 66 20 74 68 |pt-final|'..If th|
|00000550| 69 73 20 69 73 20 61 20 | 6e 75 6d 62 65 72 2c 20 |is is a |number, |
|00000560| 74 68 65 6e 20 74 68 61 | 74 20 6d 61 6e 79 20 62 |then tha|t many b|
|00000570| 65 65 70 73 20 77 69 6c | 6c 20 6f 63 63 75 72 2e |eeps wil|l occur.|
|00000580| 0a 49 66 20 74 68 69 73 | 20 69 73 20 61 20 63 6f |.If this| is a co|
|00000590| 6e 73 2c 20 74 68 65 20 | 63 61 72 20 69 73 20 68 |ns, the |car is h|
|000005a0| 6f 77 20 6d 61 6e 79 20 | 62 65 65 70 73 2c 20 61 |ow many |beeps, a|
|000005b0| 6e 64 20 74 68 65 20 63 | 64 72 20 69 73 20 74 68 |nd the c|dr is th|
|000005c0| 65 0a 20 20 64 65 6c 61 | 79 20 62 65 74 77 65 65 |e. dela|y betwee|
|000005d0| 6e 20 74 68 65 6d 20 28 | 61 20 66 6c 6f 61 74 2c |n them (|a float,|
|000005e0| 20 66 72 61 63 74 69 6f | 6e 20 6f 66 20 61 20 73 | fractio|n of a s|
|000005f0| 65 63 6f 6e 64 20 74 6f | 20 73 6c 65 65 70 2e 29 |econd to| sleep.)|
|00000600| 0a 53 65 65 20 61 6c 73 | 6f 20 74 68 65 20 76 61 |.See als|o the va|
|00000610| 72 69 61 62 6c 65 20 60 | 61 70 70 74 2d 6d 73 67 |riable `|appt-msg|
|00000620| 2d 63 6f 75 6e 74 64 6f | 77 6e 2d 6c 69 73 74 27 |-countdo|wn-list'|
|00000630| 22 29 0a 28 64 65 66 76 | 61 72 20 61 70 70 74 2d |").(defv|ar appt-|
|00000640| 64 69 73 70 6c 61 79 2d | 6d 6f 64 65 2d 6c 69 6e |display-|mode-lin|
|00000650| 65 20 74 20 22 5c 0a 2a | 43 6f 6e 74 72 6f 6c 73 |e t "\.*|Controls|
|00000660| 20 69 66 20 6d 69 6e 75 | 74 65 73 2d 74 6f 2d 61 | if minu|tes-to-a|
|00000670| 70 70 6f 69 6e 74 6d 65 | 6e 74 20 73 68 6f 75 6c |ppointme|nt shoul|
|00000680| 64 20 62 65 20 64 69 73 | 70 6c 61 79 65 64 20 6f |d be dis|played o|
|00000690| 6e 20 74 68 65 20 6d 6f | 64 65 20 6c 69 6e 65 2e |n the mo|de line.|
|000006a0| 22 29 0a 28 64 65 66 76 | 61 72 20 61 70 70 74 2d |").(defv|ar appt-|
|000006b0| 61 6e 6e 6f 75 6e 63 65 | 2d 6d 65 74 68 6f 64 20 |announce|-method |
|000006c0| 27 61 70 70 74 2d 77 69 | 6e 64 6f 77 2d 61 6e 6e |'appt-wi|ndow-ann|
|000006d0| 6f 75 6e 63 65 20 22 5c | 0a 2a 54 68 65 20 6e 61 |ounce "\|.*The na|
|000006e0| 6d 65 20 6f 66 20 74 68 | 65 20 66 75 6e 63 74 69 |me of th|e functi|
|000006f0| 6f 6e 20 75 73 65 64 20 | 74 6f 20 6e 6f 74 69 66 |on used |to notif|
|00000700| 79 20 74 68 65 20 75 73 | 65 72 20 6f 66 20 61 6e |y the us|er of an|
|00000710| 20 69 6d 70 65 6e 64 69 | 6e 67 20 0a 61 70 70 6f | impendi|ng .appo|
|00000720| 69 6e 74 6d 65 6e 74 2e | 20 20 54 68 69 73 20 69 |intment.| This i|
|00000730| 73 20 63 61 6c 6c 65 64 | 20 77 69 74 68 20 74 77 |s called| with tw|
|00000740| 6f 20 61 72 67 75 6d 65 | 6e 74 73 2c 20 74 68 65 |o argume|nts, the|
|00000750| 20 6e 75 6d 62 65 72 20 | 6f 66 20 6d 69 6e 75 74 | number |of minut|
|00000760| 65 73 0a 75 6e 74 69 6c | 20 74 68 65 20 61 70 70 |es.until| the app|
|00000770| 6f 69 6e 74 6d 65 6e 74 | 2c 20 61 6e 64 20 74 68 |ointment|, and th|
|00000780| 65 20 61 70 70 6f 69 6e | 74 6d 65 6e 74 20 64 65 |e appoin|tment de|
|00000790| 73 63 72 69 70 74 69 6f | 6e 20 6c 69 73 74 2e 0a |scriptio|n list..|
|000007a0| 0a 52 65 61 73 6f 6e 61 | 62 6c 65 20 76 61 6c 75 |.Reasona|ble valu|
|000007b0| 65 73 20 66 6f 72 20 74 | 68 69 73 20 76 61 72 69 |es for t|his vari|
|000007c0| 61 62 6c 65 20 61 72 65 | 20 27 61 70 70 74 2d 77 |able are| 'appt-w|
|000007d0| 69 6e 64 6f 77 2d 61 6e | 6e 6f 75 6e 63 65 2c 0a |indow-an|nounce,.|
|000007e0| 27 61 70 70 74 2d 6d 65 | 73 73 61 67 65 2d 61 6e |'appt-me|ssage-an|
|000007f0| 6e 6f 75 6e 63 65 2c 20 | 6f 72 20 27 61 70 70 74 |nounce, |or 'appt|
|00000800| 2d 70 65 72 73 69 73 74 | 65 6e 74 2d 6d 65 73 73 |-persist|ent-mess|
|00000810| 61 67 65 2d 61 6e 6e 6f | 75 6e 63 65 2e 22 29 0a |age-anno|unce.").|
|00000820| 28 64 65 66 76 61 72 20 | 61 70 70 74 2d 74 69 6d |(defvar |appt-tim|
|00000830| 65 2d 6d 73 67 2d 6c 69 | 73 74 20 6e 69 6c 20 22 |e-msg-li|st nil "|
|00000840| 5c 0a 54 68 65 20 6c 69 | 73 74 20 6f 66 20 61 70 |\.The li|st of ap|
|00000850| 70 6f 69 6e 74 6d 65 6e | 74 73 20 66 6f 72 20 74 |pointmen|ts for t|
|00000860| 6f 64 61 79 2e 20 20 55 | 73 65 20 61 70 70 74 2d |oday. U|se appt-|
|00000870| 61 64 64 20 61 6e 64 20 | 61 70 70 74 2d 64 65 6c |add and |appt-del|
|00000880| 65 74 65 0a 20 74 6f 20 | 61 64 64 20 61 6e 64 20 |ete. to |add and |
|00000890| 64 65 6c 65 74 65 20 61 | 70 70 6f 69 6e 74 6d 65 |delete a|ppointme|
|000008a0| 6e 74 73 20 66 72 6f 6d | 20 6c 69 73 74 2e 20 20 |nts from| list. |
|000008b0| 54 68 65 20 6f 72 69 67 | 69 6e 61 6c 20 6c 69 73 |The orig|inal lis|
|000008c0| 74 20 69 73 20 67 65 6e | 65 72 61 74 65 64 0a 20 |t is gen|erated. |
|000008d0| 66 72 6f 6d 20 74 68 65 | 20 74 6f 64 61 79 27 73 |from the| today's|
|000008e0| 20 64 69 61 72 79 2d 65 | 6e 74 72 69 65 73 2d 6c | diary-e|ntries-l|
|000008f0| 69 73 74 2e 20 54 68 65 | 20 6e 75 6d 62 65 72 20 |ist. The| number |
|00000900| 62 65 66 6f 72 65 20 65 | 61 63 68 20 74 69 6d 65 |before e|ach time|
|00000910| 2f 6d 65 73 73 61 67 65 | 0a 20 69 73 20 74 68 65 |/message|. is the|
|00000920| 20 74 69 6d 65 20 69 6e | 20 6d 69 6e 75 74 65 73 | time in| minutes|
|00000930| 20 61 66 74 65 72 20 6d | 69 64 6e 69 67 68 74 2e | after m|idnight.|
|00000940| 22 29 0a 28 64 65 66 63 | 6f 6e 73 74 20 6d 61 78 |").(defc|onst max|
|00000950| 2d 74 69 6d 65 20 31 34 | 33 39 20 22 5c 0a 31 31 |-time 14|39 "\.11|
|00000960| 3a 35 39 70 6d 20 69 6e | 20 6d 69 6e 75 74 65 73 |:59pm in| minutes|
|00000970| 20 2d 20 6e 75 6d 62 65 | 72 20 6f 66 20 6d 69 6e | - numbe|r of min|
|00000980| 75 74 65 73 20 69 6e 20 | 61 20 64 61 79 20 6d 69 |utes in |a day mi|
|00000990| 6e 75 73 20 31 2e 22 29 | 0a 28 62 79 74 65 2d 63 |nus 1.")|.(byte-c|
|000009a0| 6f 64 65 20 22 c0 11 c0 | 87 22 20 5b 2d 31 20 61 |ode "...|." [-1 a|
|000009b0| 70 70 74 2d 63 68 65 63 | 6b 2d 74 69 63 6b 5d 20 |ppt-chec|k-tick] |
|000009c0| 31 29 0a 28 64 65 66 76 | 61 72 20 61 70 70 74 2d |1).(defv|ar appt-|
|000009d0| 64 69 73 70 2d 66 72 61 | 6d 65 20 6e 69 6c 20 22 |disp-fra|me nil "|
|000009e0| 5c 0a 49 66 20 6e 6f 6e | 2d 6e 69 6c 2c 20 66 72 |\.If non|-nil, fr|
|000009f0| 61 6d 65 20 74 6f 20 64 | 69 73 70 6c 61 79 20 61 |ame to d|isplay a|
|00000a00| 70 70 6f 69 6e 74 6d 65 | 6e 74 73 20 69 6e 2e 22 |ppointme|nts in."|
|00000a10| 29 0a 28 64 65 66 76 61 | 72 61 6c 69 61 73 20 27 |).(defva|ralias '|
|00000a20| 61 70 70 74 2d 64 69 73 | 70 2d 73 63 72 65 65 6e |appt-dis|p-screen|
|00000a30| 20 27 61 70 70 74 2d 64 | 69 73 70 2d 66 72 61 6d | 'appt-d|isp-fram|
|00000a40| 65 29 0a 28 66 73 65 74 | 20 27 61 70 70 74 2d 6d |e).(fset| 'appt-m|
|00000a50| 65 73 73 61 67 65 2d 61 | 6e 6e 6f 75 6e 63 65 20 |essage-a|nnounce |
|00000a60| 23 5b 28 6d 69 6e 2d 74 | 6f 2d 61 70 70 20 61 70 |#[(min-t|o-app ap|
|00000a70| 70 74 29 20 22 c0 09 c2 | 3d ab 83 c3 aa 91 c4 c5 |pt) "...|=.......|
|00000a80| 09 89 c6 3d ab 83 c7 aa | 81 c8 0e 09 41 40 24 21 |...=....|....A@$!|
|00000a90| 87 22 20 5b 6d 65 73 73 | 61 67 65 20 6d 69 6e 2d |." [mess|age min-|
|00000aa0| 74 6f 2d 61 70 70 20 30 | 20 22 41 70 70 27 74 20 |to-app 0| "App't |
|00000ab0| 4e 4f 57 2e 22 20 66 6f | 72 6d 61 74 20 22 41 70 |NOW." fo|rmat "Ap|
|00000ac0| 70 27 74 20 69 6e 20 25 | 64 20 6d 69 6e 75 74 65 |p't in %|d minute|
|00000ad0| 25 73 20 2d 2d 20 25 73 | 22 20 31 20 22 22 20 22 |%s -- %s|" 1 "" "|
|00000ae0| 73 22 20 61 70 70 74 5d | 20 36 20 22 5c 0a 53 65 |s" appt]| 6 "\.Se|
|00000af0| 74 20 61 70 70 74 2d 61 | 6e 6e 6f 75 6e 63 65 2d |t appt-a|nnounce-|
|00000b00| 6d 65 74 68 6f 64 20 74 | 6f 20 74 68 65 20 6e 61 |method t|o the na|
|00000b10| 6d 65 20 6f 66 20 74 68 | 69 73 20 66 75 6e 63 74 |me of th|is funct|
|00000b20| 69 6f 6e 20 74 6f 20 63 | 61 75 73 65 20 61 70 70 |ion to c|ause app|
|00000b30| 6f 69 6e 74 6d 65 6e 74 | 0a 6e 6f 74 69 66 69 63 |ointment|.notific|
|00000b40| 61 74 69 6f 6e 73 20 74 | 6f 20 62 65 20 67 69 76 |ations t|o be giv|
|00000b50| 65 6e 20 76 69 61 20 6d | 65 73 73 61 67 65 73 20 |en via m|essages |
|00000b60| 69 6e 20 74 68 65 20 6d | 69 6e 69 62 75 66 66 65 |in the m|inibuffe|
|00000b70| 72 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 61 70 70 |r."]).(f|set 'app|
|00000b80| 74 2d 70 65 72 73 69 73 | 74 65 6e 74 2d 6d 65 73 |t-persis|tent-mes|
|00000b90| 73 61 67 65 2d 61 6e 6e | 6f 75 6e 63 65 20 23 5b |sage-ann|ounce #[|
|00000ba0| 28 6d 69 6e 2d 74 6f 2d | 61 70 70 20 61 70 70 74 |(min-to-|app appt|
|00000bb0| 29 20 22 08 c1 3d ab 88 | c2 c3 0c 41 40 5c 22 aa |) "..=..|...A@\".|
|00000bc0| 90 c2 c5 08 89 c6 3d ab | 83 c7 aa 81 c8 0c 41 40 |......=.|......A@|
|00000bd0| 24 c9 20 ca 20 3d 1e 0b | 1e 0c 0e 0b ac 85 8a cd |$. . =..|........|
|00000be0| 8b 88 29 0e 0b ad 84 0e | 0c c7 98 3f ad 85 ce cf |..).....|...?....|
|00000bf0| 0e 0c 5c 22 2a 87 22 20 | 5b 6d 69 6e 2d 74 6f 2d |..\"*." |[min-to-|
|00000c00| 61 70 70 20 30 20 66 6f | 72 6d 61 74 20 22 41 70 |app 0 fo|rmat "Ap|
|00000c10| 70 27 74 20 4e 4f 57 20 | 2d 2d 20 25 73 22 20 61 |p't NOW |-- %s" a|
|00000c20| 70 70 74 20 22 41 70 70 | 27 74 20 69 6e 20 25 64 |ppt "App|'t in %d|
|00000c30| 20 6d 69 6e 75 74 65 25 | 73 20 2d 2d 20 25 73 22 | minute%|s -- %s"|
|00000c40| 20 31 20 22 22 20 22 73 | 22 20 73 65 6c 65 63 74 | 1 "" "s|" select|
|00000c50| 65 64 2d 77 69 6e 64 6f | 77 20 6d 69 6e 69 62 75 |ed-windo|w minibu|
|00000c60| 66 66 65 72 2d 77 69 6e | 64 6f 77 20 69 6e 2d 65 |ffer-win|dow in-e|
|00000c70| 63 68 6f 2d 61 72 65 61 | 2d 61 6c 72 65 61 64 79 |cho-area|-already|
|00000c80| 20 73 74 72 20 28 28 62 | 79 74 65 2d 63 6f 64 65 | str ((b|yte-code|
|00000c90| 20 22 c0 c1 20 21 88 65 | 64 7c 88 5c 6e 63 87 22 | ".. !.e|d|.\nc."|
|00000ca0| 20 5b 73 65 6c 65 63 74 | 2d 77 69 6e 64 6f 77 20 | [select|-window |
|00000cb0| 6d 69 6e 69 62 75 66 66 | 65 72 2d 77 69 6e 64 6f |minibuff|er-windo|
|00000cc0| 77 20 73 74 72 5d 20 32 | 29 29 20 6d 65 73 73 61 |w str] 2|)) messa|
|00000cd0| 67 65 20 22 25 73 22 5d | 20 35 20 22 5c 0a 53 65 |ge "%s"]| 5 "\.Se|
|00000ce0| 74 20 61 70 70 74 2d 61 | 6e 6e 6f 75 6e 63 65 2d |t appt-a|nnounce-|
|00000cf0| 6d 65 74 68 6f 64 20 74 | 6f 20 74 68 65 20 6e 61 |method t|o the na|
|00000d00| 6d 65 20 6f 66 20 74 68 | 69 73 20 66 75 6e 63 74 |me of th|is funct|
|00000d10| 69 6f 6e 20 74 6f 20 63 | 61 75 73 65 20 61 70 70 |ion to c|ause app|
|00000d20| 6f 69 6e 74 6d 65 6e 74 | 0a 6e 6f 74 69 66 69 63 |ointment|.notific|
|00000d30| 61 74 69 6f 6e 73 20 74 | 6f 20 62 65 20 67 69 76 |ations t|o be giv|
|00000d40| 65 6e 20 76 69 61 20 6d | 65 73 73 61 67 65 73 20 |en via m|essages |
|00000d50| 69 6e 20 74 68 65 20 6d | 69 6e 69 62 75 66 66 65 |in the m|inibuffe|
|00000d60| 72 2c 20 62 75 74 20 68 | 61 76 65 20 74 68 6f 73 |r, but h|ave thos|
|00000d70| 65 20 0a 6d 65 73 73 61 | 67 65 73 20 73 74 61 79 |e .messa|ges stay|
|00000d80| 20 61 72 6f 75 6e 64 20 | 65 76 65 6e 20 69 66 20 | around |even if |
|00000d90| 79 6f 75 20 74 79 70 65 | 20 73 6f 6d 65 74 68 69 |you type| somethi|
|00000da0| 6e 67 20 28 75 6e 6c 69 | 6b 65 20 6e 6f 72 6d 61 |ng (unli|ke norma|
|00000db0| 6c 20 6d 65 73 73 61 67 | 65 73 29 2e 22 5d 29 0a |l messag|es)."]).|
|00000dc0| 28 64 65 66 76 61 72 20 | 61 70 70 74 2d 64 69 73 |(defvar |appt-dis|
|00000dd0| 70 6c 61 79 2d 64 75 72 | 61 74 69 6f 6e 20 35 20 |play-dur|ation 5 |
|00000de0| 22 5c 0a 2a 54 68 65 20 | 6e 75 6d 62 65 72 20 6f |"\.*The |number o|
|00000df0| 66 20 73 65 63 6f 6e 64 | 73 20 61 6e 20 61 70 70 |f second|s an app|
|00000e00| 6f 69 6e 74 6d 65 6e 74 | 20 6d 65 73 73 61 67 65 |ointment| message|
|00000e10| 20 69 73 20 64 69 73 70 | 6c 61 79 65 64 20 69 6e | is disp|layed in|
|00000e20| 20 69 74 73 20 6f 77 6e | 20 0a 20 77 69 6e 64 6f | its own| . windo|
|00000e30| 77 20 69 66 20 61 70 70 | 74 2d 61 6e 6e 6f 75 6e |w if app|t-announ|
|00000e40| 63 65 2d 6d 65 74 68 6f | 64 20 69 73 20 27 61 70 |ce-metho|d is 'ap|
|00000e50| 70 74 2d 77 69 6e 64 6f | 77 2d 61 6e 6e 6f 75 6e |pt-windo|w-announ|
|00000e60| 63 65 2e 22 29 0a 28 66 | 73 65 74 20 27 61 70 70 |ce.").(f|set 'app|
|00000e70| 74 2d 77 69 6e 64 6f 77 | 2d 61 6e 6e 6f 75 6e 63 |t-window|-announc|
|00000e80| 65 20 23 5b 28 6d 69 6e | 2d 74 6f 2d 61 70 70 20 |e #[(min|-to-app |
|00000e90| 61 70 70 74 29 20 22 c0 | c1 21 88 8a c2 8b 29 87 |appt) ".|.!....).|
|00000ea0| 22 20 5b 72 65 71 75 69 | 72 65 20 65 6c 65 63 74 |" [requi|re elect|
|00000eb0| 72 69 63 20 28 28 62 79 | 74 65 2d 63 6f 64 65 20 |ric ((by|te-code |
|00000ec0| 22 c0 c1 20 21 ac 88 c2 | c3 20 21 88 c4 20 88 c5 |".. !...|. !.. ..|
|00000ed0| 1e 06 c7 8e c8 c9 21 71 | 16 06 ca 0e 0b cc 3d ab |......!q|......=.|
|00000ee0| 83 cd aa 8d ce 0e 0b 89 | cf 3d ab 83 d0 aa 81 d1 |........|.=......|
|00000ef0| 51 d2 d3 d4 20 d5 d6 4f | 21 89 1e 17 d8 56 ab 86 |Q... ..O|!....V..|
|00000f00| 0e 17 d8 5a aa 82 0e 17 | d9 d4 20 da db 4f 0e 17 |...Z....|.. ..O..|
|00000f10| d8 57 ab 83 dc aa 81 dd | 52 29 de b0 05 16 1f e0 |.W......|R)......|
|00000f20| 0e 06 21 88 0e 21 41 40 | 63 88 e2 e3 0e 06 21 21 |..!..!A@|c.....!!|
|00000f30| 88 e4 c5 21 88 e5 0e 26 | 21 2a 87 22 20 5b 77 69 |...!...&|!*." [wi|
|00000f40| 6e 64 6f 77 2d 6d 69 6e | 69 62 75 66 66 65 72 2d |ndow-min|ibuffer-|
|00000f50| 70 20 73 65 6c 65 63 74 | 65 64 2d 77 69 6e 64 6f |p select|ed-windo|
|00000f60| 77 20 73 65 6c 65 63 74 | 2d 77 69 6e 64 6f 77 20 |w select|-window |
|00000f70| 66 72 61 6d 65 2d 6c 6f | 77 65 73 74 2d 77 69 6e |frame-lo|west-win|
|00000f80| 64 6f 77 20 73 70 6c 69 | 74 2d 77 69 6e 64 6f 77 |dow spli|t-window|
|00000f90| 20 6e 69 6c 20 61 70 70 | 74 2d 64 69 73 70 2d 62 | nil app|t-disp-b|
|00000fa0| 75 66 20 28 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |uf ((byt|e-code "|
|00000fb0| 08 ab 84 c1 08 21 88 c1 | 87 22 20 5b 61 70 70 74 |.....!..|." [appt|
|00000fc0| 2d 64 69 73 70 2d 62 75 | 66 20 6b 69 6c 6c 2d 62 |-disp-bu|f kill-b|
|00000fd0| 75 66 66 65 72 5d 20 32 | 29 29 20 67 65 74 2d 62 |uffer] 2|)) get-b|
|00000fe0| 75 66 66 65 72 2d 63 72 | 65 61 74 65 20 22 2a 61 |uffer-cr|eate "*a|
|00000ff0| 70 70 74 2d 62 75 66 2a | 22 20 22 2d 2d 2d 2d 2d |ppt-buf*|" "-----|
|00001000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 20 |--------|------- |
|00001010| 41 70 70 6f 69 6e 74 6d | 65 6e 74 20 22 20 6d 69 |Appointm|ent " mi|
|00001020| 6e 2d 74 6f 2d 61 70 70 | 20 30 20 22 4e 4f 57 22 |n-to-app| 0 "NOW"|
|00001030| 20 22 69 6e 20 22 20 31 | 20 22 20 6d 69 6e 75 74 | "in " 1| " minut|
|00001040| 65 22 20 22 20 6d 69 6e | 75 74 65 73 22 20 22 2e |e" " min|utes" ".|
|00001050| 20 28 22 20 73 74 72 69 | 6e 67 2d 74 6f 2d 69 6e | (" stri|ng-to-in|
|00001060| 74 20 63 75 72 72 65 6e | 74 2d 74 69 6d 65 2d 73 |t curren|t-time-s|
|00001070| 74 72 69 6e 67 20 31 31 | 20 31 33 20 68 20 31 32 |tring 11| 13 h 12|
|00001080| 20 22 3a 22 20 31 34 20 | 31 36 20 22 61 6d 22 20 | ":" 14 |16 "am" |
|00001090| 22 70 6d 22 20 22 29 20 | 25 2d 22 20 6d 6f 64 65 |"pm" ") |%-" mode|
|000010a0| 6c 69 6e 65 2d 66 6f 72 | 6d 61 74 20 70 6f 70 2d |line-for|mat pop-|
|000010b0| 74 6f 2d 62 75 66 66 65 | 72 20 61 70 70 74 20 73 |to-buffe|r appt s|
|000010c0| 68 72 69 6e 6b 2d 77 69 | 6e 64 6f 77 2d 69 66 2d |hrink-wi|ndow-if-|
|000010d0| 6c 61 72 67 65 72 2d 74 | 68 61 6e 2d 62 75 66 66 |larger-t|han-buff|
|000010e0| 65 72 20 67 65 74 2d 62 | 75 66 66 65 72 2d 77 69 |er get-b|uffer-wi|
|000010f0| 6e 64 6f 77 20 73 65 74 | 2d 62 75 66 66 65 72 2d |ndow set|-buffer-|
|00001100| 6d 6f 64 69 66 69 65 64 | 2d 70 20 73 69 74 2d 66 |modified|-p sit-f|
|00001110| 6f 72 20 61 70 70 74 2d | 64 69 73 70 6c 61 79 2d |or appt-|display-|
|00001120| 64 75 72 61 74 69 6f 6e | 5d 20 39 29 29 5d 20 32 |duration|] 9))] 2|
|00001130| 20 22 5c 0a 53 65 74 20 | 61 70 70 74 2d 61 6e 6e | "\.Set |appt-ann|
|00001140| 6f 75 6e 63 65 2d 6d 65 | 74 68 6f 64 20 74 6f 20 |ounce-me|thod to |
|00001150| 74 68 65 20 6e 61 6d 65 | 20 6f 66 20 74 68 69 73 |the name| of this|
|00001160| 20 66 75 6e 63 74 69 6f | 6e 20 74 6f 20 63 61 75 | functio|n to cau|
|00001170| 73 65 20 61 70 70 6f 69 | 6e 74 6d 65 6e 74 20 0a |se appoi|ntment .|
|00001180| 6e 6f 74 69 66 69 63 61 | 74 69 6f 6e 73 20 74 6f |notifica|tions to|
|00001190| 20 62 65 20 67 69 76 65 | 6e 20 76 69 61 20 6d 65 | be give|n via me|
|000011a0| 73 73 61 67 65 73 20 69 | 6e 20 61 20 70 6f 70 2d |ssages i|n a pop-|
|000011b0| 75 70 20 77 69 6e 64 6f | 77 2e 20 20 54 68 65 20 |up windo|w. The |
|000011c0| 76 61 72 69 61 62 6c 65 | 0a 61 70 70 74 2d 64 69 |variable|.appt-di|
|000011d0| 73 70 6c 61 79 2d 64 75 | 72 61 74 69 6f 6e 20 63 |splay-du|ration c|
|000011e0| 6f 6e 74 72 6f 6c 73 20 | 68 6f 77 20 6c 6f 6e 67 |ontrols |how long|
|000011f0| 20 74 68 69 73 20 77 69 | 6e 64 6f 77 20 73 68 6f | this wi|ndow sho|
|00001200| 75 6c 64 20 62 65 20 6c | 65 66 74 20 75 70 2e 22 |uld be l|eft up."|
|00001210| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|00001220| c1 21 ac 82 c2 11 c3 c4 | c1 5c 22 87 22 20 5b 62 |.!......|.\"." [b|
|00001230| 6f 75 6e 64 70 20 61 70 | 70 74 2d 66 72 61 6d 65 |oundp ap|pt-frame|
|00001240| 2d 64 65 66 61 75 6c 74 | 73 20 6e 69 6c 20 64 65 |-default|s nil de|
|00001250| 66 76 61 72 61 6c 69 61 | 73 20 61 70 70 74 2d 73 |fvaralia|s appt-s|
|00001260| 63 72 65 65 6e 2d 64 65 | 66 61 75 6c 74 73 5d 20 |creen-de|faults] |
|00001270| 33 29 0a 28 66 73 65 74 | 20 27 61 70 70 74 2d 66 |3).(fset| 'appt-f|
|00001280| 72 61 6d 65 2d 61 6e 6e | 6f 75 6e 63 65 20 23 5b |rame-ann|ounce #[|
|00001290| 28 6d 69 6e 2d 74 6f 2d | 61 70 70 20 61 70 70 74 |(min-to-|app appt|
|000012a0| 29 20 22 8a c0 c1 21 71 | 88 c2 20 88 c3 0c c5 3d |) "...!q|.. ....=|
|000012b0| ab 83 c6 aa 8c c7 0c 89 | c8 3d ab 83 c9 aa 81 ca |........|.=......|
|000012c0| 51 cb cc cd 20 ce cf 4f | 21 89 1e 10 d1 56 ab 86 |Q... ..O|!....V..|
|000012d0| 0e 10 d1 5a aa 82 0e 10 | d2 cd 20 d3 d4 4f 0e 10 |...Z....|.. ..O..|
|000012e0| d1 57 ab 83 d5 aa 81 d6 | 52 29 d7 b0 05 16 18 0e |.W......|R)......|
|000012f0| 19 41 40 63 88 da db dc | 65 64 5c 22 dd 5c 5c 5e |.A@c....|ed\".\\^|
|00001300| 5d 1e 1e 0e 1f ab a6 e0 | 0e 1f 21 ab a0 e1 20 1e |].......|..!... .|
|00001310| 5c 22 e3 0e 1f 21 88 e4 | 0e 1f 21 88 e5 0e 1f 0e |\"...!..|..!.....|
|00001320| 1e 5c 22 88 e6 c5 21 88 | e3 0e 5c 22 21 29 aa 8a |.\"...!.|..\"!)..|
|00001330| e7 20 16 1f e5 0e 1f 0e | 1e 5c 22 2a 87 22 20 5b |. ......|.\"*." [|
|00001340| 67 65 74 2d 62 75 66 66 | 65 72 2d 63 72 65 61 74 |get-buff|er-creat|
|00001350| 65 20 22 2a 61 70 70 74 | 2d 62 75 66 2a 22 20 65 |e "*appt|-buf*" e|
|00001360| 72 61 73 65 2d 62 75 66 | 66 65 72 20 22 2d 2d 2d |rase-buf|fer "---|
|00001370| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001380| 2d 20 41 70 70 6f 69 6e | 74 6d 65 6e 74 20 22 20 |- Appoin|tment " |
|00001390| 6d 69 6e 2d 74 6f 2d 61 | 70 70 20 30 20 22 4e 4f |min-to-a|pp 0 "NO|
|000013a0| 57 22 20 22 69 6e 20 22 | 20 31 20 22 20 6d 69 6e |W" "in "| 1 " min|
|000013b0| 75 74 65 22 20 22 20 6d | 69 6e 75 74 65 73 22 20 |ute" " m|inutes" |
|000013c0| 22 2e 20 28 22 20 73 74 | 72 69 6e 67 2d 74 6f 2d |". (" st|ring-to-|
|000013d0| 69 6e 74 20 63 75 72 72 | 65 6e 74 2d 74 69 6d 65 |int curr|ent-time|
|000013e0| 2d 73 74 72 69 6e 67 20 | 31 31 20 31 33 20 68 20 |-string |11 13 h |
|000013f0| 31 32 20 22 3a 22 20 31 | 34 20 31 36 20 22 61 6d |12 ":" 1|4 16 "am|
|00001400| 22 20 22 70 6d 22 20 22 | 29 20 25 2d 22 20 6d 6f |" "pm" "|) %-" mo|
|00001410| 64 65 6c 69 6e 65 2d 66 | 6f 72 6d 61 74 20 61 70 |deline-f|ormat ap|
|00001420| 70 74 20 31 30 20 32 30 | 20 63 6f 75 6e 74 2d 6c |pt 10 20| count-l|
|00001430| 69 6e 65 73 20 32 20 68 | 65 69 67 68 74 20 61 70 |ines 2 h|eight ap|
|00001440| 70 74 2d 64 69 73 70 2d | 66 72 61 6d 65 20 66 72 |pt-disp-|frame fr|
|00001450| 61 6d 65 2d 6c 69 76 65 | 2d 70 20 73 65 6c 65 63 |ame-live|-p selec|
|00001460| 74 65 64 2d 66 72 61 6d | 65 20 73 20 73 65 6c 65 |ted-fram|e s sele|
|00001470| 63 74 2d 66 72 61 6d 65 | 20 6d 61 6b 65 2d 66 72 |ct-frame| make-fr|
|00001480| 61 6d 65 2d 76 69 73 69 | 62 6c 65 20 73 65 74 2d |ame-visi|ble set-|
|00001490| 66 72 61 6d 65 2d 68 65 | 69 67 68 74 20 73 69 74 |frame-he|ight sit|
|000014a0| 2d 66 6f 72 20 6d 61 6b | 65 2d 66 72 61 6d 65 5d |-for mak|e-frame]|
|000014b0| 20 39 20 22 5c 0a 53 65 | 74 20 61 70 70 74 2d 61 | 9 "\.Se|t appt-a|
|000014c0| 6e 6e 6f 75 6e 63 65 2d | 6d 65 74 68 6f 64 20 74 |nnounce-|method t|
|000014d0| 6f 20 74 68 65 20 6e 61 | 6d 65 20 6f 66 20 74 68 |o the na|me of th|
|000014e0| 69 73 20 66 75 6e 63 74 | 69 6f 6e 20 74 6f 20 63 |is funct|ion to c|
|000014f0| 61 75 73 65 20 61 70 70 | 6f 69 6e 74 6d 65 6e 74 |ause app|ointment|
|00001500| 20 0a 6e 6f 74 69 66 69 | 63 61 74 69 6f 6e 73 20 | .notifi|cations |
|00001510| 74 6f 20 62 65 20 67 69 | 76 65 6e 20 76 69 61 20 |to be gi|ven via |
|00001520| 6d 65 73 73 61 67 65 73 | 20 69 6e 20 61 20 70 6f |messages| in a po|
|00001530| 70 2d 75 70 20 66 72 61 | 6d 65 2e 22 5d 29 0a 28 |p-up fra|me."]).(|
|00001540| 64 65 66 61 6c 69 61 73 | 20 27 61 70 70 74 2d 73 |defalias| 'appt-s|
|00001550| 63 72 65 65 6e 2d 61 6e | 6e 6f 75 6e 63 65 20 27 |creen-an|nounce '|
|00001560| 61 70 70 74 2d 66 72 61 | 6d 65 2d 61 6e 6e 6f 75 |appt-fra|me-annou|
|00001570| 6e 63 65 29 0a 28 64 65 | 66 76 61 72 20 61 70 70 |nce).(de|fvar app|
|00001580| 74 2d 6d 6f 64 65 2d 6c | 69 6e 65 2d 73 74 72 69 |t-mode-l|ine-stri|
|00001590| 6e 67 20 22 22 20 22 5c | 0a 2a 54 68 65 20 73 74 |ng "" "\|.*The st|
|000015a0| 72 69 6e 67 20 64 69 73 | 70 6c 61 79 65 64 20 69 |ring dis|played i|
|000015b0| 6e 20 74 68 65 20 6d 6f | 64 65 20 6c 69 6e 65 20 |n the mo|de line |
|000015c0| 62 79 20 74 68 65 20 61 | 70 70 6f 69 6e 74 6d 65 |by the a|ppointme|
|000015d0| 6e 74 20 70 61 63 6b 61 | 67 65 2e 22 29 0a 28 66 |nt packa|ge.").(f|
|000015e0| 73 65 74 20 27 61 70 70 | 74 2d 64 69 73 70 6c 61 |set 'app|t-displa|
|000015f0| 79 2d 6d 6f 64 65 2d 6c | 69 6e 65 20 23 5b 28 6d |y-mode-l|ine #[(m|
|00001600| 69 6e 2d 74 6f 2d 61 70 | 70 29 20 22 08 ab 99 09 |in-to-ap|p) "....|
|00001610| ab 96 09 c2 3d ab 83 c3 | aa 8f c4 09 89 c5 3d ab |....=...|......=.|
|00001620| 83 c6 aa 81 c7 51 aa 81 | c8 16 09 08 ab a6 0e 5c |.....Q..|.......\|
|00001630| 6e ac 87 c8 c9 44 16 5c | 6e aa 9b 0e 5c 6e 3b ab |n....D.\|n...\n;.|
|00001640| 88 0e 5c 6e c9 44 16 5c | 6e aa 8e c9 0e 5c 6e 3e |..\n.D.\|n....\n>|
|00001650| ac 88 cb 0e 5c 6e c9 43 | 5c 22 16 5c 6e 8a cc 20 |....\n.C|\".\n.. |
|00001660| 71 88 29 cd ce 20 21 88 | cf c2 21 87 22 20 5b 61 |q.).. !.|..!." [a|
|00001670| 70 70 74 2d 64 69 73 70 | 6c 61 79 2d 6d 6f 64 65 |ppt-disp|lay-mode|
|00001680| 2d 6c 69 6e 65 20 6d 69 | 6e 2d 74 6f 2d 61 70 70 |-line mi|n-to-app|
|00001690| 20 30 20 22 41 70 70 27 | 74 20 4e 4f 57 20 22 20 | 0 "App'|t NOW " |
|000016a0| 22 41 70 70 27 74 20 69 | 6e 20 22 20 31 20 22 20 |"App't i|n " 1 " |
|000016b0| 6d 69 6e 75 74 65 20 20 | 22 20 22 20 6d 69 6e 75 |minute |" " minu|
|000016c0| 74 65 73 20 22 20 22 22 | 20 61 70 70 74 2d 6d 6f |tes " ""| appt-mo|
|000016d0| 64 65 2d 6c 69 6e 65 2d | 73 74 72 69 6e 67 20 67 |de-line-|string g|
|000016e0| 6c 6f 62 61 6c 2d 6d 6f | 64 65 2d 73 74 72 69 6e |lobal-mo|de-strin|
|000016f0| 67 20 61 70 70 65 6e 64 | 20 6f 74 68 65 72 2d 62 |g append| other-b|
|00001700| 75 66 66 65 72 20 73 65 | 74 2d 62 75 66 66 65 72 |uffer se|t-buffer|
|00001710| 2d 6d 6f 64 69 66 69 65 | 64 2d 70 20 62 75 66 66 |-modifie|d-p buff|
|00001720| 65 72 2d 6d 6f 64 69 66 | 69 65 64 2d 70 20 73 69 |er-modif|ied-p si|
|00001730| 74 2d 66 6f 72 5d 20 34 | 20 22 5c 0a 41 64 64 20 |t-for] 4| "\.Add |
|00001740| 61 6e 20 61 70 70 6f 69 | 6e 74 6d 65 6e 74 20 61 |an appoi|ntment a|
|00001750| 6e 6e 6f 74 61 74 69 6f | 6e 20 74 6f 20 74 68 65 |nnotatio|n to the|
|00001760| 20 6d 6f 64 65 20 6c 69 | 6e 65 2e 22 5d 29 0a 28 | mode li|ne."]).(|
|00001770| 66 73 65 74 20 27 61 70 | 70 74 2d 63 6f 6e 76 65 |fset 'ap|pt-conve|
|00001780| 72 74 2d 74 69 6d 65 20 | 23 5b 28 74 69 6d 65 32 |rt-time |#[(time2|
|00001790| 63 6f 6e 76 29 20 22 c0 | c1 5c 6e 5c 22 ab 82 c3 |conv) ".|.\n\"...|
|000017a0| 87 c0 c4 5c 6e 5c 22 ab | 82 c5 87 c3 89 1e 06 1e |...\n\".|........|
|000017b0| 07 c0 c8 5c 6e 5c 22 ac | 85 c9 ca 5c 6e 5c 22 88 |...\n\".|...\n\".|
|000017c0| cb 5c 6e cc 94 cc 95 4f | 21 16 07 cd 94 ab 8a cb |.\n....O|!.......|
|000017d0| 5c 6e cd 94 cd 95 4f 21 | 16 06 ce 94 ab b2 0e 07 |\n....O!|........|
|000017e0| c3 55 ac 86 0e 07 cf 56 | ab 85 c9 d0 5c 6e 5c 22 |.U.....V|....\n\"|
|000017f0| 88 c0 d1 5c 6e ce 94 d2 | 4f 5c 22 ab 8b 0e 07 cf |...\n...|O\".....|
|00001800| 55 ab 91 c3 16 07 aa 8c | 0e 07 cf 57 ab 86 0e 07 |U.......|...W....|
|00001810| cf 5c 5c 16 07 0e 06 d3 | 56 ab 85 c9 d4 5c 6e 5c |.\\.....|V....\n\|
|00001820| 22 88 0e 07 d5 5f 0e 06 | 5c 5c 2a 87 22 20 5b 73 |"...._..|\\*." [s|
|00001830| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 5e 5b 20 |tring-ma|tch "^[ |
|00001840| 09 5d 2a 6d 69 64 6e 69 | 5c 5c 28 67 68 74 5c 5c |.]*midni|\\(ght\\|
|00001850| 7c 74 65 5c 5c 29 5b 20 | 09 5d 2a 5c 5c 27 22 20 ||te\\)[ |.]*\\'" |
|00001860| 74 69 6d 65 32 63 6f 6e | 76 20 30 20 22 5e 5b 20 |time2con|v 0 "^[ |
|00001870| 09 5d 2a 6e 6f 6f 6e 5b | 20 09 5d 2a 5c 5c 27 22 |.]*noon[| .]*\\'"|
|00001880| 20 37 32 30 20 6d 69 6e | 20 68 72 20 22 5c 5c 60 | 720 min| hr "\\`|
|00001890| 5b 20 09 5d 2a 5c 5c 28 | 5b 30 2d 39 5d 5b 30 2d |[ .]*\\(|[0-9][0-|
|000018a0| 39 5d 3f 5c 5c 29 5b 20 | 09 5d 2a 5c 5c 28 3a 5b |9]?\\)[ |.]*\\(:[|
|000018b0| 20 09 5d 2a 5c 5c 28 5b | 30 2d 39 5d 5b 30 2d 39 | .]*\\([|0-9][0-9|
|000018c0| 5d 5c 5c 29 5c 5c 29 3f | 5b 20 09 5d 2a 5c 5c 28 |]\\)\\)?|[ .]*\\(|
|000018d0| 61 6d 5c 5c 7c 70 6d 5c | 5c 29 3f 22 20 65 72 72 |am\\|pm\|\)?" err|
|000018e0| 6f 72 20 22 75 6e 70 61 | 72 73 61 62 6c 65 20 74 |or "unpa|rsable t|
|000018f0| 69 6d 65 20 5c 22 25 73 | 5c 22 22 20 73 74 72 69 |ime \"%s|\"" stri|
|00001900| 6e 67 2d 74 6f 2d 69 6e | 74 20 31 20 33 20 34 20 |ng-to-in|t 1 3 4 |
|00001910| 31 32 20 22 6d 69 78 69 | 6e 67 20 31 32 68 72 20 |12 "mixi|ng 12hr |
|00001920| 61 6e 64 20 32 34 20 68 | 72 20 74 69 6d 65 21 20 |and 24 h|r time! |
|00001930| 20 25 73 22 20 22 61 6d | 22 20 6e 69 6c 20 35 39 | %s" "am|" nil 59|
|00001940| 20 22 6d 69 6e 75 74 65 | 73 20 6f 75 74 61 20 62 | "minute|s outa b|
|00001950| 6f 75 6e 64 73 20 2d 20 | 25 73 22 20 36 30 5d 20 |ounds - |%s" 60] |
|00001960| 35 20 22 5c 0a 20 43 6f | 6e 76 65 72 74 20 68 6f |5 "\. Co|nvert ho|
|00001970| 75 72 3a 6d 69 6e 5b 61 | 6d 2f 70 6d 5d 20 66 6f |ur:min[a|m/pm] fo|
|00001980| 72 6d 61 74 20 74 6f 20 | 6d 69 6e 75 74 65 73 20 |rmat to |minutes |
|00001990| 66 72 6f 6d 20 6d 69 64 | 6e 69 67 68 74 2e 22 5d |from mid|night."]|
|000019a0| 29 0a 28 66 73 65 74 20 | 27 61 70 70 74 2d 63 75 |).(fset |'appt-cu|
|000019b0| 72 72 65 6e 74 2d 74 69 | 6d 65 2d 69 6e 2d 73 65 |rrent-ti|me-in-se|
|000019c0| 63 6f 6e 64 73 20 23 5b | 6e 69 6c 20 22 c0 20 19 |conds #[|nil ". .|
|000019d0| c2 09 c3 c4 4f 21 1d c2 | 09 c6 c7 4f 21 1e 08 0d |....O!..|...O!...|
|000019e0| c9 5f 0e 08 5c 5c 2b 87 | 22 20 5b 63 75 72 72 65 |._..\\+.|" [curre|
|000019f0| 6e 74 2d 74 69 6d 65 2d | 73 74 72 69 6e 67 20 73 |nt-time-|string s|
|00001a00| 74 72 20 73 74 72 69 6e | 67 2d 74 6f 2d 69 6e 74 |tr strin|g-to-int|
|00001a10| 20 31 31 20 31 33 20 68 | 6f 75 72 20 31 34 20 31 | 11 13 h|our 14 1|
|00001a20| 36 20 6d 69 6e 20 36 30 | 5d 20 34 20 22 5c 0a 72 |6 min 60|] 4 "\.r|
|00001a30| 65 74 75 72 6e 73 20 74 | 68 65 20 63 75 72 72 65 |eturns t|he curre|
|00001a40| 6e 74 20 74 69 6d 65 20 | 69 6e 20 73 65 63 6f 6e |nt time |in secon|
|00001a50| 64 73 20 73 69 6e 63 65 | 20 6d 69 64 6e 69 67 68 |ds since| midnigh|
|00001a60| 74 2e 22 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |t."]).(b|yte-code|
|00001a70| 20 22 c0 c1 4d 88 c2 c3 | 4d 87 22 20 5b 61 70 70 | "..M...|M." [app|
|00001a80| 74 2d 73 6f 72 74 2d 6c | 69 73 74 20 23 5b 28 61 |t-sort-l|ist #[(a|
|00001a90| 70 70 74 2d 6c 69 73 74 | 29 20 22 c0 c1 5c 6e 21 |ppt-list|) "..\n!|
|00001aa0| c3 5c 22 87 22 20 5b 73 | 6f 72 74 20 63 6f 70 79 |.\"." [s|ort copy|
|00001ab0| 2d 73 65 71 75 65 6e 63 | 65 20 61 70 70 74 2d 6c |-sequenc|e appt-l|
|00001ac0| 69 73 74 20 23 5b 28 78 | 20 79 29 20 22 08 40 40 |ist #[(x| y) ".@@|
|00001ad0| 09 40 40 57 87 22 20 5b | 78 20 79 5d 20 32 5d 5d |.@@W." [|x y] 2]]|
|00001ae0| 20 33 5d 20 61 70 70 74 | 2d 64 69 61 72 79 2d 65 | 3] appt|-diary-e|
|00001af0| 6e 74 72 69 65 73 20 23 | 5b 6e 69 6c 20 22 c0 c1 |ntries #|[nil "..|
|00001b00| 89 1a 1b 1c c5 c6 21 88 | 0e 07 2b 87 22 20 5b 28 |......!.|..+." [(|
|00001b10| 61 70 70 74 2d 6d 61 6b | 65 2d 6c 69 73 74 29 20 |appt-mak|e-list) |
|00001b20| 6e 69 6c 20 64 69 61 72 | 79 2d 6c 69 73 74 2d 69 |nil diar|y-list-i|
|00001b30| 6e 63 6c 75 64 65 2d 62 | 6c 61 6e 6b 73 20 64 69 |nclude-b|lanks di|
|00001b40| 61 72 79 2d 64 69 73 70 | 6c 61 79 2d 68 6f 6f 6b |ary-disp|lay-hook|
|00001b50| 20 6c 69 73 74 2d 64 69 | 61 72 79 2d 65 6e 74 72 | list-di|ary-entr|
|00001b60| 69 65 73 2d 68 6f 6f 6b | 20 64 69 61 72 79 20 31 |ies-hook| diary 1|
|00001b70| 20 61 70 70 74 2d 74 69 | 6d 65 2d 6d 73 67 2d 6c | appt-ti|me-msg-l|
|00001b80| 69 73 74 5d 20 33 5d 5d | 20 32 29 0a 28 66 73 65 |ist] 3]]| 2).(fse|
|00001b90| 74 20 27 61 70 70 74 2d | 69 6e 69 74 69 61 6c 69 |t 'appt-|initiali|
|00001ba0| 7a 65 20 23 5b 6e 69 6c | 20 22 c0 20 88 c1 20 47 |ze #[nil| ". .. G|
|00001bb0| 89 1a c3 55 ab 85 c4 c5 | 21 aa 90 5c 6e c6 55 ab |...U....|!..\n.U.|
|00001bc0| 85 c4 c7 21 aa 86 c4 c8 | c9 5c 6e 5c 22 21 29 87 |...!....|.\n\"!).|
|00001bd0| 22 20 5b 69 6e 73 74 61 | 6c 6c 2d 64 69 73 70 6c |" [insta|ll-displ|
|00001be0| 61 79 2d 74 69 6d 65 2d | 68 6f 6f 6b 20 61 70 70 |ay-time-|hook app|
|00001bf0| 74 2d 64 69 61 72 79 2d | 65 6e 74 72 69 65 73 20 |t-diary-|entries |
|00001c00| 6e 20 30 20 6d 65 73 73 | 61 67 65 20 22 6e 6f 20 |n 0 mess|age "no |
|00001c10| 61 70 70 6f 69 6e 74 6d | 65 6e 74 73 20 74 6f 64 |appointm|ents tod|
|00001c20| 61 79 2e 22 20 31 20 22 | 31 20 61 70 70 6f 69 6e |ay." 1 "|1 appoin|
|00001c30| 74 6d 65 6e 74 20 74 6f | 64 61 79 2e 22 20 66 6f |tment to|day." fo|
|00001c40| 72 6d 61 74 20 22 25 64 | 20 61 70 70 6f 69 6e 74 |rmat "%d| appoint|
|00001c50| 6d 65 6e 74 73 20 74 6f | 64 61 79 2e 22 5d 20 35 |ments to|day."] 5|
|00001c60| 20 22 5c 0a 20 52 65 61 | 64 20 79 6f 75 72 20 60 | "\. Rea|d your `|
|00001c70| 64 69 61 72 79 2d 66 69 | 6c 65 27 20 61 6e 64 20 |diary-fi|le' and |
|00001c80| 72 65 6d 65 6d 62 65 72 | 20 74 6f 64 61 79 27 73 |remember| today's|
|00001c90| 20 61 70 70 6f 69 6e 74 | 6d 65 6e 74 73 2e 20 20 | appoint|ments. |
|00001ca0| 43 61 6c 6c 20 74 68 69 | 73 20 66 72 6f 6d 20 0a |Call thi|s from .|
|00001cb0| 20 79 6f 75 72 20 2e 65 | 6d 61 63 73 20 66 69 6c | your .e|macs fil|
|00001cc0| 65 2c 20 6f 72 20 61 6e | 79 20 74 69 6d 65 20 79 |e, or an|y time y|
|00001cd0| 6f 75 20 77 61 6e 74 20 | 79 6f 75 72 20 2e 64 69 |ou want |your .di|
|00001ce0| 61 72 79 20 66 69 6c 65 | 20 72 65 2d 72 65 61 64 |ary file| re-read|
|00001cf0| 20 28 74 68 69 73 20 68 | 61 70 70 65 6e 73 20 0a | (this h|appens .|
|00001d00| 20 61 75 74 6f 6d 61 74 | 69 63 61 6c 6c 79 20 61 | automat|ically a|
|00001d10| 74 20 6d 69 64 6e 69 67 | 68 74 20 74 6f 20 6d 6f |t midnig|ht to mo|
|00001d20| 76 65 20 74 6f 20 6e 6f | 74 69 63 65 20 74 68 65 |ve to no|tice the|
|00001d30| 20 6e 65 78 74 20 64 61 | 79 27 73 20 61 70 70 6f | next da|y's appo|
|00001d40| 69 6e 74 6d 65 6e 74 73 | 29 2e 0a 20 0a 20 54 68 |intments|).. . Th|
|00001d50| 65 20 74 69 6d 65 20 6d | 75 73 74 20 62 65 20 61 |e time m|ust be a|
|00001d60| 74 20 74 68 65 20 62 65 | 67 69 6e 6e 69 6e 67 20 |t the be|ginning |
|00001d70| 6f 66 20 61 20 6c 69 6e | 65 20 66 6f 72 20 69 74 |of a lin|e for it|
|00001d80| 20 74 6f 20 62 65 20 70 | 75 74 20 69 6e 20 74 68 | to be p|ut in th|
|00001d90| 65 20 0a 20 61 70 70 6f | 69 6e 74 6d 65 6e 74 73 |e . appo|intments|
|00001da0| 20 6c 69 73 74 2e 0a 20 | 20 20 20 20 20 20 20 20 | list.. | |
|00001db0| 20 20 20 20 20 20 30 32 | 2f 32 33 2f 38 39 0a 20 | 02|/23/89. |
|00001dc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001dd0| 20 31 32 3a 30 30 70 6d | 20 20 20 20 6c 75 6e 63 | 12:00pm| lunc|
|00001de0| 68 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |h. | |
|00001df0| 20 20 57 65 64 6e 65 73 | 64 61 79 0a 20 20 20 20 | Wednes|day. |
|00001e00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 31 30 | | 10|
|00001e10| 3a 30 30 61 6d 20 20 20 | 20 67 72 6f 75 70 20 6d |:00am | group m|
|00001e20| 65 65 74 69 6e 67 22 5d | 29 0a 28 66 73 65 74 20 |eeting"]|).(fset |
|00001e30| 27 61 70 70 74 2d 6d 61 | 6b 65 2d 6c 69 73 74 20 |'appt-ma|ke-list |
|00001e40| 23 5b 6e 69 6c 20 22 c0 | 11 5c 6e 83 8d 00 5c 6e |#[nil ".|.\n...\n|
|00001e50| c0 1b 89 1c ab f9 c5 c6 | 20 0c 40 40 5c 22 ab f0 |........| .@@\"..|
|00001e60| 0c 40 41 40 1e 07 c8 c9 | 0e 07 5c 22 ab b5 ca 95 |.@A@....|..\"....|
|00001e70| 1e 0b 0e 07 cc 94 cc 95 | 4f 1e 0d 0e 07 cc 95 0e |........|O.......|
|00001e80| 0b 4f 1e 0e cf 0e 0d 21 | 43 1e 10 0e 07 0e 0b c0 |.O.....!|C.......|
|00001e90| 4f 16 07 0e 10 0e 0d d1 | 0e 0e 51 43 42 0b 42 13 |O.......|..QCB.B.|
|00001ea0| 2c aa 44 0e 12 ab a3 c8 | d3 0e 07 5c 22 ab 9c d4 |,.D.....|...\"...|
|00001eb0| 20 88 d5 d6 0e 07 cc 94 | cc 95 4f 5c 22 88 d7 d8 | .......|..O\"...|
|00001ec0| 21 88 0e 07 ca 95 c0 4f | 16 07 aa 5d 29 0c 41 89 |!......O|...]).A.|
|00001ed0| 14 ac 07 d9 0b 9f 09 5c | 22 11 2a da 09 21 11 db |.......\|".*..!..|
|00001ee0| 20 09 40 40 40 1e 1c 1e | 1d 09 ab 95 0e 1c 0e 1d | .@@@...|........|
|00001ef0| 57 ab 8e 09 41 89 11 ab | 70 09 40 40 40 16 1c aa |W...A...|p.@@@...|
|00001f00| 68 2a 09 87 22 20 5b 6e | 69 6c 20 61 70 70 74 2d |h*.." [n|il appt-|
|00001f10| 74 69 6d 65 2d 6d 73 67 | 2d 6c 69 73 74 20 64 69 |time-msg|-list di|
|00001f20| 61 72 79 2d 65 6e 74 72 | 69 65 73 2d 6c 69 73 74 |ary-entr|ies-list|
|00001f30| 20 6e 65 77 2d 61 70 70 | 74 73 20 65 6e 74 72 79 | new-app|ts entry|
|00001f40| 2d 6c 69 73 74 20 63 61 | 6c 65 6e 64 61 72 2d 64 |-list ca|lendar-d|
|00001f50| 61 74 65 2d 65 71 75 61 | 6c 20 63 61 6c 65 6e 64 |ate-equa|l calend|
|00001f60| 61 72 2d 63 75 72 72 65 | 6e 74 2d 64 61 74 65 20 |ar-curre|nt-date |
|00001f70| 74 69 6d 65 2d 73 74 72 | 69 6e 67 20 73 74 72 69 |time-str|ing stri|
|00001f80| 6e 67 2d 6d 61 74 63 68 | 20 22 5c 5c 60 5b 20 09 |ng-match| "\\`[ .|
|00001f90| 5c 6e 5d 2a 5c 5c 28 5b | 30 2d 39 5d 3f 5b 30 2d |\n]*\\([|0-9]?[0-|
|00001fa0| 39 5d 5c 5c 28 3a 5b 30 | 2d 39 5d 5b 30 2d 39 5d |9]\\(:[0|-9][0-9]|
|00001fb0| 5c 5c 29 3f 5b 20 09 5d | 2a 5c 5c 28 61 6d 5c 5c |\\)?[ .]|*\\(am\\|
|00001fc0| 7c 70 6d 5c 5c 29 3f 5c | 5c 7c 6e 6f 6f 6e 5c 5c ||pm\\)?\|\|noon\\|
|00001fd0| 7c 6d 69 64 6e 69 67 68 | 74 5c 5c 7c 6d 69 64 6e ||midnigh|t\\|midn|
|00001fe0| 69 74 65 5c 5c 29 2e 2a | 24 22 20 30 20 65 6f 6c |ite\\).*|$" 0 eol|
|00001ff0| 20 31 20 61 70 70 74 2d | 74 69 6d 65 2d 73 74 72 | 1 appt-|time-str|
|00002000| 69 6e 67 20 61 70 70 74 | 2d 6d 73 67 2d 73 74 72 |ing appt|-msg-str|
|00002010| 69 6e 67 20 61 70 70 74 | 2d 63 6f 6e 76 65 72 74 |ing appt|-convert|
|00002020| 2d 74 69 6d 65 20 61 70 | 70 74 2d 74 69 6d 65 20 |-time ap|pt-time |
|00002030| 22 3a 22 20 61 70 70 74 | 2d 63 68 65 63 6b 2d 74 |":" appt|-check-t|
|00002040| 69 6d 65 2d 73 79 6e 74 | 61 78 20 22 5c 6e 2a 5c |ime-synt|ax "\n*\|
|00002050| 5c 28 5b 5e 5c 6e 5d 2b | 5c 5c 29 24 22 20 62 65 |\([^\n]+|\\)$" be|
|00002060| 65 70 20 6d 65 73 73 61 | 67 65 20 22 55 6e 70 61 |ep messa|ge "Unpa|
|00002070| 72 73 61 62 6c 65 20 74 | 69 6d 65 3a 20 25 73 22 |rsable t|ime: %s"|
|00002080| 20 73 69 74 2d 66 6f 72 | 20 33 20 61 70 70 65 6e | sit-for| 3 appen|
|00002090| 64 20 61 70 70 74 2d 73 | 6f 72 74 2d 6c 69 73 74 |d appt-s|ort-list|
|000020a0| 20 61 70 70 74 2d 63 75 | 72 72 65 6e 74 2d 74 69 | appt-cu|rrent-ti|
|000020b0| 6d 65 2d 69 6e 2d 73 65 | 63 6f 6e 64 73 20 61 70 |me-in-se|conds ap|
|000020c0| 70 74 2d 63 6f 6d 70 2d | 74 69 6d 65 20 63 75 72 |pt-comp-|time cur|
|000020d0| 2d 63 6f 6d 70 2d 74 69 | 6d 65 5d 20 36 20 22 5c |-comp-ti|me] 6 "\|
|000020e0| 0a 44 6f 6e 27 74 20 63 | 61 6c 6c 20 74 68 69 73 |.Don't c|all this|
|000020f0| 20 64 69 72 65 63 74 6c | 79 3b 20 63 61 6c 6c 20 | directl|y; call |
|00002100| 61 70 70 74 2d 69 6e 69 | 74 69 61 6c 69 7a 65 20 |appt-ini|tialize |
|00002110| 6f 72 20 61 70 70 74 2d | 64 69 61 72 79 2d 65 6e |or appt-|diary-en|
|00002120| 74 72 69 65 73 2e 22 5d | 29 0a 28 66 73 65 74 20 |tries."]|).(fset |
|00002130| 27 61 70 70 74 2d 62 65 | 65 70 20 23 5b 28 26 6f |'appt-be|ep #[(&o|
|00002140| 70 74 69 6f 6e 61 6c 20 | 66 69 6e 61 6c 2d 70 29 |ptional |final-p)|
|00002150| 20 22 08 ac 82 c1 87 08 | a7 ab 92 08 89 1a c3 56 | "......|.......V|
|00002160| ad 89 c4 20 88 5c 6e 53 | 89 12 aa 73 29 87 08 3a |... .\nS|...s)..:|
|00002170| ab b4 08 40 08 41 1d 1a | 0d 3a ab 83 0d 40 15 5c |...@.A..|.:...@.\|
|00002180| 6e c3 56 ad a0 c6 c7 21 | ab 8e c4 c1 0e 08 ab 83 |n.V....!|........|
|00002190| c9 aa 81 ca 5c 22 88 aa | 83 c4 20 88 cb 0d 21 88 |....\"..|.. ...!.|
|000021a0| 5c 6e 53 89 12 aa 5c 5c | 2a 87 c4 20 87 22 20 5b |\nS...\\|*.. ." [|
|000021b0| 61 70 70 74 2d 61 75 64 | 69 62 6c 65 20 6e 69 6c |appt-aud|ible nil|
|000021c0| 20 69 20 30 20 62 65 65 | 70 20 6a 20 66 62 6f 75 | i 0 bee|p j fbou|
|000021d0| 6e 64 70 20 70 6c 61 79 | 2d 73 6f 75 6e 64 20 66 |ndp play|-sound f|
|000021e0| 69 6e 61 6c 2d 70 20 61 | 70 70 74 2d 66 69 6e 61 |inal-p a|ppt-fina|
|000021f0| 6c 20 61 70 70 74 20 73 | 6c 65 65 70 2d 66 6f 72 |l appt s|leep-for|
|00002200| 5d 20 34 5d 29 0a 28 66 | 73 65 74 20 27 61 70 70 |] 4]).(f|set 'app|
|00002210| 74 2d 63 68 65 63 6b 20 | 23 5b 6e 69 6c 20 22 08 |t-check |#[nil ".|
|00002220| 85 e5 00 c1 1a c3 20 89 | 1c 0d 55 1e 06 0d 0c 56 |...... .|..U....V|
|00002230| 1e 07 0c 15 0e 07 ab 83 | c8 20 88 0e 09 83 e1 00 |........|. ......|
|00002240| 0e 09 40 40 40 89 1e 5c | 6e 0c 5a 12 0e 09 ab 97 |..@@@..\|n.Z.....|
|00002250| 0e 5c 6e 0c 57 ab 91 0e | 09 41 89 16 09 ab 6e 0e |.\n.W...|.A....n.|
|00002260| 09 40 40 40 16 5c 6e aa | 65 0e 5c 6e cb cc 0e 0d |.@@@.\n.|e.\n....|
|00002270| 5c 22 57 ab 95 0c cb cc | 0e 0d 5c 22 5c 5c 0e 0e |\"W.....|..\"\\..|
|00002280| 56 ab 89 0e 0e 54 0c 5a | 12 cf 16 5c 6e 5c 6e cb |V....T.Z|...\n\n.|
|00002290| cc 0e 0d 5c 22 56 ab 85 | d0 cf 21 aa ea 0e 06 ac |...\"V..|..!.....|
|000022a0| 8b 5c 6e d1 55 ac 89 5c | 6e 0e 0d 3e ac 83 cf aa |.\n.U..\|n..>....|
|000022b0| d8 5c 6e d1 55 ab a3 d2 | d3 0e 09 40 41 40 5c 22 |.\n.U...|...@A@\"|
|000022c0| ab 99 0e 09 40 41 40 d1 | 95 53 cf 4f 1e 14 cf d5 |....@A@.|.S.O....|
|000022d0| d6 8f 1e 17 d8 0e 17 21 | 2a aa b0 5c 6e cb cc 0e |.......!|*..\n...|
|000022e0| 0d 5c 22 58 ab a4 5c 6e | d1 59 ab 9f d9 5c 6e d1 |.\"X..\n|.Y...\n.|
|000022f0| 55 21 88 0e 1a 5c 6e 0e | 09 40 5c 22 88 d0 5c 6e |U!...\n.|.@\"..\n|
|00002300| 21 88 5c 6e d1 55 ad 8b | 0e 09 41 89 16 09 aa 83 |!.\n.U..|..A.....|
|00002310| d0 cf 21 29 aa 83 d0 cf | 21 2c 87 22 20 5b 61 70 |..!)....|!,." [ap|
|00002320| 70 74 2d 69 73 73 75 65 | 2d 6d 65 73 73 61 67 65 |pt-issue|-message|
|00002330| 20 2d 31 20 6d 69 6e 2d | 74 6f 2d 61 70 70 20 61 | -1 min-|to-app a|
|00002340| 70 70 74 2d 63 75 72 72 | 65 6e 74 2d 74 69 6d 65 |ppt-curr|ent-time|
|00002350| 2d 69 6e 2d 73 65 63 6f | 6e 64 73 20 63 75 72 2d |-in-seco|nds cur-|
|00002360| 63 6f 6d 70 2d 74 69 6d | 65 20 61 70 70 74 2d 63 |comp-tim|e appt-c|
|00002370| 68 65 63 6b 2d 74 69 63 | 6b 20 73 68 75 74 2d 75 |heck-tic|k shut-u|
|00002380| 70 2d 74 68 69 73 2d 74 | 69 6d 65 20 74 75 72 6e |p-this-t|ime turn|
|00002390| 6f 76 65 72 2d 70 20 61 | 70 70 74 2d 64 69 61 72 |over-p a|ppt-diar|
|000023a0| 79 2d 65 6e 74 72 69 65 | 73 20 61 70 70 74 2d 74 |y-entrie|s appt-t|
|000023b0| 69 6d 65 2d 6d 73 67 2d | 6c 69 73 74 20 61 70 70 |ime-msg-|list app|
|000023c0| 74 2d 63 6f 6d 70 2d 74 | 69 6d 65 20 61 70 70 6c |t-comp-t|ime appl|
|000023d0| 79 20 6d 61 78 20 61 70 | 70 74 2d 6d 73 67 2d 63 |y max ap|pt-msg-c|
|000023e0| 6f 75 6e 74 64 6f 77 6e | 2d 6c 69 73 74 20 6d 61 |ountdown|-list ma|
|000023f0| 78 2d 74 69 6d 65 20 6e | 69 6c 20 61 70 70 74 2d |x-time n|il appt-|
|00002400| 64 69 73 70 6c 61 79 2d | 6d 6f 64 65 2d 6c 69 6e |display-|mode-lin|
|00002410| 65 20 30 20 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |e 0 stri|ng-match|
|00002420| 20 22 25 25 28 22 20 6c | 69 73 74 2d 73 74 72 69 | "%%(" l|ist-stri|
|00002430| 6e 67 20 28 72 65 61 64 | 20 6c 69 73 74 2d 73 74 |ng (read| list-st|
|00002440| 72 69 6e 67 29 20 28 28 | 65 72 72 6f 72 20 28 62 |ring) ((|error (b|
|00002450| 79 74 65 2d 63 6f 64 65 | 20 22 c0 20 88 c1 c2 0b |yte-code| ". ....|
|00002460| 40 41 40 5c 22 88 c4 c5 | 21 88 c6 87 22 20 5b 64 |@A@\"...|!..." [d|
|00002470| 69 6e 67 20 6d 65 73 73 | 61 67 65 20 22 41 70 70 |ing mess|age "App|
|00002480| 74 3a 20 65 72 72 6f 72 | 20 72 65 61 64 69 6e 67 |t: error| reading|
|00002490| 20 66 72 6f 6d 20 5c 22 | 25 73 5c 22 22 20 61 70 | from \"|%s\"" ap|
|000024a0| 70 74 2d 74 69 6d 65 2d | 6d 73 67 2d 6c 69 73 74 |pt-time-|msg-list|
|000024b0| 20 73 69 74 2d 66 6f 72 | 20 32 20 6e 69 6c 5d 20 | sit-for| 2 nil] |
|000024c0| 33 29 29 29 20 66 6f 72 | 6d 20 65 76 61 6c 20 61 |3))) for|m eval a|
|000024d0| 70 70 74 2d 62 65 65 70 | 20 61 70 70 74 2d 61 6e |ppt-beep| appt-an|
|000024e0| 6e 6f 75 6e 63 65 2d 6d | 65 74 68 6f 64 5d 20 35 |nounce-m|ethod] 5|
|000024f0| 20 22 5c 0a 43 68 65 63 | 6b 20 66 6f 72 20 61 6e | "\.Chec|k for an|
|00002500| 20 61 70 70 6f 69 6e 74 | 6d 65 6e 74 20 61 6e 64 | appoint|ment and|
|00002510| 20 75 70 64 61 74 65 20 | 74 68 65 20 6d 6f 64 65 | update |the mode|
|00002520| 20 6c 69 6e 65 20 61 6e | 64 20 6d 69 6e 69 62 75 | line an|d minibu|
|00002530| 66 66 65 72 20 69 66 0a | 20 64 65 73 69 72 65 64 |ffer if.| desired|
|00002540| 2e 20 4e 6f 74 65 3a 20 | 74 68 65 20 74 69 6d 65 |. Note: |the time|
|00002550| 20 6d 75 73 74 20 62 65 | 20 74 68 65 20 66 69 72 | must be| the fir|
|00002560| 73 74 20 74 68 69 6e 67 | 20 69 6e 20 74 68 65 20 |st thing| in the |
|00002570| 6c 69 6e 65 20 69 6e 20 | 74 68 65 20 64 69 61 72 |line in |the diar|
|00002580| 79 0a 20 66 6f 72 20 61 | 20 77 61 72 6e 69 6e 67 |y. for a| warning|
|00002590| 20 74 6f 20 62 65 20 69 | 73 73 75 65 64 2e 0a 20 | to be i|ssued.. |
|000025a0| 20 54 68 65 20 66 6f 72 | 6d 61 74 20 6f 66 20 74 | The for|mat of t|
|000025b0| 68 65 20 74 69 6d 65 20 | 63 61 6e 20 62 65 20 65 |he time |can be e|
|000025c0| 69 74 68 65 72 20 32 34 | 20 68 6f 75 72 20 6f 72 |ither 24| hour or|
|000025d0| 20 61 6d 2f 70 6d 2e 20 | 20 45 78 61 6d 70 6c 65 | am/pm. | Example|
|000025e0| 3a 20 0a 20 0a 20 20 20 | 20 20 20 20 20 20 20 20 |: . . | |
|000025f0| 20 20 20 20 30 32 2f 32 | 33 2f 38 39 0a 20 20 20 | 02/2|3/89. |
|00002600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 31 38 | | 18|
|00002610| 3a 30 30 20 44 69 6e 6e | 65 72 0a 20 20 20 20 20 |:00 Dinn|er. |
|00002620| 20 20 20 20 20 20 20 20 | 20 54 68 75 72 73 64 61 | | Thursda|
|00002630| 79 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |y. | |
|00002640| 20 20 31 31 3a 34 35 61 | 6d 20 4c 75 6e 63 68 20 | 11:45a|m Lunch |
|00002650| 6d 65 65 74 69 6e 67 2e | 0a 20 20 0a 20 54 68 65 |meeting.|. . The|
|00002660| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 76 61 72 69 61 | followi|ng varia|
|00002670| 62 6c 65 73 20 63 6f 6e | 74 72 6f 6c 20 74 68 65 |bles con|trol the|
|00002680| 20 61 63 74 69 6f 6e 20 | 6f 66 20 74 68 65 20 6e | action |of the n|
|00002690| 6f 74 69 66 69 63 61 74 | 69 6f 6e 3a 0a 20 0a 20 |otificat|ion:. . |
|000026a0| 61 70 70 74 2d 69 73 73 | 75 65 2d 6d 65 73 73 61 |appt-iss|ue-messa|
|000026b0| 67 65 09 09 49 66 20 74 | 68 69 73 20 76 61 72 69 |ge..If t|his vari|
|000026c0| 61 62 6c 65 20 69 73 20 | 6e 69 6c 2c 20 74 68 65 |able is |nil, the|
|000026d0| 6e 20 74 68 65 20 63 6f | 64 65 20 69 6e 20 74 68 |n the co|de in th|
|000026e0| 69 73 0a 09 09 09 09 66 | 69 6c 65 20 64 6f 65 73 |is.....f|ile does|
|000026f0| 20 6e 6f 74 68 69 6e 67 | 2e 0a 20 61 70 70 74 2d | nothing|.. appt-|
|00002700| 6d 73 67 2d 63 6f 75 6e | 74 64 6f 77 6e 2d 6c 69 |msg-coun|tdown-li|
|00002710| 73 74 09 53 70 65 63 69 | 66 69 65 73 20 68 6f 77 |st.Speci|fies how|
|00002720| 20 6d 75 63 68 20 77 61 | 72 6e 69 6e 67 20 79 6f | much wa|rning yo|
|00002730| 75 20 77 61 6e 74 20 62 | 65 66 6f 72 65 20 0a 09 |u want b|efore ..|
|00002740| 09 09 09 61 70 70 6f 69 | 6e 74 6d 65 6e 74 73 2e |...appoi|ntments.|
|00002750| 0a 20 61 70 70 74 2d 61 | 75 64 69 62 6c 65 09 09 |. appt-a|udible..|
|00002760| 09 57 68 65 74 68 65 72 | 20 74 6f 20 62 65 65 70 |.Whether| to beep|
|00002770| 20 77 68 65 6e 20 69 74 | 27 73 20 6e 6f 74 69 66 | when it|'s notif|
|00002780| 69 63 61 74 69 6f 6e 2d | 74 69 6d 65 2e 0a 20 61 |ication-|time.. a|
|00002790| 70 70 74 2d 64 69 73 70 | 6c 61 79 2d 6d 6f 64 65 |ppt-disp|lay-mode|
|000027a0| 2d 6c 69 6e 65 09 09 57 | 68 65 74 68 65 72 20 74 |-line..W|hether t|
|000027b0| 6f 20 64 69 73 70 6c 61 | 79 20 61 20 63 6f 75 6e |o displa|y a coun|
|000027c0| 74 64 6f 77 6e 20 74 6f | 20 74 68 65 20 6e 65 78 |tdown to| the nex|
|000027d0| 74 20 0a 09 09 09 09 61 | 70 70 6f 69 6e 74 6d 65 |t .....a|ppointme|
|000027e0| 6e 74 20 69 6e 20 74 68 | 65 20 6d 6f 64 65 2d 6c |nt in th|e mode-l|
|000027f0| 69 6e 65 2e 0a 20 61 70 | 70 74 2d 61 6e 6e 6f 75 |ine.. ap|pt-annou|
|00002800| 6e 63 65 2d 6d 65 74 68 | 6f 64 20 20 20 09 54 68 |nce-meth|od .Th|
|00002810| 65 20 66 75 6e 63 74 69 | 6f 6e 20 75 73 65 64 20 |e functi|on used |
|00002820| 74 6f 20 64 6f 20 74 68 | 65 20 6e 6f 74 69 66 69 |to do th|e notifi|
|00002830| 63 61 74 69 6f 6e 73 2e | 0a 09 09 09 09 27 61 70 |cations.|.....'ap|
|00002840| 70 74 2d 77 69 6e 64 6f | 77 2d 61 6e 6e 6f 75 6e |pt-windo|w-announ|
|00002850| 63 65 20 74 6f 20 64 6f | 20 69 74 20 69 6e 20 61 |ce to do| it in a|
|00002860| 20 70 6f 70 2d 75 70 0a | 09 09 09 09 77 69 6e 64 | pop-up.|....wind|
|00002870| 6f 77 2c 20 27 61 70 70 | 74 2d 6d 65 73 73 61 67 |ow, 'app|t-messag|
|00002880| 65 2d 61 6e 6e 6f 75 6e | 63 65 20 6f 72 20 0a 09 |e-announ|ce or ..|
|00002890| 09 09 09 27 61 70 70 74 | 2d 70 65 72 73 69 73 74 |...'appt|-persist|
|000028a0| 65 6e 74 2d 6d 65 73 73 | 61 67 65 2d 61 6e 6e 6f |ent-mess|age-anno|
|000028b0| 75 6e 63 65 20 74 6f 20 | 64 6f 20 69 74 20 0a 09 |unce to |do it ..|
|000028c0| 09 09 09 69 6e 20 74 68 | 65 20 65 63 68 6f 2d 61 |...in th|e echo-a|
|000028d0| 72 65 61 2e 0a 20 61 70 | 70 74 2d 64 69 73 70 6c |rea.. ap|pt-displ|
|000028e0| 61 79 2d 64 75 72 61 74 | 69 6f 6e 20 20 09 49 66 |ay-durat|ion .If|
|000028f0| 20 61 70 70 74 2d 61 6e | 6e 6f 75 6e 63 65 2d 6d | appt-an|nounce-m|
|00002900| 65 74 68 6f 64 20 69 73 | 20 73 65 74 20 74 6f 20 |ethod is| set to |
|00002910| 74 68 65 20 66 75 6e 63 | 74 69 6f 6e 0a 09 09 09 |the func|tion....|
|00002920| 09 27 61 70 70 74 2d 77 | 69 6e 64 6f 77 2d 61 6e |.'appt-w|indow-an|
|00002930| 6e 6f 75 6e 63 65 2c 20 | 74 68 69 73 20 73 70 65 |nounce, |this spe|
|00002940| 63 69 66 69 65 73 20 68 | 6f 77 20 6d 61 6e 79 0a |cifies h|ow many.|
|00002950| 09 09 09 09 73 65 63 6f | 6e 64 73 20 74 68 65 20 |....seco|nds the |
|00002960| 70 6f 70 2d 75 70 20 77 | 69 6e 64 6f 77 20 73 68 |pop-up w|indow sh|
|00002970| 6f 75 6c 64 20 73 74 69 | 63 6b 20 61 72 6f 75 6e |ould sti|ck aroun|
|00002980| 64 2e 0a 20 0a 20 54 68 | 69 73 20 66 75 6e 63 74 |d.. . Th|is funct|
|00002990| 69 6f 6e 20 69 73 20 72 | 75 6e 20 66 72 6f 6d 20 |ion is r|un from |
|000029a0| 74 68 65 20 60 6c 6f 61 | 64 73 74 27 20 6f 72 20 |the `loa|dst' or |
|000029b0| 60 77 61 6b 65 75 70 27 | 20 70 72 6f 63 65 73 73 |`wakeup'| process|
|000029c0| 20 66 6f 72 20 64 69 73 | 70 6c 61 79 2d 74 69 6d | for dis|play-tim|
|000029d0| 65 2e 0a 20 54 68 65 72 | 65 66 6f 72 65 2c 20 79 |e.. Ther|efore, y|
|000029e0| 6f 75 20 6e 65 65 64 20 | 74 6f 20 68 61 76 65 20 |ou need |to have |
|000029f0| 28 64 69 73 70 6c 61 79 | 2d 74 69 6d 65 29 20 69 |(display|-time) i|
|00002a00| 6e 20 79 6f 75 72 20 2e | 65 6d 61 63 73 20 66 69 |n your .|emacs fi|
|00002a10| 6c 65 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 61 70 |le."]).(|fset 'ap|
|00002a20| 70 74 2d 61 64 64 20 23 | 5b 28 6e 65 77 2d 61 70 |pt-add #|[(new-ap|
|00002a30| 70 74 2d 74 69 6d 65 20 | 6e 65 77 2d 61 70 70 74 |pt-time |new-appt|
|00002a40| 2d 6d 73 67 29 20 22 c0 | c1 5c 6e 5c 22 ac 84 c3 |-msg) ".|.\n\"...|
|00002a50| c4 21 88 5c 6e c5 0e 06 | 51 1e 07 c8 5c 6e 21 43 |.!.\n...|Q...\n!C|
|00002a60| 89 1e 09 0e 07 43 42 1e | 5c 6e cb 0e 0c 0e 5c 6e |.....CB.|\n....\n|
|00002a70| 43 5c 22 16 0c cd 0e 0c | 21 89 16 0c 2b 87 22 20 |C\".....|!...+." |
|00002a80| 5b 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 5b |[string-|match "[|
|00002a90| 30 2d 39 5d 3f 5b 30 2d | 39 5d 3a 5b 30 2d 39 5d |0-9]?[0-|9]:[0-9]|
|00002aa0| 5b 30 2d 39 5d 5c 5c 28 | 61 6d 5c 5c 7c 70 6d 5c |[0-9]\\(|am\\|pm\|
|00002ab0| 5c 29 3f 22 20 6e 65 77 | 2d 61 70 70 74 2d 74 69 |\)?" new|-appt-ti|
|00002ac0| 6d 65 20 65 72 72 6f 72 | 20 22 55 6e 61 63 63 65 |me error| "Unacce|
|00002ad0| 70 74 61 62 6c 65 20 74 | 69 6d 65 2d 73 74 72 69 |ptable t|ime-stri|
|00002ae0| 6e 67 22 20 22 20 22 20 | 6e 65 77 2d 61 70 70 74 |ng" " " |new-appt|
|00002af0| 2d 6d 73 67 20 61 70 70 | 74 2d 74 69 6d 65 2d 73 |-msg app|t-time-s|
|00002b00| 74 72 69 6e 67 20 61 70 | 70 74 2d 63 6f 6e 76 65 |tring ap|pt-conve|
|00002b10| 72 74 2d 74 69 6d 65 20 | 61 70 70 74 2d 74 69 6d |rt-time |appt-tim|
|00002b20| 65 20 74 69 6d 65 2d 6d | 73 67 20 61 70 70 65 6e |e time-m|sg appen|
|00002b30| 64 20 61 70 70 74 2d 74 | 69 6d 65 2d 6d 73 67 2d |d appt-t|ime-msg-|
|00002b40| 6c 69 73 74 20 61 70 70 | 74 2d 73 6f 72 74 2d 6c |list app|t-sort-l|
|00002b50| 69 73 74 5d 20 34 20 22 | 5c 0a 41 64 64 73 20 61 |ist] 4 "|\.Adds a|
|00002b60| 6e 20 61 70 70 6f 69 6e | 74 6d 65 6e 74 20 74 6f |n appoin|tment to|
|00002b70| 20 74 68 65 20 6c 69 73 | 74 20 6f 66 20 61 70 70 | the lis|t of app|
|00002b80| 6f 69 6e 74 6d 65 6e 74 | 73 20 66 6f 72 20 74 68 |ointment|s for th|
|00002b90| 65 20 64 61 79 20 61 74 | 20 54 49 4d 45 0a 20 61 |e day at| TIME. a|
|00002ba0| 6e 64 20 69 73 73 75 65 | 20 4d 45 53 53 41 47 45 |nd issue| MESSAGE|
|00002bb0| 2e 20 54 68 65 20 74 69 | 6d 65 20 73 68 6f 75 6c |. The ti|me shoul|
|00002bc0| 64 20 62 65 20 69 6e 20 | 65 69 74 68 65 72 20 32 |d be in |either 2|
|00002bd0| 34 20 68 6f 75 72 20 66 | 6f 72 6d 61 74 20 6f 72 |4 hour f|ormat or|
|00002be0| 0a 20 61 6d 2f 70 6d 20 | 66 6f 72 6d 61 74 2e 20 |. am/pm |format. |
|00002bf0| 22 20 22 73 54 69 6d 65 | 20 28 68 68 3a 6d 6d 5b |" "sTime| (hh:mm[|
|00002c00| 61 6d 2f 70 6d 5d 29 3a | 20 5c 6e 73 4d 65 73 73 |am/pm]):| \nsMess|
|00002c10| 61 67 65 3a 20 22 5d 29 | 0a 28 66 73 65 74 20 27 |age: "])|.(fset '|
|00002c20| 61 70 70 74 2d 64 65 6c | 65 74 65 20 23 5b 6e 69 |appt-del|ete #[ni|
|00002c30| 6c 20 22 08 19 09 ab a2 | 09 40 1a c3 c4 5c 6e 41 |l ".....|.@...\nA|
|00002c40| 40 21 c5 51 1e 06 c7 0e | 06 21 1e 08 09 41 11 0e |@!.Q....|.!...A..|
|00002c50| 08 ab 85 c9 5c 6e 08 5c | 22 10 2b aa 5b ca cb 21 |....\n.\|".+.[..!|
|00002c60| 29 87 22 20 5b 61 70 70 | 74 2d 74 69 6d 65 2d 6d |)." [app|t-time-m|
|00002c70| 73 67 2d 6c 69 73 74 20 | 74 6d 70 2d 6d 73 67 2d |sg-list |tmp-msg-|
|00002c80| 6c 69 73 74 20 65 6c 65 | 6d 65 6e 74 20 22 44 65 |list ele|ment "De|
|00002c90| 6c 65 74 65 20 22 20 70 | 72 69 6e 31 2d 74 6f 2d |lete " p|rin1-to-|
|00002ca0| 73 74 72 69 6e 67 20 22 | 20 66 72 6f 6d 20 6c 69 |string "| from li|
|00002cb0| 73 74 3f 20 22 20 70 72 | 6f 6d 70 74 2d 73 74 72 |st? " pr|ompt-str|
|00002cc0| 69 6e 67 20 79 2d 6f 72 | 2d 6e 2d 70 20 74 65 73 |ing y-or|-n-p tes|
|00002cd0| 74 2d 69 6e 70 75 74 20 | 64 65 6c 71 20 6d 65 73 |t-input |delq mes|
|00002ce0| 73 61 67 65 20 22 22 5d | 20 33 20 22 5c 0a 44 65 |sage ""]| 3 "\.De|
|00002cf0| 6c 65 74 65 73 20 61 6e | 20 61 70 70 6f 69 6e 74 |letes an| appoint|
|00002d00| 6d 65 6e 74 20 66 72 6f | 6d 20 74 68 65 20 6c 69 |ment fro|m the li|
|00002d10| 73 74 20 6f 66 20 61 70 | 70 6f 69 6e 74 6d 65 6e |st of ap|pointmen|
|00002d20| 74 73 2e 22 20 6e 69 6c | 5d 29 0a 28 64 65 66 76 |ts." nil|]).(defv|
|00002d30| 61 72 20 64 69 73 70 6c | 61 79 2d 74 69 6d 65 2d |ar displ|ay-time-|
|00002d40| 68 6f 6f 6b 20 6e 69 6c | 20 22 5c 0a 2a 4c 69 73 |hook nil| "\.*Lis|
|00002d50| 74 20 6f 66 20 66 75 6e | 63 74 69 6f 6e 73 20 74 |t of fun|ctions t|
|00002d60| 6f 20 62 65 20 63 61 6c | 6c 65 64 20 77 68 65 6e |o be cal|led when|
|00002d70| 20 74 68 65 20 74 69 6d | 65 20 69 73 20 75 70 64 | the tim|e is upd|
|00002d80| 61 74 65 64 20 6f 6e 20 | 74 68 65 20 6d 6f 64 65 |ated on |the mode|
|00002d90| 20 6c 69 6e 65 2e 22 29 | 0a 28 62 79 74 65 2d 63 | line.")|.(byte-c|
|00002da0| 6f 64 65 20 22 c0 11 c2 | c3 21 ac 82 c4 13 c5 c6 |ode "...|.!......|
|00002db0| 4d 88 c7 c8 21 87 22 20 | 5b 61 70 70 74 2d 63 68 |M...!." |[appt-ch|
|00002dc0| 65 63 6b 20 64 69 73 70 | 6c 61 79 2d 74 69 6d 65 |eck disp|lay-time|
|00002dd0| 2d 68 6f 6f 6b 20 62 6f | 75 6e 64 70 20 64 69 73 |-hook bo|undp dis|
|00002de0| 70 6c 61 79 2d 74 69 6d | 65 2d 68 6f 6f 6b 2d 69 |play-tim|e-hook-i|
|00002df0| 6e 73 74 61 6c 6c 65 64 | 20 6e 69 6c 20 69 6e 73 |nstalled| nil ins|
|00002e00| 74 61 6c 6c 2d 64 69 73 | 70 6c 61 79 2d 74 69 6d |tall-dis|play-tim|
|00002e10| 65 2d 68 6f 6f 6b 20 23 | 5b 6e 69 6c 20 22 08 3f |e-hook #|[nil ".?|
|00002e20| ad c8 c1 c2 21 ac 8a c3 | c4 21 ab 9f c3 c5 21 ab |....!...|.!....!.|
|00002e30| 9a c1 c6 21 ab 88 c3 c7 | 21 ab 83 c7 aa 9b c8 c9 |...!....|!.......|
|00002e40| ca 20 5c 22 ab 83 c4 aa | 91 c5 aa 8e c1 c6 21 ab |. \"....|......!.|
|00002e50| 88 c3 cb 21 ab 83 cb aa | 81 cc 1e 0d ce 0e 0d 4b |...!....|.......K|
|00002e60| 4d 88 0e 0d cf 4d 88 29 | d0 89 10 87 22 20 5b 64 |M....M.)|...." [d|
|00002e70| 69 73 70 6c 61 79 2d 74 | 69 6d 65 2d 68 6f 6f 6b |isplay-t|ime-hook|
|00002e80| 2d 69 6e 73 74 61 6c 6c | 65 64 20 66 65 61 74 75 |-install|ed featu|
|00002e90| 72 65 70 20 72 65 70 6f | 72 74 6d 61 69 6c 20 66 |rep repo|rtmail f|
|00002ea0| 62 6f 75 6e 64 70 20 64 | 69 73 70 6c 61 79 2d 74 |boundp d|isplay-t|
|00002eb0| 69 6d 65 2d 66 69 6c 74 | 65 72 2d 31 38 2d 35 35 |ime-filt|er-18-55|
|00002ec0| 20 64 69 73 70 6c 61 79 | 2d 74 69 6d 65 2d 66 69 | display|-time-fi|
|00002ed0| 6c 74 65 72 2d 31 38 2d | 35 37 20 69 74 69 6d 65 |lter-18-|57 itime|
|00002ee0| 72 20 64 69 73 70 6c 61 | 79 2d 74 69 6d 65 2d 74 |r displa|y-time-t|
|00002ef0| 69 6d 65 72 2d 66 75 6e | 63 74 69 6f 6e 20 73 74 |imer-fun|ction st|
|00002f00| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 31 38 5c 5c |ring-mat|ch "18\\|
|00002f10| 2e 35 5b 30 2d 35 5d 22 | 20 65 6d 61 63 73 2d 76 |.5[0-5]"| emacs-v|
|00002f20| 65 72 73 69 6f 6e 20 64 | 69 73 70 6c 61 79 2d 74 |ersion d|isplay-t|
|00002f30| 69 6d 65 2d 66 75 6e 63 | 74 69 6f 6e 20 64 69 73 |ime-func|tion dis|
|00002f40| 70 6c 61 79 2d 74 69 6d | 65 2d 66 69 6c 74 65 72 |play-tim|e-filter|
|00002f50| 20 6f 6c 64 2d 66 6e 20 | 6f 6c 64 2d 64 69 73 70 | old-fn |old-disp|
|00002f60| 6c 61 79 2d 74 69 6d 65 | 2d 66 69 6c 74 65 72 20 |lay-time|-filter |
|00002f70| 23 5b 28 26 72 65 73 74 | 20 61 72 67 73 29 20 22 |#[(&rest| args) "|
|00002f80| c0 c1 5c 6e 5c 22 88 c3 | c4 21 87 22 20 5b 61 70 |..\n\"..|.!." [ap|
|00002f90| 70 6c 79 20 6f 6c 64 2d | 64 69 73 70 6c 61 79 2d |ply old-|display-|
|00002fa0| 74 69 6d 65 2d 66 69 6c | 74 65 72 20 61 72 67 73 |time-fil|ter args|
|00002fb0| 20 72 75 6e 2d 68 6f 6f | 6b 73 20 64 69 73 70 6c | run-hoo|ks displ|
|00002fc0| 61 79 2d 74 69 6d 65 2d | 68 6f 6f 6b 5d 20 33 20 |ay-time-|hook] 3 |
|00002fd0| 22 52 65 76 69 73 65 64 | 20 76 65 72 73 69 6f 6e |"Revised| version|
|00002fe0| 20 6f 66 20 74 68 65 20 | 6f 72 69 67 69 6e 61 6c | of the |original|
|00002ff0| 20 66 75 6e 63 74 69 6f | 6e 3a 20 74 68 69 73 20 | functio|n: this |
|00003000| 76 65 72 73 69 6f 6e 20 | 63 61 6c 6c 73 20 61 20 |version |calls a |
|00003010| 68 6f 6f 6b 2e 22 5d 20 | 74 5d 20 33 5d 20 70 72 |hook."] |t] 3] pr|
|00003020| 6f 76 69 64 65 20 61 70 | 70 74 5d 20 32 29 0a |ovide ap|pt] 2). |
+--------+-------------------------+-------------------------+--------+--------+
