diff options
| author | Michael Albinus | 2018-01-09 09:46:28 +0100 |
|---|---|---|
| committer | Michael Albinus | 2018-01-09 09:46:28 +0100 |
| commit | fd21bf0c413727625f91c9aadcb40294c62c4c94 (patch) | |
| tree | 8ad74063f8b6e9a0f5ce89e7fb589aa5f69f63dd | |
| parent | a0365437c9ee308ad7978e436631020f513b25e7 (diff) | |
| download | emacs-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.el | 5 |
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)) |