From 33b307f8fc554c845ff3276353e7522b9d688793 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 1 May 1998 04:24:43 +0000 Subject: [PATCH] (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. --- lisp/term/w32-win.el | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el index 9867b964855..5ddb14e5384 100644 --- a/lisp/term/w32-win.el +++ b/lisp/term/w32-win.el @@ -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) -- 2.39.2