Commit 2ed430f4 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent 52434c81
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment