[Emacs-diffs] master d2d6583: Suppress eager completion on not connected hosts in Tramp

[Michael Albinus]

branch: master
commit d2d658320ee91ed4f61becd5ca996bd9033b7327
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    Suppress eager completion on not connected hosts in Tramp
    
    * lisp/net/tramp.el (tramp-completion-handle-file-name-completion):
    Bind `non-essential' to t.
---
 lisp/net/tramp.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 2a60aff..e51a1c7 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -2597,11 +2597,13 @@ not in completion mode."
 (defun tramp-completion-handle-file-name-completion
   (filename directory &optional predicate)
   "Like `file-name-completion' for Tramp files."
-  (try-completion
-   filename
-   (mapcar #'list (file-name-all-completions filename directory))
-   (when (and predicate (tramp-connectable-p directory))
-     (lambda (x) (funcall predicate (expand-file-name (car x) directory))))))
+  ;; Suppress eager completion on not connected hosts.
+  (let ((non-essential t))
+    (try-completion
+     filename
+     (mapcar #'list (file-name-all-completions filename directory))
+     (when (and predicate (tramp-connectable-p directory))
+       (lambda (x) (funcall predicate (expand-file-name (car x) 
directory)))))))
 
 ;; I misuse a little bit the `tramp-file-name' structure in order to
 ;; handle completion possibilities for partial methods / user names /