Mercurial > emacs
changeset 21883:93c99b3a57f1
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 01 May 1998 04:24:43 +0000 |
| parents | 4fb3860a1f26 |
| children | bc4455bca454 |
| files | lisp/term/w32-win.el |
| diffstat | 1 files changed, 23 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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)