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 9ed9da92434b29213c3240f02723712756551d4c..0182248dfadda97a79e82f46f4e7c7385c32bc48 100644 (file)
--- 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)))