diff options
| -rw-r--r-- | lisp/net/browse-url.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el index 101b9cf210d..3f514a2aaab 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el | |||
| @@ -680,6 +680,10 @@ interactively. Turn the filename into a URL with function | |||
| 680 | (defun browse-url-file-url (file) | 680 | (defun browse-url-file-url (file) |
| 681 | "Return the URL corresponding to FILE. | 681 | "Return the URL corresponding to FILE. |
| 682 | Use variable `browse-url-filename-alist' to map filenames to URLs." | 682 | Use variable `browse-url-filename-alist' to map filenames to URLs." |
| 683 | (let ((coding (and default-enable-multibyte-characters | ||
| 684 | (or file-name-coding-system | ||
| 685 | default-file-name-coding-system)))) | ||
| 686 | (if coding (setq file (encode-coding-string file coding)))) | ||
| 683 | ;; URL-encode special chars, do % first | 687 | ;; URL-encode special chars, do % first |
| 684 | (let ((s 0)) | 688 | (let ((s 0)) |
| 685 | (while (setq s (string-match "%" file s)) | 689 | (while (setq s (string-match "%" file s)) |