diff options
| author | YAMAMOTO Mitsuharu | 2006-05-20 04:31:17 +0000 |
|---|---|---|
| committer | YAMAMOTO Mitsuharu | 2006-05-20 04:31:17 +0000 |
| commit | 0cd80dfa3f00fdba0ef49edbaf2d512819e464c8 (patch) | |
| tree | 39f044de53d6db5000f0418befc9eb42cc860eda /lisp/term | |
| parent | fc0a69d1e762adeabe1dbed048d914817dce1ebe (diff) | |
| download | emacs-0cd80dfa3f00fdba0ef49edbaf2d512819e464c8.tar.gz emacs-0cd80dfa3f00fdba0ef49edbaf2d512819e464c8.zip | |
(w32-drag-n-drop): Substitute '/' for '\',
encode, and escape file name on conversion to URL.
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/w32-win.el | 8 |
1 files changed, 8 insertions, 0 deletions
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." | |||
| 112 | (if (and (> x 0) (> y 0)) | 112 | (if (and (> x 0) (> y 0)) |
| 113 | (set-frame-selected-window nil window)) | 113 | (set-frame-selected-window nil window)) |
| 114 | (mapcar (lambda (file-name) | 114 | (mapcar (lambda (file-name) |
| 115 | (let ((f (subst-char-in-string ?\\ ?/ file-name)) | ||
| 116 | (coding (or file-name-coding-system | ||
| 117 | default-file-name-coding-system))) | ||
| 118 | (setq file-name | ||
| 119 | (mapconcat 'url-hexify-string | ||
| 120 | (split-string (encode-coding-string f coding) | ||
| 121 | "/") | ||
| 122 | "/"))) | ||
| 115 | (dnd-handle-one-url window 'private | 123 | (dnd-handle-one-url window 'private |
| 116 | (concat "file:" file-name))) | 124 | (concat "file:" file-name))) |
| 117 | (car (cdr (cdr event))))) | 125 | (car (cdr (cdr event))))) |