mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(w32-drag-n-drop): Substitute '/' for '\',

Browse source 
encode, and escape file name on conversion to URL.
This commit is contained in:
YAMAMOTO Mitsuharu 2006-05-20 04:31:17 +00:00
parent fc0a69d1e7
commit 0cd80dfa3f
2 changed files with 31 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lisp/ChangeLog
View file

@ -1,3 +1,26 @@
2006-05-20 Masayuki FUJII <boochang@m4.kcn.ne.jp> (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 <mituharu@math.s.chiba-u.ac.jp>
* 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 <eliz@gnu.org>
* progmodes/cc-styles.el (c-style-alist): Doc fix.

8
lisp/term/w32-win.el
View file

@ -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)))))