changeset 55288:e304cb532417

(w32-drag-n-drop): Use x-dnd.el functions.
author Jason Rumney <jasonr@gnu.org>
date Sat, 01 May 2004 13:30:31 +0000
parents c512a810b9da
children 15053a4ed045
files lisp/term/w32-win.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/term/w32-win.el	Sat May 01 10:10:36 2004 +0000
+++ b/lisp/term/w32-win.el	Sat May 01 13:30:31 2004 +0000
@@ -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 @@
 	   (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)