diff options
| author | Jan Djärv | 2005-04-11 19:25:58 +0000 |
|---|---|---|
| committer | Jan Djärv | 2005-04-11 19:25:58 +0000 |
| commit | 6bc52abcc6f560d0085ebd4d1e1409b2c87e664b (patch) | |
| tree | f54aa7ccc038fa4095ec27e98b18569a9062b226 | |
| parent | 67988557be9fef999d7655cec849108821912907 (diff) | |
| download | emacs-6bc52abcc6f560d0085ebd4d1e1409b2c87e664b.tar.gz emacs-6bc52abcc6f560d0085ebd4d1e1409b2c87e664b.zip | |
* term/w32-win.el (dnd): Require dnd
(w32-drag-n-drop): Call dnd-handle-one-url.
| -rw-r--r-- | lisp/term/w32-win.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el index 69e5c0e793b..862f3fe1d0a 100644 --- a/lisp/term/w32-win.el +++ b/lisp/term/w32-win.el | |||
| @@ -76,7 +76,7 @@ | |||
| 76 | (require 'faces) | 76 | (require 'faces) |
| 77 | (require 'select) | 77 | (require 'select) |
| 78 | (require 'menu-bar) | 78 | (require 'menu-bar) |
| 79 | (require 'x-dnd) | 79 | (require 'dnd) |
| 80 | (require 'code-pages) | 80 | (require 'code-pages) |
| 81 | 81 | ||
| 82 | ;; Conditional on new-fontset so bootstrapping works on non-GUI compiles | 82 | ;; Conditional on new-fontset so bootstrapping works on non-GUI compiles |
| @@ -109,8 +109,8 @@ Switch to a buffer editing the last file dropped." | |||
| 109 | (if (and (> x 0) (> y 0)) | 109 | (if (and (> x 0) (> y 0)) |
| 110 | (set-frame-selected-window nil window)) | 110 | (set-frame-selected-window nil window)) |
| 111 | (mapcar (lambda (file-name) | 111 | (mapcar (lambda (file-name) |
| 112 | (x-dnd-handle-one-url window 'private | 112 | (dnd-handle-one-url window 'private |
| 113 | (concat "file:" file-name))) | 113 | (concat "file:" file-name))) |
| 114 | (car (cdr (cdr event))))) | 114 | (car (cdr (cdr event))))) |
| 115 | (raise-frame))) | 115 | (raise-frame))) |
| 116 | 116 | ||