diff options
| -rw-r--r-- | lisp/net/tramp.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 2a60aff383b..e51a1c7f8aa 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el | |||
| @@ -2597,11 +2597,13 @@ not in completion mode." | |||
| 2597 | (defun tramp-completion-handle-file-name-completion | 2597 | (defun tramp-completion-handle-file-name-completion |
| 2598 | (filename directory &optional predicate) | 2598 | (filename directory &optional predicate) |
| 2599 | "Like `file-name-completion' for Tramp files." | 2599 | "Like `file-name-completion' for Tramp files." |
| 2600 | (try-completion | 2600 | ;; Suppress eager completion on not connected hosts. |
| 2601 | filename | 2601 | (let ((non-essential t)) |
| 2602 | (mapcar #'list (file-name-all-completions filename directory)) | 2602 | (try-completion |
| 2603 | (when (and predicate (tramp-connectable-p directory)) | 2603 | filename |
| 2604 | (lambda (x) (funcall predicate (expand-file-name (car x) directory)))))) | 2604 | (mapcar #'list (file-name-all-completions filename directory)) |
| 2605 | (when (and predicate (tramp-connectable-p directory)) | ||
| 2606 | (lambda (x) (funcall predicate (expand-file-name (car x) directory))))))) | ||
| 2605 | 2607 | ||
| 2606 | ;; I misuse a little bit the `tramp-file-name' structure in order to | 2608 | ;; I misuse a little bit the `tramp-file-name' structure in order to |
| 2607 | ;; handle completion possibilities for partial methods / user names / | 2609 | ;; handle completion possibilities for partial methods / user names / |