# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1155704958 0
# Node ID ec8109b4dd1d34184c29fcd3a39a3c56904a8b59
# Parent  b11613448626d32d056d8fc4178d52c9c0c2f5df
(x-clipboard-yank): Specify * in interactive spec.
(special-event-map): Process drag-n-drop events this way.

diff -r b11613448626 -r ec8109b4dd1d lisp/term/x-win.el
--- a/lisp/term/x-win.el	Wed Aug 16 05:07:22 2006 +0000
+++ b/lisp/term/x-win.el	Wed Aug 16 05:09:18 2006 +0000
@@ -2505,7 +2505,7 @@
 ;; Override Paste so it looks at CLIPBOARD first.
 (defun x-clipboard-yank ()
   "Insert the clipboard contents, or the last stretch of killed text."
-  (interactive)
+  (interactive "*")
   (let ((clipboard-text (x-selection-value 'CLIPBOARD))
 	(x-select-enable-clipboard t))
     (if (and clipboard-text (> (length clipboard-text) 0))
@@ -2519,7 +2519,7 @@
 
 ;; Initiate drag and drop
 (add-hook 'after-make-frame-functions 'x-dnd-init-frame)
-(global-set-key [drag-n-drop] 'x-dnd-handle-drag-n-drop-event)
+(define-key special-event-map [drag-n-drop] 'x-dnd-handle-drag-n-drop-event)
 
 ;; Let F10 do menu bar navigation.
 (and (fboundp 'menu-bar-open)