Commit f1f1687f authored by Michael Albinus's avatar Michael Albinus
Browse files

Fix Bug#33141

* lisp/net/tramp.el (tramp-make-tramp-file-name): Avoid check for
empty method with simplified `tramp-syntax'.  (Bug#33141)
parent 129ffc27
......@@ -269,4 +269,7 @@ A nil value for either argument stands for the current time."
;;; TODO:
;; * When we get rid of Emacs 24, replace "(mapconcat 'identity" by
;; "(string-join".
;;; tramp-compat.el ends here
......@@ -1439,7 +1439,9 @@ the form (METHOD USER DOMAIN HOST PORT LOCALNAME &optional HOP)."
localname (nth 5 args)
hop (nth 6 args))))
(when (zerop (length method))
;; Unless `tramp-syntax' is `simplified', we need a method.
(when (and (not (zerop (length tramp-postfix-method-format)))
(zerop (length method)))
(signal 'wrong-type-argument (list 'stringp method)))
(concat tramp-prefix-format hop
(unless (zerop (length tramp-postfix-method-format))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment