[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master d2d6583: Suppress eager completion on not connected
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] master d2d6583: Suppress eager completion on not connected hosts in Tramp |
Date: |
Mon, 14 Oct 2019 08:53:42 -0400 (EDT) |
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 /
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master d2d6583: Suppress eager completion on not connected hosts in Tramp,
Michael Albinus <=