* lisp/files.el (locate-file-completion-table): Fix typo

diff --git a/lisp/files.el b/lisp/files.el
index bb77dcb3c7e115f5cb2f4f68d50a4f29651e1d64..2c45a8b1078445bd48c0865bc9a8141cbb56f077 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -958,7 +958,7 @@ one or more of those symbols."
       ;; M-x load-library RET t/x.e TAB finds some files.  Also remove elements
       ;; from `names' that matched `string' only when they still had
       ;; their suffix.
-      (setq names (all-completions string names))
+      (setq names (all-completions string-file names))
       ;; Remove duplicates of the first element, so that we can easily check
       ;; if `names' really contains only a single element.
       (when (cdr names) (setcdr names (delete (car names) (cdr names))))