diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-14 03:30:47 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-14 03:30:47 +0000 |
| commit | 2ed430f471ba94b80586e9c955341b5d180acdee (patch) | |
| tree | 33af6d7de00ee043e75a95c57e71da9dd19670fa /lisp/minibuffer.el | |
| parent | 52434c810ea7264df27e6a1e8a0ce47ac58a1d62 (diff) | |
| download | emacs-2ed430f471ba94b80586e9c955341b5d180acdee.tar.gz | |
(minibuffer-try-completion, minibuffer-all-completions): Fix last change.
Diffstat (limited to 'lisp/minibuffer.el')
| -rw-r--r-- | lisp/minibuffer.el | 4 |
1 files changed, 2 insertions, 2 deletions
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)))) |