%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/soundex.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\302\301\303#\303\304GV\203AW\203AH\236A\262T\262?\2063\230?\2058P\262\262\202\304GV\203R\302\305P\301\304#\202S\207" [soundex-alist 0 substring 1 4 "000"] 11 (#$ . 706)])
(provide 'soundex)

Zerion Mini Shell 1.0