diff options
| author | Andrew Innes <[email protected]> | 1999-05-02 09:52:17 +0000 |
|---|---|---|
| committer | Andrew Innes <[email protected]> | 1999-05-02 09:52:17 +0000 |
| commit | c8316112bb5e451604a4b5803cf92058fcd146fa (patch) | |
| tree | 05b4b7440a8463f21b8328232c51e20e9bf8f4c0 /lisp/term/w32-win.el | |
| parent | 1188dd3759e18f85d1d072fdbf9f8ee642d7e70f (diff) | |
(w32-drag-n-drop): Select file in window where
it is dropped, rather than current window.
Diffstat (limited to 'lisp/term/w32-win.el')
| -rw-r--r-- | lisp/term/w32-win.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el index 7c4e1c2089..5f1f6d4ab0 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) |