(PC-read-include-file-name-internal): Use test-completion.

a7ad0079 · Stefan Monnier · 5e472af0 · a7ad0079
Commit a7ad0079 authored Mar 28, 2005 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 3 deletions

lisp/complete.el lisp/complete.el +2 -3

No files found.
--- a/lisp/complete.el
+++ b/lisp/complete.el
@@ -937,12 +937,11 @@ absolute rather than relative to some directory on the SEARCH-PATH."
 	 ((not completion-table) nil)
 	 ((eq action nil) (try-completion str2 completion-table nil))
 	 ((eq action t) (all-completions str2 completion-table nil))
-	 ((eq action 'lambda)
-	  (eq (try-completion str2 completion-table nil) t))))
+	 ((eq action 'lambda) (test-completion str2 completion-table nil))))
    (funcall PC-old-read-file-name-internal string dir action)))


 (provide 'complete)

-;;; arch-tag: fc7e2768-ff44-4e22-b579-4d825b968458
+;; arch-tag: fc7e2768-ff44-4e22-b579-4d825b968458
 ;;; complete.el ends here