;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 "ÀÁÂ\"ÄÅ!ƒÂ ÆÇ!¬ŒÈÅÇ!!¬…ÉÊÇ\"ˆÆË!¬�ÈÅË!!¬‰ÉÇË\"ˆÌË!ˆÆÍ!¬�ÈÅÍ!!¬‰ÉÇÍ\"ˆÎÍ!ˆÆÏ!¬�ÈÅÏ!!¬‰ÉÇÏ\"ˆÐÏ!ˆÆÑ!¬‘ÈÅÑ!!¬ŠÉÇÑ\"ˆÒÑÓ\"ˆÆÔ!¬•ÈÅÔ!!¬ŽÉËÔ\"ˆÄÕ!«„ÕÔ!ˆÆÖ!¬¡ÈÅÖ!!¬šÉÍÖ\"ˆÄÕ!«‹ÕÖ!«‹ÕÖ!ˆª…ÒÖÓ\"ˆÆ×!¬ŒÈÅ×!!¬…ÉÖ×\"ˆØÙMˆÚÜÞàáMˆâãMˆäåM‡" [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#Í\"ˆTªW)­’ÐÑ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	qˆdbˆÂÄ!Æ=¬‰ÇÉÊ!ˆª©ËÌ\"«�ÇÎÏ!!ˆÑÒ!ˆª’ËÓ\"«‹ÇÔÕÖ\"ˆ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À“ˆË×!ˆªãÍØ\"‰­•ÚÛÜZOÝP\"ˆÞß	Þ)¬Áà	Íá\"«…ß	Þ~ˆ`\"dbˆcˆŠ\"bˆãäÀÞ#«†åæ!ˆªs*ç!«ˆç!`À“ˆe\n}ˆ	…Oè!é À‰*+,-qˆ~ˆebˆ\nd}ˆÞ.ïð!«¯ñÜ!ˆÜ”Ü•{+ò”bˆò”ò•|ˆócˆô+!‰+«‰õ+ö±ˆªˆ÷cˆªƒø ˆ)~ˆù\n!*dbˆo¬�Šæyˆïú!)¬ƒû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\"«Œ\nÇ‰”È\\OÉP‚· ÄÊ\n\"«Š\nÇ‰”È\\O‚· ÄË\n\"«‰\nÇ‰”OÌPªóÄÍ\n\"«‰\nÇ‰”OÌPªäÄÎ\n\"«•\nÇ”H\nÇ”THU«‰\nÇ‰”È\\OªÉÄÏ\n\"«‰\nÇ‰”Ð\\OªºÄÑ\n\"«‰\nÇ‰”Ð\\Oª«ÄÒ\n\"«‰\nÇ‰”È\\OªœÄÓ\n\"«‡\nÇ‰”Oª�ÄÔ\n\"«ˆ\nÇ•SÃOª�Ã)‡" [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Ã#C¤A¤!+‡" [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 "ÀÁMˆÂÃMˆÄÅMˆÆÇMˆÈÉMˆÊËM‡" [webster-intern #[(string) "ÀÁÂ—!!\"‡" [intern webster-strip-crud webster-unISO string webster-completion-table] 4] webster-unISO #[(text) "ÀÁ\n\"«ˆ\nÃ”ÄIˆªrÀÅ\n\"«ˆ\nÃ”ÆIˆªrÀÇ\n\"«ˆ\nÃ”ÈIˆªrÀÉ\n\"«ˆ\nÃ”ÊIˆªrÀË\n\"«ˆ\nÃ”ÌIˆªrÀÍ\n\"«ˆ\nÃ”ÎIˆªrÀÏ\n\"«ˆ\nÃ”ÐIˆªrÀÑ\n\"«ˆ\nÃ”ÒIˆªrÀÓ\n\"«ˆ\nÃ”ÔIˆªrÀÕ\n\"«ˆ\nÃ”ÖIˆªrÀ×\n\"«ˆ\nÃ”ØIˆªrÀÙ\n\"«ˆ\nÃ”ÚIˆªrÀÛ\n\"«ˆ\nÃ”ÜIˆªrÀÝ\n\"«ˆ\nÃ”ÞIˆªr\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Ã•ÄOPªl\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ˆª‘‰Ì\\|ˆù\\\núZ|ˆ*‚ ebˆûüÃÈ#«—ebˆŠûüÃÈ#«‰ýþ!ˆÿcˆªp)ªbebˆû�@ ÃÈ#«�ý�A !ˆ�B cˆC«h�C `ùZ`�D #ˆªZebˆûÿÃÈ#ƒý�A !ˆ�A uˆÁ�E !ƒ\"Á�F !ˆù”ù•G¬�Á�H !«ˆ�I {!ˆC«ßSfJ�C J�K U«…�L ª¿J�M U«…�N ª²J�O U«…�P ª¥J�Q U«…�R ª˜J�S U«…�T ª‹J�U U­ƒ�T J�K U$ˆ)*‚Á�V !«£CƒÁ�W !ƒù”SfJ�C É”É•�L #ˆ)‚Á�X !„Á�Y !«¹Z«…�[ ªƒ�\\ cˆCƒ`Šû�] ÃÈ#)­‚É”\n^\n«Œ�C ^\n�N #ˆ*‚Á�_ !«‘Z«…�` ªƒ�a cˆ‚Á�b !«—gcˆCƒ�C `ùZ`�c #ˆ‚Á�d !«ªÃJZ«�gežA‰J«†Jcˆª�gcˆZ«ƒÚªƒ�f cˆ)‚Á�g !«¸ÃJýù!ˆZ«�gežA‰J«†Jcˆª�gcˆZ«ƒÚªƒ�f cˆ�h cˆ�A uˆ)‚Á�i !«£ÃJZ«�gjžA‰J«†Jcˆªˆgcˆ�k cˆ)‚Á�l !«±ÃJýù!ˆZ«�gjžA‰J«†Jcˆªˆgcˆ�k cˆ�h cˆ�A uˆ)‚Á�m !«¨ÃJZ«�gnžA‰J«†Jcˆª�gcˆZ«ƒØª�Ôcˆ)‚Á�o !«¶ÃJýù!ˆZ«�gnžA‰J«†Jcˆª�gcˆZ«ƒØª�Ôcˆ�h cˆ�A uˆ)‚Á�p !«±ýù!ˆZ«žg�q U«…�r ªƒ�s cˆ�t cˆ�A uˆ‚ùuˆ�u cˆ‚Á�v !«‘Z«…�w ªƒ�x cˆ‚Á�y !«‘Z«…�z ªƒ�{ cˆ‚Á�| !«‘Z«…�} ªƒ�~ cˆ‚Á� !«‘Z«…�€ ªƒ�� cˆ‚Á�‚ !«�Z«ƒâªƒ�� cˆ‚Á�ƒ !«‘Z«…�„ ªƒ�� cˆ‚Á�… !«ˆ�† cˆ‚Á�‡ !«ˆ�ˆ cˆ‚Á�‰ !«ˆ�Š cˆ‚Á�‹ !«ˆ�Œ cˆ‚Á�� !«ˆ�Ž cˆ‚Á�� !«ˆ�� cˆ‚Á�‘ !«ˆ�’ cˆ‚Á�“ !«‘Z«…�” ªƒ�~ cˆ‚Á�• !¬œÁ�– !¬•Á�— !¬ŽÁ�˜ !¬‡Á�™ !«œC«Œ�C ``ú\\�P #ˆ�š cˆ�› uˆª÷Á�œ !«¡Z«“g�q U«…�r ªƒ�s cˆªÙùuˆ�u cˆªÏÁ�� !«—ùuˆ�ž cˆùuˆ�Ÿ cˆ�  uˆª±Á�¡ �¢ gg#!«•gcˆC«��C `ùZ`�P #ˆª�gcˆÿcˆ`ù\\`ú\\{cˆýú!ˆ‚�ebˆ`d~ˆÉyˆ`}ˆbˆm?­­`�£ Ãwˆi¤Y«—bˆ�¥  ˆ�¦ §®ƒ�¨ ±ˆªW�© ÃwˆªO+‡" [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ˆÅÁ!«…ÆyˆªvÇyˆÅÁ!«dÇuˆ`ŠÈyˆ`)Z	ÊË!ˆ	ÌU«ƒÍcˆÈyˆ)ª[)ebˆÂ‰‰m„àgÅÑ!«�`Âˆ`|ˆ)‚ÄÅÓ!«‡ÊÔ!ˆ‚ÄÅÕ!«ý`hÖ=«…SÂˆ`|ˆ)×cˆm„ÄÅØ!„ÄÆyˆÙcˆÂ‰ÅÜ!«¥ÝÈ”‰È•S‰{!ˆÈ•bˆÍcˆ«aÞßÃ$ˆªVÅ×!¬œÝ`‰Âˆ`‰{!ˆ«‰ÞßÃ$ˆ*ªÅà!«‡ÊÆ!ˆ‚ÄÅá!«™`hÖ=«…SÂˆ`|ˆ)‚ÄÅâ!ƒJÊã!ˆäå!ˆ`SÂ‰‰‰‰‰&'()*+Åì!«†`È•{+äå!ˆÅí!«†`È•{*äå!ˆÅì!«‰î`È•{Â\")äå!ˆäå!ˆÅï!«‡ð`È•\"(äå!ˆÅï!«‡ð`È•\"'Åï!«‡ð`È•\"&Âˆ`|ˆÈyˆÍcˆŠÂˆ`)Ý`{!ˆ«ˆÞ`ßÃ$ˆ)Èyˆ+¬…Ícˆª“`+cˆ«‡Þ`ñ#ˆ)Æuˆ)«’)@òZuˆócˆ)A‰)¬nÂˆ`(«†Í(±ˆ'«†Í'±ˆ&«†Í&±ˆ«“(¬ˆ'¬„&«‡Þ`ô#ˆ)õcˆ(.‚ÄÅö!«´Êã!ˆÊÇ!ˆ÷cˆ`ø9ÂˆÍcˆ«ŒÞS`Sô#ˆÇuˆú`\"ˆûcˆ*‚ÄÅü!«™Êã!ˆýcˆÙ9ú`Âˆ`\"ˆ)þcˆ‚ÄÅÿ!«˜Êã!ˆõcˆ�@ 9ú`Âˆ`\"ˆ)‚ÄÅ�A !ƒÂÂ‰‰‰‰‰BCDEFÊã!ˆ`Åí!«‡`È•{–Fäå!ˆÅí!«†`È•{Eäå!ˆÅí!«†`È•{Däå!ˆÅì!«Š�G `È•{!Cäå!ˆÅí!«‡`È•{–B`|ˆõcˆCÈ=«Ž�H F�I ±ˆ‚	CÆ=«Ž�H F�J ±ˆ‚	Cã=«ˆ�K cˆ‚	CË=«“�H B�L F�J ±ˆ‚	CÔ=«��M F�I ±ˆªðC�N =«��M F�J ±ˆªÛC�O =«��P F�I ±ˆªÆC�Q =«‡�R cˆª·C�S =«��T F�I ±ˆª¢C�U =«��V F�I ±ˆª��W C®ƒ�X ±ˆø9ú`\"ˆ.‚ÄÅ�Y !ƒPÂ‰‰‰‰Z[\\	`ãuˆÅì!«†`È•{	äå!ˆÅï!«†`È•{\\äå!ˆÅì!«†`È•{[äå!ˆÅï!«‡ð`È•\"Zäå!ˆ`|ˆ[«‹[�] š¬ƒÍ\\\\«‹\\�^ š¬ƒÍ	�_ =«•	­�Í	\\­�Í\\[­�Í[Z«¤Zš¬�`�` Z×±ˆ«ˆÞ`Sô#ˆZ)�O 	GZjˆ`	«Ž	�a š¬†	Í±ˆ\\«‡Í\\Í±ˆ[«‹�b [�c ±ˆ�d cˆ«‡Þ`ñ#ˆ`Âˆ�e [«…�f ªŒ\\«…�g ªƒ�U �h \"9ú`\"ˆ.‚ÄÅ�i !ƒÊã!ˆõcˆäå!ˆÊÇ!ˆŠÈyˆ`ã\\)jÝj`{!ˆ«ˆÞj`ßÃ$ˆ)Åì!««î`È•{Â\")`È•|ˆÈyˆãuˆ)«’)@òZuˆócˆ)A‰)¬n)äå!ˆÊÇ!ˆ`äå!ˆ`|ˆ)ÍcˆÅ�k !«¦`lÈ•Smðlm\"(lm|ˆ(cˆ«‡Þl`ô#ˆ+äåÂÃ#«‡ÊÇ!ˆÍcˆäåÂÃ#ƒÄÊÇ!ˆÍcˆ‚ÄÅ�n !ƒöÂ‰‰‰[\\	`ãuˆÅì!«†`È•{	äå!ˆÅï!«†`È•{\\äå!ˆÅì!«†`È•{[äå!ˆ`|ˆ[«‹[�] š¬ƒÍ\\\\«‹\\�^ š¬ƒÍ	�O 	GZjˆ`	�a š¬‰	®�ÍÍ±ˆ\\«†Í\\±ˆ[«‹�b [�o ±ˆÍcˆ«‡Þ`ñ#ˆ`Âˆ�e [«…�f ªŒ\\«…�g ªƒ�U �h \"9ú`\"ˆ-‚ÄÅ�p !ƒ›Êã!ˆ`Âjäå!ˆÊÇ!ˆÝŠÈyˆ`‰j)`{!ˆ«ˆÞj`ßÃ$ˆÅì!«¨î`È•{Â\")`È•|ˆÈyˆ)«’)@òZuˆócˆ)A‰)¬n)äå!ˆ`SŠÂˆ`)|ˆÙ9ú`Ã#ˆ+ŠÈyˆ�q =«†ÊÇ!ˆª–�r =«‹ÊÇ!ˆ�s cˆªƒõcˆ)ª©Å�t !«†ÊÆ!ˆªœÅ�u !«‹`ŠÂˆ`)|ˆªŠÅ×!¬…�v cˆÆyˆŠo?­†ÇyˆÅ×!)ƒM ÊÇ!ˆªk+ebˆä�w ÂÃ#«�ebˆ�x �y ±ˆebˆ­¾ŠÂebˆm?­²�z Âwˆ�{ `!‰«‹�| !Tbˆªk�} `Æ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)
