From: Michael Albinus <michael.albinus@gmx.de>
Date: Tue, 7 Sep 2021 12:36:06 +0000 (+0200)
Subject: Do not expand default method, user, host in remote file name completion
X-Git-Tag: emacs-28.0.90~1128
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d5c6bf96256568e4654860a15ef37c03293ad71f;p=emacs.git

Do not expand default method, user, host in remote file name completion

* lisp/net/tramp.el (tramp-completion-handle-file-name-all-completions):
Do not expand default method, user, host.  (Bug#50387)
(tramp-get-completion-methods): `partial-method' can be nil.
---

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 9ed9da92434..0182248dfad 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -2821,6 +2821,15 @@ not in completion mode."
   "Like `file-name-all-completions' for partial Tramp files."
   (let ((fullname
 	 (tramp-drop-volume-letter (expand-file-name filename directory)))
+	;; When `tramp-syntax' is `simplified', we need a default method.
+	(tramp-default-method
+	 (and (zerop (length tramp-postfix-method-format))
+	      tramp-default-method))
+	(tramp-default-method-alist
+	 (and (zerop (length tramp-postfix-method-format))
+	      tramp-default-method-alist))
+	tramp-default-user tramp-default-user-alist
+	tramp-default-host tramp-default-host-alist
 	hop result result1)
 
     ;; Suppress hop from completion.
@@ -3006,7 +3015,7 @@ remote host and localname (filename on remote host)."
   "Return all method completions for PARTIAL-METHOD."
   (mapcar
    (lambda (method)
-     (and method (string-prefix-p partial-method method)
+     (and method (string-prefix-p (or partial-method "") method)
 	  (tramp-completion-make-tramp-file-name method nil nil nil)))
    (mapcar #'car tramp-methods)))