diff options
| author | Stefan Monnier | 2005-03-28 19:33:45 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2005-03-28 19:33:45 +0000 |
| commit | a7ad007929b1d18cf0487901b9294a54a2e51a0c (patch) | |
| tree | c1a6ab66b4fd4a5590882913458af5af642a0bd2 | |
| parent | 5e472af02dd1abba631eb1e9d13efbdbef650780 (diff) | |
| download | emacs-a7ad007929b1d18cf0487901b9294a54a2e51a0c.tar.gz emacs-a7ad007929b1d18cf0487901b9294a54a2e51a0c.zip | |
(PC-read-include-file-name-internal): Use test-completion.
| -rw-r--r-- | lisp/complete.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/complete.el b/lisp/complete.el index 337af81de71..60bddd01f17 100644 --- a/lisp/complete.el +++ b/lisp/complete.el | |||
| @@ -937,12 +937,11 @@ absolute rather than relative to some directory on the SEARCH-PATH." | |||
| 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 |