+ "The default strategy for listing matching words within a popup window.
+The following algorithm (defined by the dictd server) are supported
+ The found word exactly matches the searched word.
+ The found word sounds similiar to the searched word. For this match type
+ the soundex algorithm defined by Donald E. Knuth is used. It will only
+ works with english words and the algorithm is not very reliable (i.e.,
+ the soundex algorithm is quite simple).
+- Levenshtein distance one
+ The Levenshtein distance is defined as the number of insertions, deletions,
+ or replacements needed to get the searched word. This algorithm searches
+ for word where spelling mistakes are allowed. Levenshtein distance one
+ means there is either a deleted character, an inserted character, or a
+ Here you can enter any matching algorithm supported by your
+ :type '(choice (const :tag "Exact match" "exact")
+ (const :tag "Similiar sounding" "soundex")
+ (const :tag "Levenshtein distance one" "lev")
+ (string :tag "User choice")))
"Create some clickable buttons on top of the window if non-nil."
(error "Sorry, popup menus are not available in this emacs version"))
(dictionary-do-matching (or word (current-word))
(defun dictionary-process-popup-replies (reply)