Make url-tramp-convert-tramp-to-url more robust

* lisp/url/url-tramp.el (url-tramp-convert-tramp-to-url):
Prevent errors from not existing Tramp methods.

diff --git a/lisp/url/url-tramp.el b/lisp/url/url-tramp.el
index 2918192a45acbfd4e81cd936d773f1c9227e63e9..c414a025a140ce2d7e9f612f29571408436ecb68 100644 (file)
--- a/lisp/url/url-tramp.el
+++ b/lisp/url/url-tramp.el
@@ -62,7 +62,8 @@ In case URL is not convertible, nil is returned."
 (defun url-tramp-convert-tramp-to-url (file)
   "Convert FILE, a Tramp file name, to a URL.
 In case FILE is not convertible, nil is returned."
-  (let* ((obj (and (tramp-tramp-file-p file) (tramp-dissect-file-name file)))
+  (let* ((obj (and (tramp-tramp-file-p file)
+                   (ignore-errors (tramp-dissect-file-name file))))
          (port
           (and obj (stringp (tramp-file-name-port obj))
                (string-to-number (tramp-file-name-port obj)))))