# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1208143847 0
# Node ID f2cff391663be9965a4afcede0162cd2fd9fb8bb
# Parent  2dcfdc0c1d072a37bfe0c2901b143a39bcb045ff
(minibuffer-try-completion, minibuffer-all-completions): Fix last change.

diff -r 2dcfdc0c1d07 -r f2cff391663b lisp/minibuffer.el
--- a/lisp/minibuffer.el	Mon Apr 14 02:42:11 2008 +0000
+++ b/lisp/minibuffer.el	Mon Apr 14 03:30:47 2008 +0000
@@ -218,7 +218,7 @@
   (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 @@
     (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))))