]> code.delx.au - gnu-emacs/blobdiff - lisp/soundex.el
(setup-default-fontset): Change registry names of Akurti fonts.
[gnu-emacs] / lisp / soundex.el
index 253a02315bd2aed28bada37d72e7d9a97e1384b2..f0c5445817a8c6a3469119c5f0e0ec7c37fd8e0c 100644 (file)
@@ -1,9 +1,9 @@
-;;; soundex.el -- implement Soundex algorithm
+;;; soundex.el --- implement Soundex algorithm
 
 ;; Copyright (C) 1993 Free Software Foundation, Inc.
 
 ;; Author: Christian Plaunt <chris@bliss.berkeley.edu>
-;; Maintainer: FSF 
+;; Maintainer: FSF
 ;; Keywords: matching
 ;; Created: Sat May 15 14:48:18 1993
 
@@ -29,7 +29,7 @@
 ;; The Soundex algorithm maps English words into representations of
 ;; how they sound.  Words with vaguely similar sound map to the same string.
 
-;;; Code: 
+;;; Code:
 
 (defvar soundex-alist
   '((?B . "1") (?F . "1") (?P . "1") (?V . "1")
@@ -71,4 +71,6 @@ and Searching\", Addison-Wesley (1973), pp. 391-392."
 ;("E460" "G200" "H416" "K530" "L300" "L222"
 ; "E460" "G200" "H416" "K530" "L300" "L222")
 
-;; soundex.el ends here
+(provide 'soundex)
+
+;;; soundex.el ends here