diff options
author | Jason Rumney <jasonr@gnu.org> | 2004-05-01 13:31:29 +0000 |
---|---|---|
committer | Jason Rumney <jasonr@gnu.org> | 2004-05-01 13:31:29 +0000 |
commit | 1e8b532f5a84e03821180f44d9c5186b7f9c0a91 (patch) | |
tree | b98d27db30a388cf37ed3e19f3a0a870a850d1ee /lisp/term/w32-win.el | |
parent | 07c07cfe9aabcd7b421d3cf28be9348c1918a639 (diff) | |
download | emacs-1e8b532f5a84e03821180f44d9c5186b7f9c0a91.tar.gz |
(w32-drag-n-drop): Use x-dnd.el functions.
Diffstat (limited to 'lisp/term/w32-win.el')
-rw-r--r-- | lisp/term/w32-win.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el index f43d8b235d1..1ffab849406 100644 --- a/lisp/term/w32-win.el +++ b/lisp/term/w32-win.el @@ -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 @@ Switch to a buffer editing the last file dropped." (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) |