From c8316112bb5e451604a4b5803cf92058fcd146fa Mon Sep 17 00:00:00 2001 From: Andrew Innes Date: Sun, 2 May 1999 09:52:17 +0000 Subject: [PATCH] (w32-drag-n-drop): Select file in window where it is dropped, rather than current window. --- lisp/term/w32-win.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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) -- 2.39.2