procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* lisp/url/url-tramp.el (url-tramp-convert-tramp-to-url):
Prevent errors from not existing Tramp methods.
This commit is contained in:
Michael Albinus 2022-06-24 18:05:54 +02:00
parent de0b7af169
commit c7f141d678
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/url/url-tramp.el
View file

@ -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)))))