[Emacs-diffs] Changes to emacs/lisp/net/browse-url.el

[YAMAMOTO Mitsuharu]

Index: emacs/lisp/net/browse-url.el
diff -u emacs/lisp/net/browse-url.el:1.53 emacs/lisp/net/browse-url.el:1.54
--- emacs/lisp/net/browse-url.el:1.53   Mon Feb  6 11:33:04 2006
+++ emacs/lisp/net/browse-url.el        Sat May 20 04:29:38 2006
@@ -680,6 +680,10 @@
 (defun browse-url-file-url (file)
   "Return the URL corresponding to FILE.
 Use variable `browse-url-filename-alist' to map filenames to URLs."
+  (let ((coding (and default-enable-multibyte-characters
+                    (or file-name-coding-system
+                        default-file-name-coding-system))))
+    (if coding (setq file (encode-coding-string file coding))))
   ;; URL-encode special chars, do % first
   (let ((s 0))
     (while (setq s (string-match "%" file s))