;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:51:29 1995
;;; from file /gd/gnu/emacs/19.0/lisp/soundex.el
;;; emacs version 19.28.90.26.
;;; bytecomp version FSF 2.10
;;; 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 "`/gd/gnu/emacs/19.0/lisp/soundex.el' was compiled for Emacs 19"))


#@55 Alist of chars-to-key-code for building Soundex keys.
(defvar soundex-alist (quote ((66 . "1") (70 . "1") (80 . "1") (86 . "1") (67 . "2") (71 . "2") (74 . "2") (75 . "2") (81 . "2") (83 . "2") (88 . "2") (90 . "2") (68 . "3") (84 . "3") (76 . "4") (77 . "5") (78 . "5") (82 . "6"))) (#$ . 483))
#@180 Return a Soundex key for WORD.
Implemented as described in:
Knuth, Donald E. "The Art of Computer Programming, Vol. 3: Sorting
and Searching", Addison-Wesley (1973), pp. 391-392.
(defalias 'soundex #[(word) "–‰GÂHžAÂÅOÅ\fÉGVƒN 	WƒN HžAT\f?†@ \f˜?…E \fP\f‚ ÉGVƒ` ÊPÂÉO‚b .‡" [word length 0 soundex-alist code 1 key index prev-code 4 "000"] 4 (#$ . 786)])