diff options
Diffstat (limited to 'lisp/url/url-nfs.el')
| -rw-r--r-- | lisp/url/url-nfs.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/url/url-nfs.el b/lisp/url/url-nfs.el index cb5695b5549..2eed16c3ad3 100644 --- a/lisp/url/url-nfs.el +++ b/lisp/url/url-nfs.el @@ -23,7 +23,6 @@ ;;; Code: -(eval-when-compile (require 'cl)) (require 'url-parse) (require 'url-file) @@ -49,7 +48,7 @@ Each can be used any number of times." (while (re-search-forward "%\\(.\\)" nil t) (let ((escape (aref (match-string 1) 0))) (replace-match "" t t) - (case escape + (pcase escape (?% (insert "%")) (?h (insert host)) (?n (insert (or port ""))) |