From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 14 Apr 2008 03:30:47 +0000 (+0000)
Subject: (minibuffer-try-completion, minibuffer-all-completions): Fix last change.
X-Git-Tag: emacs-pretest-23.0.90~6288
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ed430f471ba94b80586e9c955341b5d180acdee;p=emacs.git

(minibuffer-try-completion, minibuffer-all-completions): Fix last change.
---

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index c112db5a7c8..180a44dea15 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -218,7 +218,7 @@ ALL-COMPLETIONS is the function that lists the completions.")
   (if (and (symbolp table) (get table 'no-completion-styles))
       (try-completion string table pred)
     (completion--some (lambda (style)
-                        (funcall (intern (concat style "try-completion"))
+                        (funcall (nth 1 (assq style completion-styles-alist))
                                  string table pred))
                       completion-styles)))
 
@@ -227,7 +227,7 @@ ALL-COMPLETIONS is the function that lists the completions.")
     (if (and (symbolp table) (get table 'no-completion-styles))
         (all-completions string table pred hide-spaces)
       (completion--some (lambda (style)
-                          (funcall (intern (concat style "all-completions"))
+                          (funcall (nth 2 (assq style completion-styles-alist))
                                    string table pred hide-spaces))
                         completion-styles))))