| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/soundex.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:31 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/soundex.el ;;; in Emacs version 24.3.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. (defvar 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")) (#$ . 550)) #@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) "\226\211G\306H\n\236A\306\307O \307 \n\310\fGV\203E W\203E H\n\236A T\f ?\2068 \n\230?\205= P \n\202 \310\fGV\203U \f\311P\306\310O\202V \f.\207" [word length soundex-alist code key index 0 1 4 "000" prev-code] 4 (#$ . 846)]) (provide 'soundex)