From 0cd80dfa3f00fdba0ef49edbaf2d512819e464c8 Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Sat, 20 May 2006 04:31:17 +0000 Subject: [PATCH] (w32-drag-n-drop): Substitute '/' for '\', encode, and escape file name on conversion to URL. --- lisp/ChangeLog | 23 +++++++++++++++++++++++ lisp/term/w32-win.el | 8 ++++++++ 2 files changed, 31 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c8054a5dd76..9d589c693a0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,26 @@ +2006-05-20 Masayuki FUJII (tiny change) + + * dnd.el (dnd-get-local-file-name): Specify LITERAL in + replace-regexp-in-string. + + * term/w32-win.el (w32-drag-n-drop): Substitute '/' for '\', + encode, and escape file name on conversion to URL. + +2006-05-20 YAMAMOTO Mitsuharu + + * dnd.el (dnd-handle-one-url): Change 3rd arg ARG to URL. Don't + unescape URL. + (dnd-get-local-file-name): Unescape URL on conversion to file name. + + * x-dnd.el (x-dnd-handle-file-name): Encode and escape file names + on conversion to URLs. + + * net/browse-url.el (browse-url-file-url): Encode file name on + conversion to URL. + + * term/mac-win.el (mac-ae-open-documents): Escape file name on + conversion to URL. + 2006-05-19 Eli Zaretskii * progmodes/cc-styles.el (c-style-alist): Doc fix. diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el index 3987ad66f6a..31a794eeaa1 100644 --- a/lisp/term/w32-win.el +++ b/lisp/term/w32-win.el @@ -112,6 +112,14 @@ Switch to a buffer editing the last file dropped." (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))))) -- 2.39.5