diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-03-28 19:33:45 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-03-28 19:33:45 +0000 |
| commit | a7ad007929b1d18cf0487901b9294a54a2e51a0c (patch) | |
| tree | c1a6ab66b4fd4a5590882913458af5af642a0bd2 /lisp | |
| parent | 5e472af02dd1abba631eb1e9d13efbdbef650780 (diff) | |
| download | emacs-a7ad007929b1d18cf0487901b9294a54a2e51a0c.tar.gz | |
(PC-read-include-file-name-internal): Use test-completion.
Diffstat (limited to 'lisp')
| -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." ((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 |