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

This commit is contained in:
Stefan Monnier 2005-03-28 19:33:45 +00:00
parent 5e472af02d
commit a7ad007929

View file

@ -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