;ELC   
;;; compiled by roland@churchy.gnu.ai.mit.edu on Thu Jun 23 20:59:59 1994
;;; from file /gd/gnu/emacs/19.0/lisp/soundex.el
;;; emacs version 19.25.13.
;;; 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"))

(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"))) "\
Alist of chars-to-key-code for building Soundex keys.")
(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 "\
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."])