Mercurial > emacs
changeset 55288:e304cb532417
(w32-drag-n-drop): Use x-dnd.el functions.
author | Jason Rumney <jasonr@gnu.org> |
---|---|
date | Sat, 01 May 2004 13:30:31 +0000 |
parents | c512a810b9da |
children | 15053a4ed045 |
files | lisp/term/w32-win.el |
diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/w32-win.el Sat May 01 10:10:36 2004 +0000 +++ b/lisp/term/w32-win.el Sat May 01 13:30:31 2004 +0000 @@ -76,6 +76,7 @@ (require 'faces) (require 'select) (require 'menu-bar) +(require 'x-dnd) ;; Conditional on new-fontset so bootstrapping works on non-GUI compiles (if (fboundp 'new-fontset) (require 'fontset)) @@ -105,7 +106,10 @@ (y (cdr coords))) (if (and (> x 0) (> y 0)) (set-frame-selected-window nil window)) - (mapcar 'find-file (car (cdr (cdr event))))) + (mapcar (lambda (file-name) + (x-dnd-handle-one-url window 'private + (concat "file:" file-name))) + (car (cdr (cdr event))))) (raise-frame))) (defun w32-drag-n-drop-other-frame (event)