comparison lisp/term/x-win.el @ 72412:ec8109b4dd1d

(x-clipboard-yank): Specify * in interactive spec. (special-event-map): Process drag-n-drop events this way.

72411:b11613448626

(menu-bar-enable-clipboard)

;; Override Paste so it looks at CLIPBOARD first.
(defun x-clipboard-yank ()
  "Insert the clipboard contents, or the last stretch of killed text."
  (interactive)
  (let ((clipboard-text (x-selection-value 'CLIPBOARD))
	(x-select-enable-clipboard t))
    (if (and clipboard-text (> (length clipboard-text) 0))
	(kill-new clipboard-text))
    (yank)))

	      :enable (not buffer-read-only)
	      :help "Paste (yank) text most recently cut/copied"))

;; 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)

;; Let F10 do menu bar navigation.
(and (fboundp 'menu-bar-open)
     (global-set-key [f10] 'menu-bar-open))

72412:ec8109b4dd1d

(menu-bar-enable-clipboard)

;; Override Paste so it looks at CLIPBOARD first.
(defun x-clipboard-yank ()
  "Insert the clipboard contents, or the last stretch of killed text."
  (interactive "*")
  (let ((clipboard-text (x-selection-value 'CLIPBOARD))
	(x-select-enable-clipboard t))
    (if (and clipboard-text (> (length clipboard-text) 0))
	(kill-new clipboard-text))
    (yank)))

	      :enable (not buffer-read-only)
	      :help "Paste (yank) text most recently cut/copied"))

;; Initiate drag and drop
(add-hook 'after-make-frame-functions 'x-dnd-init-frame)
(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)
     (global-set-key [f10] 'menu-bar-open))