From: Michael Albinus Date: Fri, 24 Jun 2022 16:05:54 +0000 (+0200) Subject: Make url-tramp-convert-tramp-to-url more robust X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~1886^2~1487 X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=c7f141d67829ccef64a5e4e961f098f09774afe2;p=emacs.git 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 2918192a45a..c414a025a14 100644 --- 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)))))