Changeset 4091 for trunk/lisp/term/w32-win.el

Timestamp:

2006年05月27日 10時35分24秒 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/term/w32-win.el (modified) (1 diff)

trunk/lisp/term/w32-win.el

@@ -113 +113 @@
-          (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)))