# HG changeset patch
# User YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
# Date 1148099378 0
# Node ID 65f2c33d043f984b6782587970a34d946608100b
# Parent  b1742b0066f22a634dbd3263f19355deeb40cd24
(browse-url-file-url): Encode file name on conversion to URL.

diff -r b1742b0066f2 -r 65f2c33d043f lisp/net/browse-url.el
--- a/lisp/net/browse-url.el	Sat May 20 04:29:18 2006 +0000
+++ b/lisp/net/browse-url.el	Sat May 20 04:29:38 2006 +0000
@@ -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))