diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-03-07 03:27:55 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-03-07 03:28:32 +0100 |
| commit | e06319b39d548571f19964b392be779aae7d298a (patch) | |
| tree | e10f8179833496e1937fd15c61322b9f6fbe21f2 /test/lisp/net/browse-url-tests.el | |
| parent | 36b31d38cd9bde7ad1ec18c136854cddba0d6bbe (diff) | |
| download | emacs-e06319b39d548571f19964b392be779aae7d298a.tar.gz emacs-e06319b39d548571f19964b392be779aae7d298a.tar.bz2 emacs-e06319b39d548571f19964b392be779aae7d298a.zip | |
Fix `W' in Dired with non-ASCII file names
* lisp/net/browse-url.el (browse-url--file-name-coding-system):
Factor out into own function.
(browse-url-file-url): Property encode non-ASCII characters so
that external browsers can understand them.
(browse-url-emacs): Make `W' in Dired work with non-ASCII file
names (bug#54271).
Diffstat (limited to 'test/lisp/net/browse-url-tests.el')
| -rw-r--r-- | test/lisp/net/browse-url-tests.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/test/lisp/net/browse-url-tests.el b/test/lisp/net/browse-url-tests.el index 8f180f3d6bb..c94719c97af 100644 --- a/test/lisp/net/browse-url-tests.el +++ b/test/lisp/net/browse-url-tests.el @@ -82,10 +82,13 @@ (ert-deftest browse-url-tests-file-url () (should (equal (browse-url-file-url "/foo") "file:///foo")) - (should (equal (browse-url-file-url "/foo:") "ftp://foo/")) - (should (equal (browse-url-file-url "/ftp@foo:") "ftp://foo/")) - (should (equal (browse-url-file-url "/anonymous@foo:") - "ftp://foo/"))) + (when (file-remote-p "/foo:") + (should (equal (browse-url-file-url "/foo:") "ftp://foo/"))) + (when (file-remote-p "/ftp@foo:") + (should (equal (browse-url-file-url "/ftp@foo:") "ftp://foo/"))) + (when (file-remote-p "/anonymous@foo:") + (should (equal (browse-url-file-url "/anonymous@foo:") + "ftp://foo/")))) (ert-deftest browse-url-tests-delete-temp-file () (ert-with-temp-file browse-url-temp-file-name |