/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / packages / webster.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 3b 3b 20 63 6f 6d 70 | 69 6c 65 64 20 62 79 20 |;;; comp|iled by |
|00000010| 6a 77 7a 40 74 68 61 6c | 69 64 6f 6d 69 64 65 20 |jwz@thal|idomide |
|00000020| 6f 6e 20 54 75 65 20 4a | 75 6e 20 33 30 20 32 33 |on Tue J|un 30 23|
|00000030| 3a 32 35 3a 35 30 20 31 | 39 39 32 0a 3b 3b 3b 20 |:25:50 1|992.;;; |
|00000040| 66 72 6f 6d 20 66 69 6c | 65 20 2f 63 61 64 69 6c |from fil|e /cadil|
|00000050| 6c 61 63 2d 74 68 2f 6a | 77 7a 2f 65 6d 61 63 73 |lac-th/j|wz/emacs|
|00000060| 31 39 2f 6c 69 73 70 2f | 70 61 63 6b 61 67 65 73 |19/lisp/|packages|
|00000070| 2f 77 65 62 73 74 65 72 | 2e 65 6c 0a 3b 3b 3b 20 |/webster|.el.;;; |
|00000080| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 31 39 |emacs ve|rsion 19|
|00000090| 2e 32 2e 31 20 4c 75 63 | 69 64 2e 0a 3b 3b 3b 20 |.2.1 Luc|id..;;; |
|000000a0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000b0| 20 32 2e 30 37 3b 20 31 | 37 2d 6a 75 6e 2d 39 32 | 2.07; 1|7-jun-92|
|000000c0| 2e 0a 3b 3b 3b 20 6f 70 | 74 69 6d 69 7a 61 74 69 |..;;; op|timizati|
|000000d0| 6f 6e 20 69 73 20 6f 6e | 2e 0a 3b 3b 3b 20 74 68 |on is on|..;;; th|
|000000e0| 69 73 20 66 69 6c 65 20 | 75 73 65 73 20 6f 70 63 |is file |uses opc|
|000000f0| 6f 64 65 73 20 77 68 69 | 63 68 20 64 6f 20 6e 6f |odes whi|ch do no|
|00000100| 74 20 65 78 69 73 74 20 | 69 6e 20 45 6d 61 63 73 |t exist |in Emacs|
|00000110| 31 38 2e 0a 0a 28 69 66 | 20 28 61 6e 64 20 28 62 |18...(if| (and (b|
|00000120| 6f 75 6e 64 70 20 27 65 | 6d 61 63 73 2d 76 65 72 |oundp 'e|macs-ver|
|00000130| 73 69 6f 6e 29 0a 09 20 | 28 6f 72 20 28 61 6e 64 |sion).. |(or (and|
|00000140| 20 28 62 6f 75 6e 64 70 | 20 27 65 70 6f 63 68 3a | (boundp| 'epoch:|
|00000150| 3a 76 65 72 73 69 6f 6e | 29 20 65 70 6f 63 68 3a |:version|) epoch:|
|00000160| 3a 76 65 72 73 69 6f 6e | 29 0a 09 20 20 20 20 20 |:version|)..     |
|00000170| 28 73 74 72 69 6e 67 2d | 6c 65 73 73 70 20 65 6d |(string-|lessp em|
|00000180| 61 63 73 2d 76 65 72 73 | 69 6f 6e 20 22 31 39 22 |acs-vers|ion "19"|
|00000190| 29 29 29 0a 20 20 20 20 | 28 65 72 72 6f 72 20 22 |))).    |(error "|
|000001a0| 54 68 69 73 20 66 69 6c | 65 20 77 61 73 20 63 6f |This fil|e was co|
|000001b0| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|000001c0| 31 39 2e 22 29 29 0a 0a | 28 64 65 66 76 61 72 20 |19."))..|(defvar |
|000001d0| 77 65 62 73 74 65 72 2d | 68 6f 73 74 20 22 31 32 |webster-|host "12|
|000001e0| 39 2e 37 39 2e 32 35 34 | 2e 31 39 32 22 20 22 5c |9.79.254|.192" "\|
|000001f0| 0a 54 68 65 20 68 6f 73 | 74 20 74 6f 20 75 73 65 |.The hos|t to use|
|00000200| 20 61 73 20 61 20 77 65 | 62 73 74 65 72 20 73 65 | as a we|bster se|
|00000210| 72 76 65 72 2e 22 29 0a | 28 64 65 66 76 61 72 20 |rver.").|(defvar |
|00000220| 77 65 62 73 74 65 72 2d | 70 6f 72 74 20 22 32 36 |webster-|port "26|
|00000230| 32 37 22 20 22 5c 0a 54 | 68 65 20 70 6f 72 74 20 |27" "\.T|he port |
|00000240| 74 6f 20 63 6f 6e 6e 65 | 63 74 20 74 6f 2e 20 45 |to conne|ct to. E|
|00000250| 69 74 68 65 72 20 31 30 | 33 20 6f 72 20 32 36 32 |ither 10|3 or 262|
|00000260| 37 22 29 0a 28 64 65 66 | 76 61 72 20 77 65 62 73 |7").(def|var webs|
|00000270| 74 65 72 2d 70 72 6f 63 | 65 73 73 20 6e 69 6c 20 |ter-proc|ess nil |
|00000280| 22 5c 0a 54 68 65 20 63 | 75 72 72 65 6e 74 20 77 |"\.The c|urrent w|
|00000290| 65 62 73 74 65 72 20 70 | 72 6f 63 65 73 73 22 29 |ebster p|rocess")|
|000002a0| 0a 28 64 65 66 76 61 72 | 20 77 65 62 73 74 65 72 |.(defvar| webster|
|000002b0| 2d 70 72 6f 63 65 73 73 | 2d 6e 61 6d 65 20 22 77 |-process|-name "w|
|000002c0| 65 62 73 74 65 72 22 20 | 22 5c 0a 54 68 65 20 63 |ebster" |"\.The c|
|000002d0| 75 72 72 65 6e 74 20 77 | 65 62 73 74 65 72 20 70 |urrent w|ebster p|
|000002e0| 72 6f 63 65 73 73 22 29 | 0a 28 64 65 66 76 61 72 |rocess")|.(defvar|
|000002f0| 20 77 65 62 73 74 65 72 | 2d 62 75 66 66 65 72 20 | webster|-buffer |
|00000300| 6e 69 6c 20 22 5c 0a 54 | 68 65 20 63 75 72 72 65 |nil "\.T|he curre|
|00000310| 6e 74 20 77 65 62 73 74 | 65 72 20 70 72 6f 63 65 |nt webst|er proce|
|00000320| 73 73 22 29 0a 28 64 65 | 66 76 61 72 20 77 65 62 |ss").(de|fvar web|
|00000330| 73 74 65 72 2d 72 75 6e | 6e 69 6e 67 20 6e 69 6c |ster-run|ning nil|
|00000340| 20 22 5c 0a 55 73 65 64 | 20 74 6f 20 64 65 74 65 | "\.Used| to dete|
|00000350| 72 6d 69 6e 65 20 77 68 | 65 6e 20 63 6f 6e 6e 65 |rmine wh|en conne|
|00000360| 63 74 69 6f 6e 20 69 73 | 20 65 73 74 61 62 6c 69 |ction is| establi|
|00000370| 73 68 65 64 22 29 0a 28 | 66 73 65 74 20 27 77 65 |shed").(|fset 'we|
|00000380| 62 73 74 65 72 2d 69 6e | 69 74 69 61 6c 2d 66 69 |bster-in|itial-fi|
|00000390| 6c 74 65 72 20 23 5b 28 | 70 72 6f 63 20 73 74 72 |lter #[(|proc str|
|000003a0| 69 6e 67 29 20 22 70 18 | 09 71 88 64 62 88 c2 0b |ing) "p.|.q.db...|
|000003b0| 21 c4 3d ac 89 c5 16 06 | c7 c8 21 88 aa a7 c9 ca |!.=.....|..!.....|
|000003c0| 0e 0b 5c 22 ab 90 c5 16 | 06 cc cd 0e 0e 21 21 88 |..\"....|.....!!.|
|000003d0| cf d0 21 88 aa 90 c9 d1 | 0e 0b 5c 22 ab 89 c5 16 |..!.....|..\"....|
|000003e0| 06 d2 0e 0e d3 5c 22 88 | 08 71 29 87 22 20 5b 74 |.....\".|.q)." [t|
|000003f0| 68 69 73 2d 62 75 66 66 | 65 72 20 77 65 62 73 74 |his-buff|er webst|
|00000400| 65 72 2d 62 75 66 66 65 | 72 20 70 72 6f 63 65 73 |er-buffe|r proces|
|00000410| 73 2d 73 74 61 74 75 73 | 20 77 65 62 73 74 65 72 |s-status| webster|
|00000420| 2d 70 72 6f 63 65 73 73 | 20 72 75 6e 20 74 20 77 |-process| run t w|
|00000430| 65 62 73 74 65 72 2d 72 | 75 6e 6e 69 6e 67 20 6d |ebster-r|unning m|
|00000440| 65 73 73 61 67 65 20 22 | 57 65 62 73 74 65 72 20 |essage "|Webster |
|00000450| 64 69 65 64 22 20 73 74 | 72 69 6e 67 2d 6d 61 74 |died" st|ring-mat|
|00000460| 63 68 20 22 4e 6f 20 73 | 75 63 68 20 68 6f 73 74 |ch "No s|uch host|
|00000470| 22 20 73 74 72 69 6e 67 | 20 6b 69 6c 6c 2d 62 75 |" string| kill-bu|
|00000480| 66 66 65 72 20 70 72 6f | 63 65 73 73 2d 62 75 66 |ffer pro|cess-buf|
|00000490| 66 65 72 20 70 72 6f 63 | 20 65 72 72 6f 72 20 22 |fer proc| error "|
|000004a0| 4e 6f 20 73 75 63 68 20 | 68 6f 73 74 2e 22 20 22 |No such |host." "|
|000004b0| 5d 22 20 73 65 74 2d 70 | 72 6f 63 65 73 73 2d 66 |]" set-p|rocess-f|
|000004c0| 69 6c 74 65 72 20 77 65 | 62 73 74 65 72 2d 66 69 |ilter we|bster-fi|
|000004d0| 6c 74 65 72 5d 20 33 5d | 29 0a 28 64 65 66 76 61 |lter] 3]|).(defva|
|000004e0| 72 20 77 65 62 73 74 65 | 72 2d 72 65 66 6f 72 6d |r webste|r-reform|
|000004f0| 61 74 20 74 20 22 5c 0a | 2a 53 65 74 20 74 68 69 |at t "\.|*Set thi|
|00000500| 73 20 74 6f 20 74 20 69 | 66 20 79 6f 75 20 77 61 |s to t i|f you wa|
|00000510| 6e 74 20 74 68 65 20 77 | 65 62 73 74 65 72 20 6f |nt the w|ebster o|
|00000520| 75 74 70 75 74 20 74 6f | 20 62 65 20 70 72 65 74 |utput to| be pret|
|00000530| 74 69 65 64 20 75 70 2c | 20 61 6e 64 0a 66 6f 72 |tied up,| and.for|
|00000540| 20 74 68 65 20 5c 5c 5b | 77 65 62 73 74 65 72 5d | the \\[|webster]|
|00000550| 20 70 72 6f 6d 70 74 20 | 74 6f 20 64 6f 20 63 6f | prompt |to do co|
|00000560| 6d 70 6c 65 74 69 6f 6e | 20 61 63 72 6f 73 73 20 |mpletion| across |
|00000570| 74 68 65 20 73 65 74 20 | 6f 66 20 77 6f 72 64 73 |the set |of words|
|00000580| 20 6b 6e 6f 77 6e 0a 74 | 6f 20 62 65 20 69 6e 20 | known.t|o be in |
|00000590| 74 68 65 20 64 69 63 74 | 69 6f 6e 61 72 79 20 28 |the dict|ionary (|
|000005a0| 77 6f 72 64 73 20 79 6f | 75 27 76 65 20 6c 6f 6f |words yo|u've loo|
|000005b0| 6b 65 64 20 75 70 2c 20 | 6f 72 20 77 68 69 63 68 |ked up, |or which|
|000005c0| 20 61 70 70 65 61 72 65 | 64 20 69 6e 20 0a 64 65 | appeare|d in .de|
|000005d0| 66 69 6e 69 74 69 6f 6e | 73 20 61 73 20 63 72 6f |finition|s as cro|
|000005e0| 73 73 72 65 66 65 72 65 | 6e 63 65 73 2e 29 22 29 |ssrefere|nces.)")|
|000005f0| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 4d |.(byte-c|ode "..M|
|00000600| 88 c2 c3 c4 5c 22 15 c6 | c7 4d 87 22 20 5b 77 65 |....\"..|.M." [we|
|00000610| 62 73 74 65 72 2d 66 69 | 6c 74 65 72 20 23 5b 28 |bster-fi|lter #[(|
|00000620| 70 72 6f 63 20 73 74 72 | 69 6e 67 29 20 22 70 c0 |proc str|ing) "p.|
|00000630| 19 1a 0b 71 88 c4 0d 21 | c6 3d ac 87 c7 c8 21 88 |...q...!|.=....!.|
|00000640| 82 98 00 c9 ca 0e 0b 5c | 22 ab 98 c7 cc 21 88 cd |.......\|"....!..|
|00000650| 0e 0e 21 88 cf d0 d1 c0 | 23 88 d2 62 88 c7 d3 21 |..!.....|#..b...!|
|00000660| 88 aa e4 c9 d4 0e 0b 5c | 22 ab 86 d5 d6 21 88 aa |.......\|"....!..|
|00000670| d7 c9 d7 0e 0b 5c 22 ab | 86 d5 d8 21 88 aa ca c9 |.....\".|...!....|
|00000680| d9 0e 0b 5c 22 ae 85 c9 | da 0e 0b 5c 22 89 1e 1b |...\"...|...\"...|
|00000690| ad 95 dc 0e 0e 0e 0b dd | 0e 1b d2 5a 4f de 50 5c |........|...ZO.P\|
|000006a0| 22 88 df 11 64 62 88 df | 29 ac a1 64 62 88 60 1e |"...db..|)..db.`.|
|000006b0| 20 0e 0b 63 88 e1 0e 20 | 60 e2 e3 24 88 29 e4 0e | ..c... |`..$.)..|
|000006c0| 0e 21 ab 88 e4 0e 0e 21 | 60 c0 93 88 09 ad ad e5 |.!.....!|`.......|
|000006d0| 0b 21 e6 20 1e 27 1e 28 | 0e 29 ab 87 e9 e4 0e 0e |.!. .'.(|.)......|
|000006e0| 21 21 88 0e 28 ad 94 ea | 0e 28 21 88 64 62 88 eb |!!..(...|.(!.db..|
|000006f0| ec 0e 28 21 53 21 88 ea | 0e 27 21 2a 2a 87 22 20 |..(!S!..|.'!**." |
|00000700| 5b 6e 69 6c 20 65 6e 64 | 70 20 74 68 69 73 2d 62 |[nil end|p this-b|
|00000710| 75 66 66 65 72 20 77 65 | 62 73 74 65 72 2d 62 75 |uffer we|bster-bu|
|00000720| 66 66 65 72 20 70 72 6f | 63 65 73 73 2d 73 74 61 |ffer pro|cess-sta|
|00000730| 74 75 73 20 77 65 62 73 | 74 65 72 2d 70 72 6f 63 |tus webs|ter-proc|
|00000740| 65 73 73 20 72 75 6e 20 | 6d 65 73 73 61 67 65 20 |ess run |message |
|00000750| 22 57 65 62 73 74 65 72 | 20 64 69 65 64 22 20 73 |"Webster| died" s|
|00000760| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 43 6f 6e |tring-ma|tch "Con|
|00000770| 6e 65 63 74 69 6f 6e 20 | 63 6c 6f 73 65 64 22 20 |nection |closed" |
|00000780| 73 74 72 69 6e 67 20 22 | 43 6c 6f 73 69 6e 67 20 |string "|Closing |
|00000790| 77 65 62 73 74 65 72 20 | 63 6f 6e 6e 65 63 74 69 |webster |connecti|
|000007a0| 6f 6e 2e 2e 2e 22 20 6b | 69 6c 6c 2d 70 72 6f 63 |on..." k|ill-proc|
|000007b0| 65 73 73 20 70 72 6f 63 | 20 72 65 70 6c 61 63 65 |ess proc| replace|
|000007c0| 2d 72 65 67 65 78 70 20 | 22 50 72 6f 63 65 73 73 |-regexp |"Process|
|000007d0| 20 77 65 62 73 74 65 72 | 20 6b 69 6c 6c 65 64 22 | webster| killed"|
|000007e0| 20 22 22 20 31 20 22 43 | 6c 6f 73 69 6e 67 20 77 | "" 1 "C|losing w|
|000007f0| 65 62 73 74 65 72 20 63 | 6f 6e 6e 65 63 74 69 6f |ebster c|onnectio|
|00000800| 6e 2e 2e 2e 44 6f 6e 65 | 2e 22 20 22 53 50 45 4c |n...Done|." "SPEL|
|00000810| 4c 49 4e 47 20 30 22 20 | 69 6e 73 65 72 74 2d 73 |LING 0" |insert-s|
|00000820| 74 72 69 6e 67 20 22 2e | 2e 2e 57 6f 72 64 20 6e |tring ".|..Word n|
|00000830| 6f 74 20 66 6f 75 6e 64 | 20 69 6e 20 77 65 62 73 |ot found| in webs|
|00000840| 74 65 72 5c 6e 22 20 22 | 53 50 45 4c 4c 49 4e 47 |ter\n" "|SPELLING|
|00000850| 20 31 22 20 22 2e 2e 2e | 53 70 65 6c 6c 65 64 20 | 1" "...|Spelled |
|00000860| 63 6f 72 72 65 63 74 6c | 79 5c 6e 22 20 22 80 22 |correctl|y\n" "."|
|00000870| 20 22 00 22 20 65 6e 64 | 2d 64 65 66 2d 6d 65 73 | "." end|-def-mes|
|00000880| 73 61 67 65 20 77 65 62 | 73 74 65 72 2d 66 69 6c |sage web|ster-fil|
|00000890| 74 65 72 20 30 20 22 5c | 6e 5c 6e 22 20 74 20 6e |ter 0 "\|n\n" t n|
|000008a0| 6f 77 20 64 65 6c 65 74 | 65 2d 63 68 61 72 2d 69 |ow delet|e-char-i|
|000008b0| 6e 2d 72 65 67 69 6f 6e | 20 22 0d 22 20 22 20 22 |n-region| "." " "|
|000008c0| 20 70 72 6f 63 65 73 73 | 2d 6d 61 72 6b 20 67 65 | process|-mark ge|
|000008d0| 74 2d 62 75 66 66 65 72 | 2d 77 69 6e 64 6f 77 20 |t-buffer|-window |
|000008e0| 73 65 6c 65 63 74 65 64 | 2d 77 69 6e 64 6f 77 20 |selected|-window |
|000008f0| 77 69 6e 64 6f 77 20 77 | 65 62 73 74 65 72 2d 77 |window w|ebster-w|
|00000900| 69 6e 64 6f 77 20 77 65 | 62 73 74 65 72 2d 72 65 |indow we|bster-re|
|00000910| 66 6f 72 6d 61 74 20 73 | 65 6c 65 63 74 2d 77 69 |format s|elect-wi|
|00000920| 6e 64 6f 77 20 72 65 63 | 65 6e 74 65 72 20 77 69 |ndow rec|enter wi|
|00000930| 6e 64 6f 77 2d 68 65 69 | 67 68 74 5d 20 37 5d 20 |ndow-hei|ght] 7] |
|00000940| 6d 61 6b 65 2d 76 65 63 | 74 6f 72 20 35 31 31 20 |make-vec|tor 511 |
|00000950| 30 20 77 65 62 73 74 65 | 72 2d 63 6f 6d 70 6c 65 |0 webste|r-comple|
|00000960| 74 69 6f 6e 2d 74 61 62 | 6c 65 20 77 65 62 73 74 |tion-tab|le webst|
|00000970| 65 72 2d 69 6e 74 65 72 | 6e 20 23 5b 28 73 74 72 |er-inter|n #[(str|
|00000980| 69 6e 67 29 20 22 c0 c1 | 5c 6e 5c 22 ab 8e 5c 6e |ing) "..|\n\"..\n|
|00000990| c3 89 94 4f 5c 6e c3 95 | c4 4f 50 12 aa 6c c5 5c |...O\n..|.OP..l.\|
|000009a0| 6e 97 0e 06 5c 22 87 22 | 20 5b 73 74 72 69 6e 67 |n...\"."| [string|
|000009b0| 2d 6d 61 74 63 68 20 22 | 5c 5c 2e 22 20 73 74 72 |-match "|\\." str|
|000009c0| 69 6e 67 20 30 20 6e 69 | 6c 20 69 6e 74 65 72 6e |ing 0 ni|l intern|
|000009d0| 20 77 65 62 73 74 65 72 | 2d 63 6f 6d 70 6c 65 74 | webster|-complet|
|000009e0| 69 6f 6e 2d 74 61 62 6c | 65 5d 20 34 5d 5d 20 33 |ion-tabl|e] 4]] 3|
|000009f0| 29 0a 28 64 65 66 76 61 | 72 20 77 65 62 73 74 65 |).(defva|r webste|
|00000a00| 72 2d 66 6f 6e 74 69 66 | 79 20 28 73 74 72 69 6e |r-fontif|y (strin|
|00000a10| 67 2d 6d 61 74 63 68 20 | 22 4c 75 63 69 64 22 20 |g-match |"Lucid" |
|00000a20| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 20 22 |emacs-ve|rsion) "|
|00000a30| 5c 0a 2a 53 65 74 20 74 | 6f 20 74 20 74 6f 20 75 |\.*Set t|o t to u|
|00000a40| 73 65 20 74 68 65 20 4c | 75 63 69 64 20 47 4e 55 |se the L|ucid GNU|
|00000a50| 20 45 6d 61 63 73 20 66 | 6f 6e 74 2d 63 68 61 6e | Emacs f|ont-chan|
|00000a60| 67 65 20 6d 65 63 68 61 | 6e 69 73 6d 2e 22 29 0a |ge mecha|nism.").|
|00000a70| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 ab |(byte-co|de "..!.|
|00000a80| d5 c2 c3 21 ac 8c c4 c1 | c3 21 21 ac 85 c5 c6 c3 |...!....|.!!.....|
|00000a90| 5c 22 88 c2 c7 21 ac 8c | c4 c1 c7 21 21 ac 85 c5 |\"...!..|...!!...|
|00000aa0| c8 c7 5c 22 88 c2 c9 21 | ac 8c c4 c1 c9 21 21 ac |..\"...!|.....!!.|
|00000ab0| 85 c5 ca c9 5c 22 88 c2 | cb 21 ac 8c c4 c1 cb 21 |....\"..|.!.....!|
|00000ac0| 21 ac 85 c5 cc cb 5c 22 | 88 c2 cd 21 ac 8c c4 c1 |!.....\"|...!....|
|00000ad0| cd 21 21 ac 85 c5 c7 cd | 5c 22 88 ce cf 4d 87 22 |.!!.....|\"...M."|
|00000ae0| 20 5b 66 62 6f 75 6e 64 | 70 20 6d 61 6b 65 2d 66 | [fbound|p make-f|
|00000af0| 61 63 65 20 66 69 6e 64 | 2d 66 61 63 65 20 77 65 |ace find|-face we|
|00000b00| 62 73 74 65 72 20 66 61 | 63 65 2d 64 69 66 66 65 |bster fa|ce-diffe|
|00000b10| 72 73 2d 66 72 6f 6d 2d | 64 65 66 61 75 6c 74 2d |rs-from-|default-|
|00000b20| 70 20 63 6f 70 79 2d 66 | 61 63 65 20 64 65 66 61 |p copy-f|ace defa|
|00000b30| 75 6c 74 20 77 65 62 73 | 74 65 72 2d 62 6f 6c 64 |ult webs|ter-bold|
|00000b40| 20 62 6f 6c 64 20 77 65 | 62 73 74 65 72 2d 69 74 | bold we|bster-it|
|00000b50| 61 6c 69 63 20 69 74 61 | 6c 69 63 20 77 65 62 73 |alic ita|lic webs|
|00000b60| 74 65 72 2d 62 6f 6c 64 | 2d 69 74 61 6c 69 63 20 |ter-bold|-italic |
|00000b70| 62 6f 6c 64 2d 69 74 61 | 6c 69 63 20 77 65 62 73 |bold-ita|lic webs|
|00000b80| 74 65 72 2d 73 6d 61 6c | 6c 20 77 65 62 73 74 65 |ter-smal|l webste|
|00000b90| 72 2d 66 6f 6e 74 69 66 | 79 20 23 5b 28 73 74 61 |r-fontif|y #[(sta|
|00000ba0| 72 74 20 65 6e 64 20 66 | 61 63 65 20 26 6f 70 74 |rt end f|ace &opt|
|00000bb0| 69 6f 6e 61 6c 20 68 69 | 67 68 6c 69 67 68 74 29 |ional hi|ghlight)|
|00000bc0| 20 22 c0 09 5c 6e 70 23 | 1b c4 0b 0d 5c 22 88 0e | "..\np#|....\"..|
|00000bd0| 06 ad 84 c7 0b c6 5c 22 | 29 87 22 20 5b 6d 61 6b |......\"|)." [mak|
|00000be0| 65 2d 65 78 74 65 6e 74 | 20 73 74 61 72 74 20 65 |e-extent| start e|
|00000bf0| 6e 64 20 65 20 73 65 74 | 2d 65 78 74 65 6e 74 2d |nd e set|-extent-|
|00000c00| 66 61 63 65 20 66 61 63 | 65 20 68 69 67 68 6c 69 |face fac|e highli|
|00000c10| 67 68 74 20 73 65 74 2d | 65 78 74 65 6e 74 2d 61 |ght set-|extent-a|
|00000c20| 74 74 72 69 62 75 74 65 | 5d 20 34 5d 5d 20 33 29 |ttribute|] 4]] 3)|
|00000c30| 0a 28 66 73 65 74 20 27 | 77 65 62 73 74 65 72 2d |.(fset '|webster-|
|00000c40| 72 65 66 6f 72 6d 61 74 | 20 23 5b 28 65 6e 64 29 |reformat| #[(end)|
|00000c50| 20 22 08 3f 3f 85 f7 02 | 09 62 88 c2 1b c4 c5 c2 | ".??...|.b......|
|00000c60| c6 23 88 0e 07 ab 94 8a | c8 c9 21 88 ca cb 21 ab |.#......|..!...!.|
|00000c70| 89 c7 c9 94 c9 95 cc c6 | 24 88 29 ca cd 21 ac 86 |........|$.)..!..|
|00000c80| ca ce 21 85 f6 02 c9 79 | 88 60 cf 1e 10 1e 11 d2 |..!....y|.`......|
|00000c90| d3 c2 d4 23 88 0e 11 60 | 7d 88 0e 11 62 88 d2 d5 |...#...`|}...b...|
|00000ca0| c2 c6 23 ab 89 d6 d7 21 | 88 d8 20 88 aa 70 0e 11 |..#....!|.. ..p..|
|00000cb0| 62 88 6d 84 e0 02 ca d9 | 21 ab 86 d4 94 d4 95 7c |b.m.....|!......||
|00000cc0| 88 ca da 21 ab c7 0e 07 | ab 87 c7 60 d4 95 db 23 |...!....|...`...#|
|00000cd0| 88 d4 95 62 88 ca dc 21 | ab 8a 8a d4 95 53 62 88 |...b...!|.....Sb.|
|00000ce0| d5 63 88 29 ca dd 21 ab | 88 de 60 d4 95 53 7b 21 |.c.)..!.|..`..S{!|
|00000cf0| 88 0e 07 ab 89 c7 60 d4 | 95 53 cc c6 24 88 d4 95 |......`.|.S..$...|
|00000d00| 53 62 88 ca d9 21 ab 2a | c9 79 88 aa 25 ca df 21 |Sb...!.*|.y..%..!|
|00000d10| ab a7 e0 16 10 e1 20 88 | 68 e2 55 ab 83 e3 aa 81 |...... .|h.U.....|
|00000d20| e4 63 88 e5 c2 77 88 0e | 07 ab 07 c7 8a d4 79 88 |.c...w..|......y.|
|00000d30| 60 29 60 db 23 88 82 60 | 00 ca e6 21 ab b3 c9 94 |`)`.#..`|...!....|
|00000d40| c9 95 7b 1e 27 d4 94 d4 | 95 7c 88 d5 63 88 e8 0e |..{.'...|.|..c...|
|00000d50| 27 47 5a 6a 88 0e 27 e9 | b1 02 88 ea 16 10 0e 07 |'GZj..'.|........|
|00000d60| ab 8b c7 8a d4 79 88 60 | 29 60 db 23 88 29 82 60 |.....y.`|)`.#.).`|
|00000d70| 00 ca eb 21 ab c9 c9 94 | c9 95 7b cf 94 cf 95 7b |...!....|..{....{|
|00000d80| 1e 2c 1e 27 0e 2c ed 9a | ac 83 ee 16 27 d4 94 d4 |.,.'.,..|....'...|
|00000d90| 95 7c 88 d5 63 88 e8 0e | 27 47 5a 6a 88 0e 27 e3 |.|..c...|'GZj..'.|
|00000da0| b1 02 88 0e 2c e9 b1 02 | 88 ef 16 10 0e 07 ab 8b |....,...|........|
|00000db0| c7 8a d4 79 88 60 29 60 | db 23 88 2a 82 60 00 ca |...y.`)`|.#.*.`..|
|00000dc0| f0 21 ab e0 c9 94 c9 95 | 7b cf 94 cf 95 7b f1 94 |.!......|{....{..|
|00000dd0| f1 95 7b 1e 32 1e 2c 1e | 27 0e 32 f3 9a ac 83 ee |..{.2.,.|'.2.....|
|00000de0| 16 2c 0e 2c ed 9a ac 83 | ee 16 27 d4 94 d4 95 7c |.,.,....|..'....||
|00000df0| 88 d5 63 88 e8 0e 27 47 | 5a 6a 88 0e 27 e3 b1 02 |..c...'G|Zj..'...|
|00000e00| 88 0e 2c e3 b1 02 88 f4 | 0e 32 f5 b1 03 88 f6 16 |..,.....|.2......|
|00000e10| 10 0e 07 ab 8b c7 8a d4 | 79 88 60 29 60 db 23 88 |........|y.`)`.#.|
|00000e20| 2b 82 60 00 ca f7 21 ab | b1 e0 16 10 60 16 11 d4 |+.`...!.|....`...|
|00000e30| 95 62 88 d2 f8 21 88 69 | 0e 39 56 ab 8e 0e 11 62 |.b...!.i|.9V....b|
|00000e40| 88 d5 63 88 fa 6a 88 d2 | f8 21 88 0e 07 83 60 00 |..c..j..|.!....`.|
|00000e50| c7 0e 11 60 fb 23 88 82 | 60 00 ca fc 21 ab 92 e8 |...`.#..|`...!...|
|00000e60| 16 10 e1 20 88 d5 63 88 | e0 6a 88 c9 75 88 82 60 |... ..c.|.j..u..`|
|00000e70| 00 68 fd 55 ab 91 ca fe | 21 ab 8c e1 20 88 e0 16 |.h.U....|!... ...|
|00000e80| 10 ff 63 88 82 60 00 ca | 81 40 00 21 ab b1 60 d4 |..c..`..|.@.!..`.|
|00000e90| 95 7c 88 d5 63 88 e1 20 | 88 e3 63 88 e8 16 10 ca |.|..c.. |..c.....|
|00000ea0| 81 41 00 21 83 60 00 0e | 07 ab 88 c7 60 60 f1 5c |.A.!.`..|....``.\|
|00000eb0| 5c cc 23 88 d4 95 62 88 | 81 42 00 63 88 82 60 00 |\.#...b.|.B.c..`.|
|00000ec0| 60 16 11 81 43 00 c2 77 | 88 ca 81 44 00 21 ac 87 |`...C..w|...D.!..|
|00000ed0| ca 81 45 00 21 ab b4 60 | d4 95 7b 1e 46 0e 07 ab |..E.!..`|..{.F...|
|00000ee0| 88 c7 60 d4 95 cc c6 24 | 88 81 47 00 81 48 00 0e |..`....$|..G..H..|
|00000ef0| 46 5c 22 ab 91 0e 46 d4 | 89 94 4f 0e 46 d4 95 c2 |F\"...F.|..O.F...|
|00000f00| 4f 50 16 46 aa 64 de 0e | 46 21 88 29 81 49 00 c2 |OP.F.d..|F!.).I..|
|00000f10| 77 88 69 0e 39 56 83 60 | 00 0e 11 62 88 d5 63 88 |w.i.9V.`|...b..c.|
|00000f20| e1 20 88 0e 10 6a 88 ee | c2 77 88 81 49 00 c2 77 |. ...j..|.w..I..w|
|00000f30| 88 82 60 00 2a 65 62 88 | ca d5 21 ab 86 d6 c9 21 |..`.*eb.|..!....!|
|00000f40| 88 aa 75 64 62 88 d3 63 | 88 7e 29 87 22 20 5b 77 |..udb..c|.~)." [w|
|00000f50| 65 62 73 74 65 72 2d 72 | 65 66 6f 72 6d 61 74 20 |ebster-r|eformat |
|00000f60| 65 6e 64 20 6e 69 6c 20 | 63 61 73 65 2d 66 6f 6c |end nil |case-fol|
|00000f70| 64 2d 73 65 61 72 63 68 | 20 72 65 2d 73 65 61 72 |d-search| re-sear|
|00000f80| 63 68 2d 62 61 63 6b 77 | 61 72 64 20 22 5e 5b 41 |ch-backw|ard "^[A|
|00000f90| 2d 5a 5d 2b 22 20 74 20 | 77 65 62 73 74 65 72 2d |-Z]+" t |webster-|
|00000fa0| 66 6f 6e 74 69 66 79 20 | 70 72 65 76 69 6f 75 73 |fontify |previous|
|00000fb0| 2d 6c 69 6e 65 20 31 20 | 6c 6f 6f 6b 69 6e 67 2d |-line 1 |looking-|
|00000fc0| 61 74 20 22 5e 44 45 46 | 49 4e 45 20 5c 5c 28 5b |at "^DEF|INE \\([|
|00000fd0| 5e 20 5c 6e 5d 2b 5c 5c | 29 22 20 77 65 62 73 74 |^ \n]+\\|)" webst|
|00000fe0| 65 72 2d 62 6f 6c 64 20 | 22 5e 44 45 46 49 4e 49 |er-bold |"^DEFINI|
|00000ff0| 54 49 4f 4e 20 5b 30 2d | 39 5d 22 20 22 5e 53 50 |TION [0-|9]" "^SP|
|00001000| 45 4c 4c 49 4e 47 22 20 | 32 20 69 6e 64 65 6e 74 |ELLING" |2 indent|
|00001010| 20 70 20 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 | p searc|h-forwar|
|00001020| 64 20 22 5c 6e 5c 6e 22 | 20 30 20 22 5c 6e 22 20 |d "\n\n"| 0 "\n" |
|00001030| 64 65 6c 65 74 65 2d 63 | 68 61 72 20 2d 31 20 6a |delete-c|har -1 j|
|00001040| 75 73 74 2d 6f 6e 65 2d | 73 70 61 63 65 20 22 20 |ust-one-|space " |
|00001050| 2a 5c 6e 22 20 22 5e 5b | 30 2d 39 5d 2b 20 22 20 |*\n" "^[|0-9]+ " |
|00001060| 77 65 62 73 74 65 72 2d | 62 6f 6c 64 2d 69 74 61 |webster-|bold-ita|
|00001070| 6c 69 63 20 22 5b 5e 5c | 6e 30 2d 39 5d 2b 20 5b |lic "[^\|n0-9]+ [|
|00001080| 30 2d 39 5d 22 20 22 5b | 61 2d 7a 5d 2b 5c 5c 28 |0-9]" "[|a-z]+\\(|
|00001090| 20 5b 61 2d 7a 5d 2b 5c | 5c 29 2a 5b 20 5c 6e 5d | [a-z]+\|\)*[ \n]|
|000010a0| 22 20 77 65 62 73 74 65 | 72 2d 69 6e 74 65 72 6e |" webste|r-intern|
|000010b0| 20 22 20 2a 5b 30 2d 39 | 5d 2b 5c 5c 2e 20 22 20 | " *[0-9|]+\\. " |
|000010c0| 35 20 64 65 6c 65 74 65 | 2d 68 6f 72 69 7a 6f 6e |5 delete|-horizon|
|000010d0| 74 61 6c 2d 73 70 61 63 | 65 20 31 30 20 22 20 20 |tal-spac|e 10 "  |
|000010e0| 22 20 22 5c 6e 20 20 22 | 20 22 30 2d 39 2e 20 22 |" "\n  "| "0-9. "|
|000010f0| 20 22 20 2a 5c 5c 28 5b | 30 2d 39 5d 2b 5c 5c 29 | " *\\([|0-9]+\\)|
|00001100| 3a 20 2a 22 20 6e 20 36 | 20 22 20 3a 20 22 20 39 |: *" n 6| " : " 9|
|00001110| 20 22 20 2a 5c 5c 28 5b | 30 2d 39 5d 2b 5c 5c 29 | " *\\([|0-9]+\\)|
|00001120| 5c 5c 28 5b 61 2d 7a 5d | 2b 5c 5c 29 3a 20 2a 22 |\\([a-z]|+\\): *"|
|00001130| 20 6d 20 22 61 22 20 22 | 20 22 20 31 32 20 22 20 | m "a" "| " 12 " |
|00001140| 2a 5c 5c 28 5b 30 2d 39 | 5d 2b 5c 5c 29 5c 5c 28 |*\\([0-9|]+\\)\\(|
|00001150| 5b 61 2d 7a 5d 2b 5c 5c | 29 5c 5c 28 5b 30 2d 39 |[a-z]+\\|)\\([0-9|
|00001160| 5d 2b 5c 5c 29 3a 20 2a | 22 20 33 20 6f 20 22 31 |]+\\): *|" 3 o "1|
|00001170| 22 20 22 28 22 20 22 29 | 20 3a 20 22 20 31 37 20 |" "(" ")| : " 17 |
|00001180| 22 20 2a 5c 5c 5c 5c 22 | 20 22 5c 5c 22 20 66 69 |" *\\\\"| "\\" fi|
|00001190| 6c 6c 2d 63 6f 6c 75 6d | 6e 20 31 38 20 77 65 62 |ll-colum|n 18 web|
|000011a0| 73 74 65 72 2d 69 74 61 | 6c 69 63 20 22 20 2a 5c |ster-ita|lic " *\|
|000011b0| 5c 5b 22 20 39 33 20 22 | 20 2a 3a 22 20 22 5c 6e |\[" 93 "| *:" "\n|
|000011c0| 20 22 20 22 20 2a 53 59 | 4e 20 2a 22 20 22 73 79 | " " *SY|N *" "sy|
|000011d0| 6e 20 22 20 22 73 65 65 | 20 22 20 22 20 2c 3a 3b |n " "see| " " ,:;|
|000011e0| 2d 22 20 22 5c 5c 28 5b | 41 2d 5a 5d 5b 2d 41 2d |-" "\\([|A-Z][-A-|
|000011f0| 5a 5d 2b 5b 41 2d 5a 5d | 5c 5c 29 5c 5c 28 20 5b |Z]+[A-Z]|\\)\\( [|
|00001200| 41 2d 5a 5d 5b 2d 41 2d | 5a 5d 2a 5b 41 2d 5a 5d |A-Z][-A-|Z]*[A-Z]|
|00001210| 5c 5c 29 2a 22 20 22 5b | 61 2d 7a 5d 5b 2d 61 2d |\\)*" "[|a-z][-a-|
|00001220| 7a 5d 2a 5c 5c 28 5c 5c | 2e 5b 61 2d 7a 5d 5b 2d |z]*\\(\\|.[a-z][-|
|00001230| 61 2d 7a 5d 2a 5c 5c 29 | 2b 22 20 73 20 73 74 72 |a-z]*\\)|+" s str|
|00001240| 69 6e 67 2d 6d 61 74 63 | 68 20 22 5c 5c 2e 22 20 |ing-matc|h "\\." |
|00001250| 22 5e 20 5c 5c 22 5d 20 | 35 20 22 5c 0a 43 6c 65 |"^ \\"] |5 "\.Cle|
|00001260| 61 6e 20 75 70 20 74 68 | 65 20 6f 75 74 70 75 74 |an up th|e output|
|00001270| 20 6f 66 20 74 68 65 20 | 77 65 62 73 74 65 72 20 | of the |webster |
|00001280| 73 65 72 76 65 72 2c 20 | 61 6e 64 20 67 61 74 68 |server, |and gath|
|00001290| 65 72 20 77 6f 72 64 73 | 20 66 6f 72 20 74 68 65 |er words| for the|
|000012a0| 20 0a 63 6f 6d 70 6c 65 | 74 69 6f 6e 20 74 61 62 | .comple|tion tab|
|000012b0| 6c 65 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 64 65 |le."]).(|fset 'de|
|000012c0| 6c 65 74 65 2d 63 68 61 | 72 2d 69 6e 2d 72 65 67 |lete-cha|r-in-reg|
|000012d0| 69 6f 6e 20 23 5b 28 73 | 74 61 72 74 20 65 6e 64 |ion #[(s|tart end|
|000012e0| 20 63 68 61 72 31 20 63 | 68 61 72 32 29 20 22 08 | char1 c|har2) ".|
|000012f0| 62 88 09 c2 48 11 c3 0c | 0d c6 23 ad 92 c7 c8 21 |b...H...|..#....!|
|00001300| 88 60 c9 5a 66 09 55 ab | 6d c7 c8 21 88 aa 67 87 |.`.Zf.U.|m..!..g.|
|00001310| 22 20 5b 73 74 61 72 74 | 20 63 68 61 72 32 20 30 |" [start| char2 0|
|00001320| 20 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 | search-|forward |
|00001330| 63 68 61 72 31 20 65 6e | 64 20 74 20 64 65 6c 65 |char1 en|d t dele|
|00001340| 74 65 2d 63 68 61 72 20 | 2d 31 20 31 5d 20 34 5d |te-char |-1 1] 4]|
|00001350| 29 0a 28 66 73 65 74 20 | 27 77 65 62 73 74 65 72 |).(fset |'webster|
|00001360| 20 23 5b 28 61 72 67 29 | 20 22 08 c1 9a ab 83 c2 | #[(arg)| "......|
|00001370| 20 10 c3 c4 08 5c 22 87 | 22 20 5b 61 72 67 20 22 | ....\".|" [arg "|
|00001380| 22 20 63 75 72 72 65 6e | 74 2d 77 6f 72 64 20 77 |" curren|t-word w|
|00001390| 65 62 73 74 65 72 2d 73 | 65 6e 64 2d 72 65 71 75 |ebster-s|end-requ|
|000013a0| 65 73 74 20 22 44 45 46 | 49 4e 45 22 5d 20 33 20 |est "DEF|INE"] 3 |
|000013b0| 22 5c 0a 4c 6f 6f 6b 20 | 75 70 20 61 20 77 6f 72 |"\.Look |up a wor|
|000013c0| 64 20 69 6e 20 74 68 65 | 20 57 65 62 73 74 65 72 |d in the| Webster|
|000013d0| 27 73 20 64 69 63 74 69 | 6f 6e 61 72 79 2e 0a 4f |'s dicti|onary..O|
|000013e0| 70 65 6e 20 61 20 6e 65 | 74 77 6f 72 6b 20 6c 6f |pen a ne|twork lo|
|000013f0| 67 69 6e 20 63 6f 6e 6e | 65 63 74 69 6f 6e 20 74 |gin conn|ection t|
|00001400| 6f 20 61 20 77 65 62 73 | 74 65 72 20 68 6f 73 74 |o a webs|ter host|
|00001410| 20 69 66 20 6e 65 63 65 | 73 73 61 72 79 2e 0a 43 | if nece|ssary..C|
|00001420| 6f 6d 6d 75 6e 69 63 61 | 74 69 6f 6e 20 77 69 74 |ommunica|tion wit|
|00001430| 68 20 68 6f 73 74 20 69 | 73 20 72 65 63 6f 72 64 |h host i|s record|
|00001440| 65 64 20 69 6e 20 61 20 | 62 75 66 66 65 72 20 2a |ed in a |buffer *|
|00001450| 77 65 62 73 74 65 72 2a | 2e 22 20 28 62 79 74 65 |webster*|." (byte|
|00001460| 2d 63 6f 64 65 20 22 c0 | c1 20 c2 51 c3 1c 1d 0e |-code ".|. .Q....|
|00001470| 06 ab 89 c7 0d 0e 08 c9 | 89 24 aa 83 ca 0d 21 97 |........|.$....!.|
|00001480| 2a 43 87 22 20 5b 22 4c | 6f 6f 6b 20 75 70 20 77 |*C." ["L|ook up w|
|00001490| 6f 72 64 20 69 6e 20 77 | 65 62 73 74 65 72 20 28 |ord in w|ebster (|
|000014a0| 22 20 63 75 72 72 65 6e | 74 2d 77 6f 72 64 20 22 |" curren|t-word "|
|000014b0| 29 3a 20 22 20 74 20 63 | 6f 6d 70 6c 65 74 69 6f |): " t c|ompletio|
|000014c0| 6e 2d 69 67 6e 6f 72 65 | 2d 63 61 73 65 20 70 72 |n-ignore|-case pr|
|000014d0| 6f 6d 70 74 20 77 65 62 | 73 74 65 72 2d 72 65 66 |ompt web|ster-ref|
|000014e0| 6f 72 6d 61 74 20 63 6f | 6d 70 6c 65 74 69 6e 67 |ormat co|mpleting|
|000014f0| 2d 72 65 61 64 20 77 65 | 62 73 74 65 72 2d 63 6f |-read we|bster-co|
|00001500| 6d 70 6c 65 74 69 6f 6e | 2d 74 61 62 6c 65 20 6e |mpletion|-table n|
|00001510| 69 6c 20 72 65 61 64 2d | 73 74 72 69 6e 67 5d 20 |il read-|string] |
|00001520| 35 29 5d 29 0a 28 66 73 | 65 74 20 27 77 65 62 73 |5)]).(fs|et 'webs|
|00001530| 74 65 72 2d 65 6e 64 69 | 6e 67 73 20 23 5b 28 61 |ter-endi|ngs #[(a|
|00001540| 72 67 29 20 22 08 c1 9a | ab 83 c2 20 10 c3 c4 08 |rg) "...|... ....|
|00001550| 5c 22 87 22 20 5b 61 72 | 67 20 22 22 20 63 75 72 |\"." [ar|g "" cur|
|00001560| 72 65 6e 74 2d 77 6f 72 | 64 20 77 65 62 73 74 65 |rent-wor|d webste|
|00001570| 72 2d 73 65 6e 64 2d 72 | 65 71 75 65 73 74 20 22 |r-send-r|equest "|
|00001580| 45 4e 44 49 4e 47 53 22 | 5d 20 33 20 22 5c 0a 4c |ENDINGS"|] 3 "\.L|
|00001590| 6f 6f 6b 20 75 70 20 65 | 6e 64 69 6e 67 73 20 66 |ook up e|ndings f|
|000015a0| 6f 72 20 61 20 77 6f 72 | 64 20 69 6e 20 74 68 65 |or a wor|d in the|
|000015b0| 20 57 65 62 73 74 65 72 | 27 73 20 64 69 63 74 69 | Webster|'s dicti|
|000015c0| 6f 6e 61 72 79 2e 0a 4f | 70 65 6e 20 61 20 6e 65 |onary..O|pen a ne|
|000015d0| 74 77 6f 72 6b 20 6c 6f | 67 69 6e 20 63 6f 6e 6e |twork lo|gin conn|
|000015e0| 65 63 74 69 6f 6e 20 74 | 6f 20 61 20 77 65 62 73 |ection t|o a webs|
|000015f0| 74 65 72 20 68 6f 73 74 | 20 69 66 20 6e 65 63 65 |ter host| if nece|
|00001600| 73 73 61 72 79 2e 0a 43 | 6f 6d 6d 75 6e 69 63 61 |ssary..C|ommunica|
|00001610| 74 69 6f 6e 20 77 69 74 | 68 20 68 6f 73 74 20 69 |tion wit|h host i|
|00001620| 73 20 72 65 63 6f 72 64 | 65 64 20 69 6e 20 61 20 |s record|ed in a |
|00001630| 62 75 66 66 65 72 20 2a | 77 65 62 73 74 65 72 2a |buffer *|webster*|
|00001640| 2e 22 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |." (byte|-code ".|
|00001650| c1 c2 20 c3 51 21 43 87 | 22 20 5b 72 65 61 64 2d |.. .Q!C.|" [read-|
|00001660| 73 74 72 69 6e 67 20 22 | 46 69 6e 64 20 65 6e 64 |string "|Find end|
|00001670| 69 6e 67 73 20 66 6f 72 | 20 77 6f 72 64 20 69 6e |ings for| word in|
|00001680| 20 77 65 62 73 74 65 72 | 20 28 22 20 63 75 72 72 | webster| (" curr|
|00001690| 65 6e 74 2d 77 6f 72 64 | 20 22 29 3a 20 22 5d 20 |ent-word| "): "] |
|000016a0| 34 29 5d 29 0a 28 66 73 | 65 74 20 27 77 65 62 73 |4)]).(fs|et 'webs|
|000016b0| 74 65 72 2d 73 70 65 6c | 6c 20 23 5b 28 61 72 67 |ter-spel|l #[(arg|
|000016c0| 29 20 22 08 c1 9a ab 83 | c2 20 10 c3 c4 08 5c 22 |) ".....|. ....\"|
|000016d0| 87 22 20 5b 61 72 67 20 | 22 22 20 63 75 72 72 65 |." [arg |"" curre|
|000016e0| 6e 74 2d 77 6f 72 64 20 | 77 65 62 73 74 65 72 2d |nt-word |webster-|
|000016f0| 73 65 6e 64 2d 72 65 71 | 75 65 73 74 20 22 53 50 |send-req|uest "SP|
|00001700| 45 4c 4c 22 5d 20 33 20 | 22 5c 0a 4c 6f 6f 6b 20 |ELL"] 3 |"\.Look |
|00001710| 73 70 65 6c 6c 69 6e 67 | 20 66 6f 72 20 61 20 77 |spelling| for a w|
|00001720| 6f 72 64 20 69 6e 20 74 | 68 65 20 57 65 62 73 74 |ord in t|he Webst|
|00001730| 65 72 27 73 20 64 69 63 | 74 69 6f 6e 61 72 79 2e |er's dic|tionary.|
|00001740| 0a 4f 70 65 6e 20 61 20 | 6e 65 74 77 6f 72 6b 20 |.Open a |network |
|00001750| 6c 6f 67 69 6e 20 63 6f | 6e 6e 65 63 74 69 6f 6e |login co|nnection|
|00001760| 20 74 6f 20 61 20 77 65 | 62 73 74 65 72 20 68 6f | to a we|bster ho|
|00001770| 73 74 20 69 66 20 6e 65 | 63 65 73 73 61 72 79 2e |st if ne|cessary.|
|00001780| 0a 43 6f 6d 6d 75 6e 69 | 63 61 74 69 6f 6e 20 77 |.Communi|cation w|
|00001790| 69 74 68 20 68 6f 73 74 | 20 69 73 20 72 65 63 6f |ith host| is reco|
|000017a0| 72 64 65 64 20 69 6e 20 | 61 20 62 75 66 66 65 72 |rded in |a buffer|
|000017b0| 20 2a 77 65 62 73 74 65 | 72 2a 2e 22 20 28 62 79 | *webste|r*." (by|
|000017c0| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 c2 20 c3 51 21 |te-code |"... .Q!|
|000017d0| 43 87 22 20 5b 72 65 61 | 64 2d 73 74 72 69 6e 67 |C." [rea|d-string|
|000017e0| 20 22 54 72 79 20 74 6f | 20 73 70 65 6c 6c 20 77 | "Try to| spell w|
|000017f0| 6f 72 64 20 69 6e 20 77 | 65 62 73 74 65 72 20 28 |ord in w|ebster (|
|00001800| 22 20 63 75 72 72 65 6e | 74 2d 77 6f 72 64 20 22 |" curren|t-word "|
|00001810| 29 3a 20 22 5d 20 34 29 | 5d 29 0a 28 66 73 65 74 |): "] 4)|]).(fset|
|00001820| 20 27 77 65 62 73 74 65 | 72 2d 73 65 6e 64 2d 72 | 'webste|r-send-r|
|00001830| 65 71 75 65 73 74 20 23 | 5b 28 6b 69 6e 64 20 77 |equest #|[(kind w|
|00001840| 6f 72 64 29 20 22 c0 c1 | 21 88 c2 0b c4 0d c6 b0 |ord) "..|!.......|
|00001850| 05 1e 07 0e 08 ab 8c 0e | 09 ab 88 ca 0e 09 21 cb |........|......!.|
|00001860| 3d ac c8 cc cd 0b ce 51 | 21 88 cf d0 21 ac 87 d1 |=......Q|!...!...|
|00001870| 0e 12 d3 5c 22 aa 85 d0 | 0e 12 d3 5c 22 16 08 70 |...\"...|...\"..p|
|00001880| 1e 14 0e 08 71 88 d5 20 | 88 0e 14 71 88 29 d6 0e |....q.. |...q.)..|
|00001890| 12 21 16 09 d7 0e 09 d8 | 5c 22 88 d9 0e 09 0e 07 |.!......|\"......|
|000018a0| 5c 22 88 da 16 1b 0e 1b | ac 85 dc 20 88 aa 77 dd |\"......|... ..w.|
|000018b0| 0e 08 da 5c 22 88 d9 0e | 09 0e 1e c4 0e 1f c6 52 |...\"...|.......R|
|000018c0| 5c 22 29 87 22 20 5b 72 | 65 71 75 69 72 65 20 73 |\")." [r|equire s|
|000018d0| 68 65 6c 6c 20 22 6f 70 | 65 6e 20 22 20 77 65 62 |hell "op|en " web|
|000018e0| 73 74 65 72 2d 68 6f 73 | 74 20 22 20 22 20 77 65 |ster-hos|t " " we|
|000018f0| 62 73 74 65 72 2d 70 6f | 72 74 20 22 5c 6e 22 20 |bster-po|rt "\n" |
|00001900| 77 65 62 73 74 65 72 2d | 63 6f 6d 6d 61 6e 64 20 |webster-|command |
|00001910| 77 65 62 73 74 65 72 2d | 62 75 66 66 65 72 20 77 |webster-|buffer w|
|00001920| 65 62 73 74 65 72 2d 70 | 72 6f 63 65 73 73 20 70 |ebster-p|rocess p|
|00001930| 72 6f 63 65 73 73 2d 73 | 74 61 74 75 73 20 72 75 |rocess-s|tatus ru|
|00001940| 6e 20 6d 65 73 73 61 67 | 65 20 22 41 74 74 65 6d |n messag|e "Attem|
|00001950| 70 74 69 6e 67 20 74 6f | 20 63 6f 6e 6e 65 63 74 |pting to| connect|
|00001960| 20 74 6f 20 73 65 72 76 | 65 72 20 22 20 22 2e 2e | to serv|er " "..|
|00001970| 2e 22 20 66 62 6f 75 6e | 64 70 20 6d 61 6b 65 2d |." fboun|dp make-|
|00001980| 73 68 65 6c 6c 20 6d 61 | 6b 65 2d 63 6f 6d 69 6e |shell ma|ke-comin|
|00001990| 74 20 77 65 62 73 74 65 | 72 2d 70 72 6f 63 65 73 |t webste|r-proces|
|000019a0| 73 2d 6e 61 6d 65 20 22 | 74 65 6c 6e 65 74 22 20 |s-name "|telnet" |
|000019b0| 74 68 69 73 2d 62 75 66 | 66 65 72 20 77 65 62 73 |this-buf|fer webs|
|000019c0| 74 65 72 2d 6d 6f 64 65 | 20 67 65 74 2d 70 72 6f |ter-mode| get-pro|
|000019d0| 63 65 73 73 20 73 65 74 | 2d 70 72 6f 63 65 73 73 |cess set|-process|
|000019e0| 2d 66 69 6c 74 65 72 20 | 77 65 62 73 74 65 72 2d |-filter |webster-|
|000019f0| 69 6e 69 74 69 61 6c 2d | 66 69 6c 74 65 72 20 70 |initial-|filter p|
|00001a00| 72 6f 63 65 73 73 2d 73 | 65 6e 64 2d 73 74 72 69 |rocess-s|end-stri|
|00001a10| 6e 67 20 6e 69 6c 20 77 | 65 62 73 74 65 72 2d 72 |ng nil w|ebster-r|
|00001a20| 75 6e 6e 69 6e 67 20 61 | 63 63 65 70 74 2d 70 72 |unning a|ccept-pr|
|00001a30| 6f 63 65 73 73 2d 6f 75 | 74 70 75 74 20 64 69 73 |ocess-ou|tput dis|
|00001a40| 70 6c 61 79 2d 62 75 66 | 66 65 72 20 6b 69 6e 64 |play-buf|fer kind|
|00001a50| 20 77 6f 72 64 5d 20 36 | 5d 29 0a 28 66 73 65 74 | word] 6|]).(fset|
|00001a60| 20 27 77 65 62 73 74 65 | 72 2d 71 75 69 74 20 23 | 'webste|r-quit #|
|00001a70| 5b 6e 69 6c 20 22 c0 c1 | 5c 6e 5c 22 88 c3 0c 21 |[nil "..|\n\"...!|
|00001a80| 88 c0 c5 5c 6e 5c 22 88 | c6 20 87 22 20 5b 6d 65 |...\n\".|. ." [me|
|00001a90| 73 73 61 67 65 20 22 43 | 6c 6f 73 69 6e 67 20 63 |ssage "C|losing c|
|00001aa0| 6f 6e 6e 65 63 74 69 6f | 6e 20 74 6f 20 25 73 2e |onnectio|n to %s.|
|00001ab0| 2e 2e 22 20 77 65 62 73 | 74 65 72 2d 68 6f 73 74 |.." webs|ter-host|
|00001ac0| 20 6b 69 6c 6c 2d 70 72 | 6f 63 65 73 73 20 77 65 | kill-pr|ocess we|
|00001ad0| 62 73 74 65 72 2d 70 72 | 6f 63 65 73 73 20 22 43 |bster-pr|ocess "C|
|00001ae0| 6c 6f 73 69 6e 67 20 63 | 6f 6e 6e 65 63 74 69 6f |losing c|onnectio|
|00001af0| 6e 20 74 6f 20 25 73 2e | 2e 2e 64 6f 6e 65 22 20 |n to %s.|..done" |
|00001b00| 62 75 72 79 2d 62 75 66 | 66 65 72 5d 20 33 20 22 |bury-buf|fer] 3 "|
|00001b10| 5c 0a 43 6c 6f 73 65 20 | 63 6f 6e 6e 65 63 74 69 |\.Close |connecti|
|00001b20| 6f 6e 20 61 6e 64 20 71 | 75 69 74 20 77 65 62 73 |on and q|uit webs|
|00001b30| 74 65 72 2d 6d 6f 64 65 | 2e 20 20 42 75 66 66 65 |ter-mode|.  Buffe|
|00001b40| 72 20 69 73 20 6e 6f 74 | 20 64 65 6c 65 74 65 64 |r is not| deleted|
|00001b50| 2e 22 20 6e 69 6c 5d 29 | 0a 28 66 73 65 74 20 27 |." nil])|.(fset '|
|00001b60| 77 65 62 73 74 65 72 2d | 6d 6f 64 65 20 23 5b 6e |webster-|mode #[n|
|00001b70| 69 6c 20 22 c0 20 88 c1 | 12 c3 14 c5 0e 06 21 88 |il ". ..|......!.|
|00001b80| c7 c8 21 87 22 20 5b 6b | 69 6c 6c 2d 61 6c 6c 2d |..!." [k|ill-all-|
|00001b90| 6c 6f 63 61 6c 2d 76 61 | 72 69 61 62 6c 65 73 20 |local-va|riables |
|00001ba0| 77 65 62 73 74 65 72 2d | 6d 6f 64 65 20 6d 61 6a |webster-|mode maj|
|00001bb0| 6f 72 2d 6d 6f 64 65 20 | 22 57 65 62 73 74 65 72 |or-mode |"Webster|
|00001bc0| 22 20 6d 6f 64 65 2d 6e | 61 6d 65 20 75 73 65 2d |" mode-n|ame use-|
|00001bd0| 6c 6f 63 61 6c 2d 6d 61 | 70 20 77 65 62 73 74 65 |local-ma|p webste|
|00001be0| 72 2d 6d 6f 64 65 2d 6d | 61 70 20 72 75 6e 2d 68 |r-mode-m|ap run-h|
|00001bf0| 6f 6f 6b 73 20 77 65 62 | 73 74 65 72 2d 6d 6f 64 |ooks web|ster-mod|
|00001c00| 65 2d 68 6f 6f 6b 5d 20 | 32 20 22 5c 0a 4d 61 6a |e-hook] |2 "\.Maj|
|00001c10| 6f 72 20 6d 6f 64 65 20 | 66 6f 72 20 69 6e 74 65 |or mode |for inte|
|00001c20| 72 61 63 74 69 6e 67 20 | 77 69 74 68 20 6f 6e 2d |racting |with on-|
|00001c30| 6c 69 6e 65 20 57 65 62 | 73 74 65 72 27 73 20 64 |line Web|ster's d|
|00001c40| 69 63 74 69 6f 6e 61 72 | 79 2e 0a 5c 5c 7b 77 65 |ictionar|y..\\{we|
|00001c50| 62 73 74 65 72 2d 6d 6f | 64 65 2d 6d 61 70 7d 0a |bster-mo|de-map}.|
|00001c60| 55 73 65 20 77 65 62 73 | 74 65 72 2d 6d 6f 64 65 |Use webs|ter-mode|
|00001c70| 2d 68 6f 6f 6b 20 66 6f | 72 20 63 75 73 74 6f 6d |-hook fo|r custom|
|00001c80| 69 7a 61 74 69 6f 6e 2e | 22 20 6e 69 6c 5d 29 0a |ization.|" nil]).|
|00001c90| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 ac |(byte-co|de "..!.|
|00001ca0| 82 c2 11 09 ac ae c3 20 | 11 c4 09 c5 c6 23 88 c4 |....... |.....#..|
|00001cb0| 09 c7 c8 23 88 c4 09 c9 | ca 23 88 c4 09 cb cc 23 |...#....|.#.....#|
|00001cc0| 88 c4 09 cd ce 23 88 cf | d0 0e 11 5c 22 ab 86 c4 |.....#..|...\"...|
|00001cd0| 09 d2 d3 23 88 c2 87 22 | 20 5b 62 6f 75 6e 64 70 |...#..."| [boundp|
|00001ce0| 20 77 65 62 73 74 65 72 | 2d 6d 6f 64 65 2d 6d 61 | webster|-mode-ma|
|00001cf0| 70 20 6e 69 6c 20 6d 61 | 6b 65 2d 73 70 61 72 73 |p nil ma|ke-spars|
|00001d00| 65 2d 6b 65 79 6d 61 70 | 20 64 65 66 69 6e 65 2d |e-keymap| define-|
|00001d10| 6b 65 79 20 22 3f 22 20 | 64 65 73 63 72 69 62 65 |key "?" |describe|
|00001d20| 2d 6d 6f 64 65 20 22 64 | 22 20 77 65 62 73 74 65 |-mode "d|" webste|
|00001d30| 72 20 22 65 22 20 77 65 | 62 73 74 65 72 2d 65 6e |r "e" we|bster-en|
|00001d40| 64 69 6e 67 73 20 22 71 | 22 20 77 65 62 73 74 65 |dings "q|" webste|
|00001d50| 72 2d 71 75 69 74 20 22 | 73 22 20 77 65 62 73 74 |r-quit "|s" webst|
|00001d60| 65 72 2d 73 70 65 6c 6c | 20 73 74 72 69 6e 67 2d |er-spell| string-|
|00001d70| 6d 61 74 63 68 20 22 4c | 75 63 69 64 22 20 65 6d |match "L|ucid" em|
|00001d80| 61 63 73 2d 76 65 72 73 | 69 6f 6e 20 62 75 74 74 |acs-vers|ion butt|
|00001d90| 6f 6e 32 20 77 65 62 73 | 74 65 72 2d 78 72 65 66 |on2 webs|ter-xref|
|00001da0| 2d 77 6f 72 64 5d 20 34 | 29 0a 28 66 73 65 74 20 |-word] 4|).(fset |
|00001db0| 27 63 75 72 72 65 6e 74 | 2d 77 6f 72 64 20 23 5b |'current|-word #[|
|00001dc0| 6e 69 6c 20 22 8a c0 89 | 19 1a c3 c4 c0 c5 23 88 |nil "...|......#.|
|00001dd0| c3 c6 c0 c5 23 88 60 12 | c7 c8 c0 c5 23 88 60 11 |....#.`.|....#.`.|
|00001de0| 5c 6e 09 7b 2b 87 22 20 | 5b 6e 69 6c 20 65 6e 64 |\n.{+." |[nil end|
|00001df0| 20 62 65 67 20 72 65 2d | 73 65 61 72 63 68 2d 62 | beg re-|search-b|
|00001e00| 61 63 6b 77 61 72 64 20 | 22 5c 5c 77 22 20 32 20 |ackward |"\\w" 2 |
|00001e10| 22 5c 5c 62 22 20 72 65 | 2d 73 65 61 72 63 68 2d |"\\b" re|-search-|
|00001e20| 66 6f 72 77 61 72 64 20 | 22 5c 5c 77 2a 5c 5c 62 |forward |"\\w*\\b|
|00001e30| 22 5d 20 34 20 22 5c 0a | 57 6f 72 64 20 63 75 72 |"] 4 "\.|Word cur|
|00001e40| 73 6f 72 20 69 73 20 6f | 76 65 72 2c 20 61 73 20 |sor is o|ver, as |
|00001e50| 61 20 73 74 72 69 6e 67 | 2e 22 5d 29 0a 28 66 73 |a string|."]).(fs|
|00001e60| 65 74 20 27 77 65 62 73 | 74 65 72 2d 78 72 65 66 |et 'webs|ter-xref|
|00001e70| 2d 77 6f 72 64 20 23 5b | 28 65 76 65 6e 74 29 20 |-word #[|(event) |
|00001e80| 22 c0 c1 5c 6e 21 21 1b | c4 c5 5c 6e 21 0b c6 23 |"..\n!!.|..\n!..#|
|00001e90| 1e 07 c8 1e 09 0e 07 ab | 92 8a 0b 71 88 ca 0e 07 |........|...q....|
|00001ea0| 21 cb 0e 07 21 7b 29 16 | 09 aa 8e cc 20 ab 86 cd |!...!{).|.... ...|
|00001eb0| 20 16 09 aa 84 ce cf 21 | 88 d0 d1 0e 09 5c 22 ab | ......!|.....\".|
|00001ec0| 91 0e 09 d2 89 94 4f 0e | 09 d2 95 c8 4f 50 16 09 |......O.|....OP..|
|00001ed0| aa 68 d3 d4 0e 09 96 5c | 22 88 64 62 88 d5 0e 09 |.h.....\|".db....|
|00001ee0| 21 2b 87 22 20 5b 77 69 | 6e 64 6f 77 2d 62 75 66 |!+." [wi|ndow-buf|
|00001ef0| 66 65 72 20 65 76 65 6e | 74 2d 77 69 6e 64 6f 77 |fer even|t-window|
|00001f00| 20 65 76 65 6e 74 20 62 | 75 66 66 65 72 20 65 78 | event b|uffer ex|
|00001f10| 74 65 6e 74 2d 61 74 20 | 65 76 65 6e 74 2d 70 6f |tent-at |event-po|
|00001f20| 69 6e 74 20 68 69 67 68 | 6c 69 67 68 74 20 65 78 |int high|light ex|
|00001f30| 74 65 6e 74 20 6e 69 6c | 20 74 65 78 74 20 65 78 |tent nil| text ex|
|00001f40| 74 65 6e 74 2d 73 74 61 | 72 74 2d 70 6f 73 69 74 |tent-sta|rt-posit|
|00001f50| 69 6f 6e 20 65 78 74 65 | 6e 74 2d 65 6e 64 2d 70 |ion exte|nt-end-p|
|00001f60| 6f 73 69 74 69 6f 6e 20 | 78 2d 73 65 6c 65 63 74 |osition |x-select|
|00001f70| 69 6f 6e 2d 6f 77 6e 65 | 72 2d 70 20 78 2d 67 65 |ion-owne|r-p x-ge|
|00001f80| 74 2d 73 65 6c 65 63 74 | 69 6f 6e 20 65 72 72 6f |t-select|ion erro|
|00001f90| 72 20 22 63 6c 69 63 6b | 20 6f 6e 20 61 20 68 69 |r "click| on a hi|
|00001fa0| 67 68 6c 69 67 68 74 65 | 64 20 77 6f 72 64 20 74 |ghlighte|d word t|
|00001fb0| 6f 20 64 65 66 69 6e 65 | 22 20 73 74 72 69 6e 67 |o define|" string|
|00001fc0| 2d 6d 61 74 63 68 20 22 | 5c 5c 2e 22 20 30 20 6d |-match "|\\." 0 m|
|00001fd0| 65 73 73 61 67 65 20 22 | 6c 6f 6f 6b 69 6e 67 20 |essage "|looking |
|00001fe0| 75 70 20 25 73 2e 2e 2e | 22 20 77 65 62 73 74 65 |up %s...|" webste|
|00001ff0| 72 5d 20 34 20 22 5c 0a | 44 65 66 69 6e 65 20 74 |r] 4 "\.|Define t|
|00002000| 68 65 20 68 69 67 68 6c | 69 67 68 74 65 64 20 77 |he highl|ighted w|
|00002010| 6f 72 64 20 75 6e 64 65 | 72 20 74 68 65 20 6d 6f |ord unde|r the mo|
|00002020| 75 73 65 2e 0a 57 6f 72 | 64 73 20 77 68 69 63 68 |use..Wor|ds which|
|00002030| 20 61 72 65 20 6b 6e 6f | 77 6e 20 74 6f 20 68 61 | are kno|wn to ha|
|00002040| 76 65 20 64 65 66 69 6e | 69 74 69 6f 6e 73 20 61 |ve defin|itions a|
|00002050| 72 65 20 68 69 67 68 6c | 69 67 68 74 65 64 20 77 |re highl|ighted w|
|00002060| 68 65 6e 20 74 68 65 20 | 6d 6f 75 73 65 0a 6d 6f |hen the |mouse.mo|
|00002070| 76 65 73 20 6f 76 65 72 | 20 74 68 65 6d 2e 20 20 |ves over| them.  |
|00002080| 59 6f 75 20 6d 61 79 20 | 64 65 66 69 6e 65 20 61 |You may |define a|
|00002090| 6e 79 20 77 6f 72 64 20 | 62 79 20 73 65 6c 65 63 |ny word |by selec|
|000020a0| 74 69 6e 67 20 69 74 20 | 77 69 74 68 20 74 68 65 |ting it |with the|
|000020b0| 20 6c 65 66 74 0a 6d 6f | 75 73 65 20 62 75 74 74 | left.mo|use butt|
|000020c0| 6f 6e 20 61 6e 64 20 74 | 68 65 6e 20 63 6c 69 63 |on and t|hen clic|
|000020d0| 6b 69 6e 67 20 6d 69 64 | 64 6c 65 2e 22 20 22 65 |king mid|dle." "e|
|000020e0| 22 5d 29 0a             |                         |"]).    |        |
+--------+-------------------------+-------------------------+--------+--------+