aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2018-01-09 09:46:28 +0100
committerMichael Albinus2018-01-09 09:46:28 +0100
commitfd21bf0c413727625f91c9aadcb40294c62c4c94 (patch)
tree8ad74063f8b6e9a0f5ce89e7fb589aa5f69f63dd
parenta0365437c9ee308ad7978e436631020f513b25e7 (diff)
downloademacs-fd21bf0c413727625f91c9aadcb40294c62c4c94.tar.gz
emacs-fd21bf0c413727625f91c9aadcb40294c62c4c94.zip
Fix Bug#30038
* lisp/net/tramp.el (tramp-make-tramp-file-name): Check, that method is not empty. (Bug#30038)
-rw-r--r--lisp/net/tramp.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 1a8265200cb..72321dbdeba 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -1423,9 +1423,10 @@ the form (METHOD USER DOMAIN HOST PORT LOCALNAME &optional HOP)."
1423 localname (nth 5 args) 1423 localname (nth 5 args)
1424 hop (nth 6 args)))) 1424 hop (nth 6 args))))
1425 1425
1426 (when (zerop (length method))
1427 (signal 'wrong-type-argument (list 'stringp method)))
1426 (concat tramp-prefix-format hop 1428 (concat tramp-prefix-format hop
1427 (unless (or (zerop (length method)) 1429 (unless (zerop (length tramp-postfix-method-format))
1428 (zerop (length tramp-postfix-method-format)))
1429 (concat method tramp-postfix-method-format)) 1430 (concat method tramp-postfix-method-format))
1430 user 1431 user
1431 (unless (zerop (length domain)) 1432 (unless (zerop (length domain))