Edit file File name : soundex.elc Content :;ELC ;;; Compiled ;;; in Emacs version 26.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@55 Alist of chars-to-key-code for building Soundex keys. (defconst soundex-alist '((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")) (#$ . 408)) #@191 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. (fn WORD) (defalias 'soundex #[257 "\211\226\211G\301H\236A\301\302O\302\303GV\203@ W\203@ H\236A\262T\262?\2062 \230?\2057 P\262\262\202 \303GV\203P \304P\301\303O\202Q \207" [soundex-alist 0 1 4 "000"] 10 (#$ . 706)]) (provide 'soundex) Save