Mercurial > emacs
changeset 24664:ce51d492b1ab
(w32-drag-n-drop): Select file in window where
it is dropped, rather than current window.
| author | Andrew Innes <andrewi@gnu.org> |
|---|---|
| date | Sun, 02 May 1999 09:52:17 +0000 |
| parents | 39edc9c7b235 |
| children | 5ba81a9aa8e8 |
| files | lisp/term/w32-win.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)