diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2022-06-24 18:05:54 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2022-06-24 18:05:54 +0200 |
| commit | c7f141d67829ccef64a5e4e961f098f09774afe2 (patch) | |
| tree | 06612eba0ff8652b380f1a775657751590f51a43 /lisp/url | |
| parent | de0b7af169345442852622bb337483398c583a9e (diff) | |
| download | emacs-c7f141d67829ccef64a5e4e961f098f09774afe2.tar.gz | |
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.
Diffstat (limited to 'lisp/url')
| -rw-r--r-- | lisp/url/url-tramp.el | 3 |
1 files changed, 2 insertions, 1 deletions
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))))) |