From: Andrew Innes <andrewi@gnu.org>
Date: Sun, 2 May 1999 09:52:17 +0000 (+0000)
Subject: (w32-drag-n-drop): Select file in window where
X-Git-Tag: emacs-20.4~285
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8316112bb5e451604a4b5803cf92058fcd146fa;p=emacs.git

(w32-drag-n-drop): Select file in window where
it is dropped, rather than current window.
---

diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index 7c4e1c2089a..5f1f6d4ab09 100644
--- a/lisp/term/w32-win.el
+++ b/lisp/term/w32-win.el
@@ -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)