# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1112038425 0
# Node ID 31060527396cf694a975aed0e568609fe1d53810
# Parent  7c41b8d87504650e4659336017367a36a1e1e0d0
(PC-read-include-file-name-internal): Use test-completion.

diff -r 7c41b8d87504 -r 31060527396c lisp/complete.el
--- a/lisp/complete.el	Mon Mar 28 17:33:37 2005 +0000
+++ b/lisp/complete.el	Mon Mar 28 19:33:45 2005 +0000
@@ -937,12 +937,11 @@
 	 ((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