;ELC ;;; compiled by jwz@thalidomide on Tue Mar 29 02:01:08 1994 ;;; from file /th/jwz/emacs19/lisp/packages/webster-ucb.el ;;; emacs version 19.10 Lucid (beta10). ;;; bytecomp version 2.22; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (defvar webster-host "pasteur" "\ *The host with the webster server") (defvar webster-port "1964" "\ *The port on which the webster server listens") (defvar webster-running nil "\ Used to determine when connection is established") (defvar webster-state "closed" "\ for the modeline") (defvar webster-process nil "\ The current webster process") (defvar webster-process-name "webster" "\ The current webster process") (defvar webster-buffer nil "\ The current webster process") (byte-code "!‡" [boundp webster-start-mark nil] 2) (defvar webster-fontify (string-match "Lucid" emacs-version) "\ *Set to t to use the Lucid Emacs font-change mechanism.") (defvar webster-iso8859/1 (string-match "Lucid" emacs-version) "\ *Set to t to print certain special characters using ISO-8859/1 codes.") (byte-code "\"!!!!\"!!!\"!!!!\"!!!!\"!!!!\"\"!!!\"!!!!!\"!!!\"!!!\"MMMM" [make-vector 511 0 webster-completion-table fboundp make-face find-face webster face-differs-from-default-p copy-face default webster-bold make-face-bold webster-italic make-face-italic webster-bold-italic make-face-bold-italic webster-underline set-face-underline-p t webster-small make-face-smaller webster-subscript webster-superscript webster-fontify #[(start end face &optional highlight) "b`U?w`T#u`p# \" TW) U p##+" [start 0 nil e count os end " " re-search-forward "[ ]" go -1 make-extent set-extent-face face highlight set-extent-property 1 t] 5] ((65 . 196) (69 . 203) (73 . 207) (79 . 214) (85 . 220) (97 . 228) (101 . 235) (105 . 239) (111 . 246) (117 . 252) (121 . 255)) webster-umlauts ((65 . 192) (69 . 200) (73 . 204) (79 . 210) (85 . 217) (97 . 224) (101 . 232) (105 . 236) (111 . 242) (117 . 249)) webster-graves ((65 . 193) (69 . 201) (73 . 205) (79 . 211) (85 . 218) (89 . 221) (97 . 225) (101 . 233) (105 . 237) (111 . 243) (117 . 250) (121 . 253)) webster-acutes webster-initial-filter #[(proc string) "p qdb !=! \"!!! \"\"q)" [this-buffer webster-buffer "closed" webster-state process-status webster-process run t webster-running message "Webster died" string-match "No such host" string kill-buffer process-buffer proc error "No such host." "]" "opening" set-process-filter webster-filter] 3] webster-filter #[(proc string) "p q~db != !\" \nd!\"!! #\nd!\"ZOP\" ) \" ~`\"dbc\"b#!s*!!`e\n} O ! *+,- q~eb\nd}.!!ܔܕ{+b|c+!++c )~\n!*dboy!)c\nd*b--!*b!,!++!,*" [nil endp this-buffer webster-buffer process-status webster-process run format "%s" webster-state webster-start-mark message "Webster died" string-match "Connection closed" string "Closing webster connection..." kill-process proc "closed" replace-regexp "Process webster killed" "" "Closing webster connection...Done." "\n\\. ?\n" end-def-message webster-filter 0 1 "\n\n" t "ready" "working" "^[45][0-9][0-9]" now search-forward " " delete-char -1 process-mark get-buffer-window selected-window p error window webster-window buffer-undo-list looking-at "WORD \"\\([^\"\n]*\\)\"\\(\n403 [^\n]+\\)\n" downcase-word 2 " not found" webster-guess-root "; trying \"" "\"..." "." webster-convert marker-position "-" "\n--------------------\n" select-window recenter 3 webster] 7] webster-guess-root #[(word) "\nÂ\n\"Â\n\"\nlj\\OP\n\"\nlj\\O\n\"\nljOP\n\"\nljOP\n\"\nǔH\nǔTHU\nlj\\O\n\"\nlj\\O\n\"\nlj\\O\n\"\nlj\\O\n\"\nljO\n\"\nǕSO)" [t case-fold-search word nil string-match "[ \n]" "[^aeiou]ing\\'" 0 1 "e" "[a-z]ing\\'" "ies\\'" "y" "ied\\'" "[^aeiouy][^aeiouy]ed\\'" "[a-z]ed\\'" 2 "[aeiouy]lly\\'" "[^l]ly\\'" "s\\'" "...ed\\'"] 4]] 3) (fset 'webster #[(arg) " \"!\"" [arg "" current-word message "looking up %s..." webster-send-request "WORD" prin1-to-string] 4 "\ Look up a word in the Webster's dictionary. Open a network login connection to a webster host if necessary. Communication with host is recorded in a buffer *webster*." (byte-code " Q ȉ$*C" ["Look up word in webster (" current-word "): " t completion-ignore-case prompt completing-read webster-completion-table nil] 5)]) (fset 'webster-endings #[(arg) " \"\"" [arg "" current-word webster-send-request "PREFIX" "LIST"] 3 "\ Look up endings for a word in the Webster's dictionary. Open a network login connection to a webster host if necessary. Communication with host is recorded in a buffer *webster*." (byte-code " Q!C" [read-string "Find endings for word in webster (" current-word "): "] 4)]) (fset 'webster-spell #[(arg) " \"\"" [arg "" current-word webster-send-request "EXACT" "LIST"] 3 "\ Look spelling for a word in the Webster's dictionary. Open a network login connection to a webster host if necessary. Communication with host is recorded in a buffer *webster*." (byte-code " Q!C" [read-string "Try to spell word in webster (" current-word "): "] 4)]) (fset 'webster-send-request #[(kind word) "! ư!\n\n!= Q!!\"\"q !\n\n!\n\"\n\"\n!u Q!\"\n !R\")" [require shell "open " webster-host " " webster-port "\n" webster-command webster-buffer buffer-name webster-process process-status run message "Attempting to connect to server " "..." fboundp make-shell make-comint webster-process-name "telnet" webster-mode get-process process-kill-without-query set-process-filter webster-initial-filter process-send-string nil webster-running accept-process-output "... Connected." display-buffer kind word] 7]) (fset 'webster-quit #[nil "\n\" !\n\"p= " [message "Closing connection to %s..." webster-host kill-process webster-process "Closing connection to %s...done" "closed" webster-state webster-buffer bury-buffer] 3 "\ Close connection and quit webster-mode. Buffer is not deleted." nil]) (fset 'webster-xref-data #[(event &optional selection-only) "\n!!\n! # \n q!!{)   \"  ?? \" ҉O ҕOP h ! +" [window-buffer event-window event buffer extent-at event-point highlight extent nil text selection-only extent-start-position extent-end-position x-selection-owner-p x-get-selection string-match "[\n ]" "\\." 0 webster-unISO] 5]) (fset 'webster-xref-word #[(event) "\n!!!" [webster webster-xref-data event error "click on a highlighted word to define"] 3 "\ Define the highlighted word under the mouse. Words which are known to have definitions are highlighted when the mouse moves over them. You may define any word by selecting it with the left mouse button and then clicking middle." "e"]) (byte-code "!M!  # # # # #\" # #Ň" [boundp webster-menu ("Webster" ["Define Word..." webster t] ["List Words Beginning With..." webster-endings t] ["Check Spelling Of..." webster-spell t] "----" ["Quit Webster" webster-quit t]) #[(event) " \" \" @C \" D#C \" D#CA!+" [webster-xref-data event nil t text2 text1 popup-menu-titles popup-menu webster-menu vector format "Define %s" webster] 7 nil "e"] webster-mode-map nil make-sparse-keymap define-key "?" describe-mode "d" webster "e" webster-endings "q" webster-quit "s" webster-spell string-match "Lucid" emacs-version button2 webster-xref-word button3] 4) (fset 'webster-mode #[nil " !!p!̘\n! dГL!L!" [kill-all-local-variables webster-mode major-mode "Webster" mode-name use-local-map webster-mode-map (" " webster-state) mode-line-process make-local-variable kill-buffer-hook buffer-name "*webster*" (lambda nil (if (get-buffer "*webster*") (kill-buffer "*webster*"))) webster-start-mark make-marker nil page-delimiter "^-" webster-iso8859/1 iso-8859/1 ctl-arrow run-hooks webster-mode-hook] 4 "\ Major mode for interacting with on-line Webster's dictionary. \\{webster-mode-map} Use webster-mode-hook for customization." nil]) (byte-code "MMMMMM" [webster-intern #[(string) " !! \"" [intern webster-strip-crud webster-unISO string webster-completion-table] 4] webster-unISO #[(text) "\n\"\nÔIr\n\"\nÔIr\n\"\nÔIr\n\"\nÔIr\n\"\nÔIr\n\"\nÔIr\n\"\nÔIr\n\"\nÔIr\n\"\nÔIr\n\"\nÔIr\n\"\nÔIr\n\"\nÔIr\n\"\nÔIr\n\"\nÔIr\n" [string-match "" text 0 99 "" 67 "" 89 "[]" 121 "[-]" 65 "[-]" 69 "[-]" 73 "[-]" 79 "[-]" 85 "[-]" 97 "[-]" 101 "[-]" 105 "[-]" 111 "[-]" 117] 3] webster-strip-crud #[(text) "\n\"\nÉO\nÕOPl\n" [string-match "." text 0 nil] 4] webster-textify-region #[(start end &optional nointern) "Sb!T }eb#4ɔb`ɕ\n u!c!c!c!c!c!c!c!c!c!c!c!c!c!c!c!c!c!c!c!c! \n|c! \n|c \\| \\\nZ|*eb#eb#!cp)beb@#A!BcChC`Z`D#Zeb# A!AuE!\"F!GH!I {!C SfJC JKULJMUNJOUPJQURJSUTJUUTJKU$)*V!CW!SfJCɔɕL#)X!Y!Z[\\cC`]#)ɔ\n^\nC^\nN#*_!Z`acb!gcCC`Z`c#d!JZgeAJJcgcZڪfc)g!J!ZgeAJJcgcZڪfchcAu)i!JZgjAJJcgckc)l!J!ZgjAJJcgckchcAu)m!JZgnAJJcgcZتc)o!J!ZgnAJJcgcZتchcAu)p!!ZgqUrsctcAuuucv!Zwxcy!Zz{c|!Z}~c!Zc!Z⪃c!Zc!c!c!c!c!c!c!c!Z~c!!!!!CC``\\P#cu!ZgqUrscuuc!ucucugg#!gcCC`Z`P#gcc`\\`\\{c!eb`d~y`} bm?`wiY b WwO+" [end looking-at "[^\n]\n" nil case-fold-search start re-search-forward "(Q[-a-z0-9*$ ]+)Q" t 0 e s 3 "circumflex" 94 "brace" 123 "tilda" 126 "prime" 39 "accent grave" 96 "accent acute" 180 "sub-diaeresis" 168 "macron" 175 "a-e" 230 "curly-N" 241 "sub-macron" 247 "slash-o" 248 "cidilla" 249 "sup-circle" 250 "macron-tilda" 251 "hachek" 252 "sub-breve" 253 "breve" 254 "sub-dot" 255 "double-bar-\\$" 36 "10\\*10\\*100" "10^10^100" "plus squareroot -1" "sqrt(-1)" 1 2 search-forward "|B" delete-char -3 "" "@" -1 "~" webster-fontify webster-bold-italic "([MXYAIJ]" "([MXYAIJ]\\([^)]*\\))" nointern "(M" webster-intern c 77 webster-small 88 webster-italic 89 webster-bold 65 webster-superscript 73 webster-subscript 74 "([BGR]" "(\\(.\\)[^)]*)\\1" ")[ABGIJMRXY]" "<(\\|(<" webster-iso8859/1 171 "<<" ")>" p ")>\\|>)" 187 ">>" "[a-z][-._]" webster-underline "[a-zA-Z]:" webster-umlauts 58 "[\"~][a-zA-Z]" " " "[a-zA-Z])" webster-graves "`" ">[a-zA-Z]" "[a-zES](" webster-acutes "<[a-zA-Z]" ";[Cc]" 67 199 231 32 44 "|S" 167 "SS" "|q" 182 "PP" "*o" 183 42 "+=" 177 "+/-" "-:" "-[xX]" 215 "-m" "--" "-n" "-" "-/" "\\" ")|" 91 "|)" 93 "-3" "..." "=\\\\" "$" "'o" 176 "nj" "|-" "|=" "|o" "'b" " " -2 "[cC]" "/[a-zA-Z]" " <" 62 -5 format "[%c][%c]" "^ \n " fill-column delete-horizontal-space "\n" fill-prefix "" " \n "] 6] webster-pos #[(start end) "b SU!Ă  ZU {!Ȃ!ʂ!̂!΂!Ȃ!т!ӂ!Ղ!ׂ!ق!ۂ!̂!ު!!!!!!!!!!!!!!ꪋ! {)" [start end looking-at "n" "noun" webster-fontify 2 "ac" "adjective combinational form" "aj" "adjective" "as" "adjective suffix" "av" "adverb" "ca" "cf" "combinational form" "cj" "conjunction" "da" "definite article" "ia" "indefinite article" "ij" "interjection" "is" "interjection suffix" "js" "nc" "noun combinational form" "np" "noun plural suffix" "ns" "noun suffix" "pf" "prefix" "pn" "pronoun" "pp" "preposition" "sf" "verb suffix" "tm" "trademark" "va" "verbal auxilliary" "vb" "verb" "vc" "verb combinational form" "vi" "verb intransitive" "vm" "verb impersonal" "vp" "verb imperfect" "vs" "vt" "verb transitive"] 3] webster-convert #[nil "eb#u!yvy!du`y`)Z ! Ucy)[)eb‰mg!``|)!!!`h=S`|)cm!yc‰!ȔȕS{!ȕbca$V!``{!$*!!!`h=S`|)!J!!`S‰&'()*+!`ȕ{+!!`ȕ{*!!`ȕ{\")!!!`ȕ\"(!!`ȕ\"'!`ȕ\"&`|yc`)`{!`$)y+c`+c`#)u))@Zuc)A)n`((''&&('&`#)c(.!!!c`9cS`S#u`\"c*!!c9``\")c!!c@9``\")ŁA!‰BCDEF!`!`ȕ{F!!`ȕ{E!!`ȕ{D!!G`ȕ{!C!!`ȕ{B`|cC=HFI C=HFJ C=Kc C=HBLFJ C=MFICN=MFJCO=PFICQ=RcCS=TFICU=VFIWCX9`\".ŁY!P‰Z[\\ `u!`ȕ{ !!`ȕ{\\!!`ȕ{[!!`ȕ\"Z!`|[[]\\\\\\^ _=  \\\\[[ZZ``Zױ`S#Z)O GZj`  a ͱ\\\\ͱ[b[cdc`#`e[f\\gUh\"9`\".Łi!!c!!y`\\)jj`{!j`$)!`ȕ{\")`ȕ|yu))@Zuc)A)n)!!`!`|)cŁk!`lȕSmlm\"(lm|(cl`#+#!c#!cŁn!‰[\\ `u!`ȕ{ !!`ȕ{\\!!`ȕ{[!`|[[]\\\\\\^ O GZj` a ͱ\\\\[b[oc`#`e[f\\gUh\"9`\"-Łp!!`j!!݊y`j)`{!j`$!`ȕ{\")`ȕ|y))@Zuc)A)n)!`S`)|9`#+yq=!r=!scc)Łt!!Łu!``)|!vcyo?y!)M!k+ebw#ebxyebebm?zw{`!|!Tbk}`y`\"~\"J*" [re-search-forward "^C:" nil t -2 looking-at 1 -1 0 n delete-char 3 79 " " last-part this-type last-type "^WORD " p "^21[12] " 4 "^220 " 10 "\n" "\n\n" " " e s "[^\n;]+;" webster-intern webster-fontify webster-bold "^\n" "^\\(200\\|221\\|PREFIX\\|LIST\\|EXACT\\)[- ]" "^F:" 2 search-forward ";" pos2 posj pos dots prefix homonym "[0-9]+" "[^;]+" append "[a-z]+" webster-pos webster-bold-italic 48 "." webster-italic " " "^P:" " \\" " " fill-prefix webster-textify-region "\\" "E:" " [" "]" "S:" " " "X:" word2 type sub super word string-to-int "see (M" ")M" ")M table" "### ILLEGAL XREF CODE 2" ")M at (M" "compare (M" 5 6 "called also (M" 7 "### ILLEGAL XREF CODE 7" 8 "(Ysyn)Y see in addition (M" 9 "(Ysyn)Y see (M" "#### ILLEGAL XREF CODE " "nil" "D:" part sub2 sub1 "1" "a" 76 " " "0" " (" ") " ": " make-string 17 12 32 "R:" beg "[a-z][a-z]?;" start end "L:" ")" "V:" 70 86 "; " ".\n" "22[0-9] " "* " "" "\n**** This definition contains unrecognized font-change codes." "\n**** Please tell jwz.\n\n" " " extent-at extent-end-position make-extent set-extent-face webster] 8]] 2)