diff options
| -rw-r--r-- | lisp/complete.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/complete.el b/lisp/complete.el index da75ed2dbe1..0050ecf7b90 100644 --- a/lisp/complete.el +++ b/lisp/complete.el | |||
| @@ -1107,11 +1107,11 @@ This is only used by " | |||
| 1107 | (format (if (string-match "/\\'" x) "<%s" "<%s>") x)) | 1107 | (format (if (string-match "/\\'" x) "<%s" "<%s>") x)) |
| 1108 | (PC-include-file-all-completions | 1108 | (PC-include-file-all-completions |
| 1109 | name (PC-include-file-path))))) | 1109 | name (PC-include-file-path))))) |
| 1110 | (cond | 1110 | (cond |
| 1111 | ((not completion-table) nil) | 1111 | ((not completion-table) nil) |
| 1112 | ((eq action 'lambda) (test-completion str2 completion-table nil)) | 1112 | ((eq action 'lambda) (test-completion str2 completion-table nil)) |
| 1113 | ((eq action nil) (PC-try-completion str2 completion-table nil)) | 1113 | ((eq action nil) (PC-try-completion str2 completion-table nil)) |
| 1114 | ((eq action t) (all-completions str2 completion-table nil)))) | 1114 | ((eq action t) (all-completions str2 completion-table nil)))) |
| 1115 | (read-file-name-internal string dir action))) | 1115 | (read-file-name-internal string dir action))) |
| 1116 | 1116 | ||
| 1117 | 1117 | ||