# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 893996683 0
# Node ID 93c99b3a57f1c79b15827dcb14c5b141cd13e454
# Parent  4fb3860a1f2646b1ed4af7d878975b8289bf81b2
(w32-drag-n-drop-debug, w32-drag-n-drop)
(w32-drag-n-drop-other-frame): New functions.
Bind them to the drag-n-drop events.

diff -r 4fb3860a1f26 -r 93c99b3a57f1 lisp/term/w32-win.el
--- a/lisp/term/w32-win.el	Fri May 01 04:16:29 1998 +0000
+++ b/lisp/term/w32-win.el	Fri May 01 04:24:43 1998 +0000
@@ -144,6 +144,29 @@
 (global-set-key [mouse-wheel] 'mouse-wheel-scroll-line)
 (global-set-key [C-mouse-wheel] 'mouse-wheel-scroll-screen)
 
+(defun w32-drag-n-drop-debug (event) 
+  "Print the drag-n-drop event in a readable form."
+  (interactive "e") 
+  (princ event))
+
+(defun w32-drag-n-drop (event)
+  "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))))
+  (raise-frame))
+
+(defun w32-drag-n-drop-other-frame (event)
+  "Edit the files listed in the drag-n-drop event, in other frames.
+May create new frames, or reuse existing ones.  The frame editing
+the last file dropped is selected."
+  (interactive "e")
+  (mapcar 'find-file-other-frame (car (cdr (cdr event)))))
+
+;; Bind the drag-n-drop event.
+(global-set-key [drag-n-drop] 'w32-drag-n-drop)
+(global-set-key [C-drag-n-drop] 'w32-drag-n-drop-other-frame)
+
 (defvar x-invocation-args)
 
 (defvar x-command-line-resources nil)