[Emacs-diffs] Changes to emacs/lisp/term/w32-win.el

[YAMAMOTO Mitsuharu]

Index: emacs/lisp/term/w32-win.el
diff -u emacs/lisp/term/w32-win.el:1.76 emacs/lisp/term/w32-win.el:1.77
--- emacs/lisp/term/w32-win.el:1.76     Sat Mar 18 13:13:30 2006
+++ emacs/lisp/term/w32-win.el  Sat May 20 04:30:46 2006
@@ -112,6 +112,14 @@
       (if (and (> x 0) (> y 0))
          (set-frame-selected-window nil window))
       (mapcar (lambda (file-name)
+               (let ((f (subst-char-in-string ?\\ ?/ file-name))
+                     (coding (or file-name-coding-system
+                                 default-file-name-coding-system)))
+                 (setq file-name
+                       (mapconcat 'url-hexify-string
+                                  (split-string (encode-coding-string f coding)
+                                                "/")
+                                  "/")))
                (dnd-handle-one-url window 'private
                                    (concat "file:" file-name)))
                (car (cdr (cdr event)))))