(w32-drag-n-drop): Use x-dnd.el functions.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4b61e5ceabb8893993ba7ef6adfd18c2c8de8a16..8f80f1a6c7a5f44102334dd66f2f9cf316dd1dd6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-05-01  Jason Rumney  <jasonr@gnu.org>
+
+       * term/w32-win.el (w32-drag-n-drop): Use x-dnd.el functions.
+
 2004-05-01  Kenichi Handa  <handa@m17n.org>
 
        * international/titdic-cnv.el (miscdic-convert): Don't generate a

diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index f43d8b235d1caef55679050b6b636a3e7a27f8e1..1ffab849406dcab5ecaedc9d41e5cdecaec2c91d 100644 (file)
--- a/lisp/term/w32-win.el
+++ b/lisp/term/w32-win.el
@@ -76,6 +76,7 @@
 (require 'faces)
 (require 'select)
 (require 'menu-bar)
+(require 'x-dnd)
 ;; Conditional on new-fontset so bootstrapping works on non-GUI compiles
 (if (fboundp 'new-fontset)
     (require 'fontset))
@@ -105,7 +106,10 @@ Switch to a buffer editing the last file dropped."
           (y (cdr coords)))
       (if (and (> x 0) (> y 0))
          (set-frame-selected-window nil window))
-    (mapcar 'find-file (car (cdr (cdr event)))))
+      (mapcar (lambda (file-name) 
+               (x-dnd-handle-one-url window 'private 
+                                     (concat "file:" file-name)))
+               (car (cdr (cdr event)))))
   (raise-frame)))
 
 (defun w32-drag-n-drop-other-frame (event)