Mercurial > emacs
changeset 72412:ec8109b4dd1d
(x-clipboard-yank): Specify * in interactive spec.
(special-event-map): Process drag-n-drop events this way.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 16 Aug 2006 05:09:18 +0000 |
| parents | b11613448626 |
| children | 0e8b738d2b51 |
| files | lisp/term/x-win.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)