Mercurial > emacs
comparison lisp/complete.el @ 61042:31060527396c
(PC-read-include-file-name-internal): Use test-completion.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 28 Mar 2005 19:33:45 +0000 |
| parents | 242e5edee3ce |
| children | 6fb026ad601f 4da4a09e8b1b |
comparison
equal
deleted
inserted
replaced
| 61041:7c41b8d87504 | 61042:31060527396c |
|---|---|
| 935 name (PC-include-file-path))))) | 935 name (PC-include-file-path))))) |
| 936 (cond | 936 (cond |
| 937 ((not completion-table) nil) | 937 ((not completion-table) nil) |
| 938 ((eq action nil) (try-completion str2 completion-table nil)) | 938 ((eq action nil) (try-completion str2 completion-table nil)) |
| 939 ((eq action t) (all-completions str2 completion-table nil)) | 939 ((eq action t) (all-completions str2 completion-table nil)) |
| 940 ((eq action 'lambda) | 940 ((eq action 'lambda) (test-completion str2 completion-table nil)))) |
| 941 (eq (try-completion str2 completion-table nil) t)))) | |
| 942 (funcall PC-old-read-file-name-internal string dir action))) | 941 (funcall PC-old-read-file-name-internal string dir action))) |
| 943 | 942 |
| 944 | 943 |
| 945 (provide 'complete) | 944 (provide 'complete) |
| 946 | 945 |
| 947 ;;; arch-tag: fc7e2768-ff44-4e22-b579-4d825b968458 | 946 ;; arch-tag: fc7e2768-ff44-4e22-b579-4d825b968458 |
| 948 ;;; complete.el ends here | 947 ;;; complete.el ends here |