HOME

sh-3ll 1.0

DIR:/proc/self/root/proc/thread-self/root/usr/share/emacs/26.1/lisp/

Current File : //proc/self/root/proc/thread-self/root/usr/share/emacs/26.1/lisp/soundex.elc

;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?\2057P\262\262\202\303GV\203P\304P\301\303O\202Q\207" [soundex-alist 0 1 4 "000"] 10 (#$ . 706)])
(provide 'soundex)