# HG changeset patch
# User Andrew Innes <andrewi@gnu.org>
# Date 925638737 0
# Node ID ce51d492b1abe07daaf9a51302578c635590cfe1
# Parent  39edc9c7b23505dedeab10c7b989b17999be681f
(w32-drag-n-drop): Select file in window where
it is dropped, rather than current window.

diff -r 39edc9c7b235 -r ce51d492b1ab lisp/term/w32-win.el
--- a/lisp/term/w32-win.el	Sun May 02 09:50:47 1999 +0000
+++ b/lisp/term/w32-win.el	Sun May 02 09:52:17 1999 +0000
@@ -155,7 +155,9 @@
   "Edit the files listed in the drag-n-drop event.
 Switch to a buffer editing the last file dropped."
   (interactive "e")
-  (mapcar 'find-file (car (cdr (cdr event))))
+  (save-excursion
+    (set-frame-selected-window nil (posn-window (event-start event)))
+    (mapcar 'find-file (car (cdr (cdr event)))))
   (raise-frame))
 
 (defun w32-drag-n-drop-other-frame (event)