xyzzy, カット&ペーストをWindowsキーバインドで

(load-library "winkey")

C-cがカット, C-xが切り取りになるのは、セレクションがあるときだけ。
こういう便利なものがあったとは。

と喜んでいたのもつかの間、
C-vでnext-pageができなくなってしまうんだ。

j-taro画伯の真似をしてC-F4でモードをトグルするようにしてみた。

(load-library "winkey")
(defvar *my-ignored-winkey* nil)
(defun toggle-ignored-winkey ()
  (interactive)
  (if *my-ignored-winkey*
      (progn
        (global-set-key #\C-z 'undo)
        (global-set-key #\C-v 'paste-from-clipboard)
        (setq-default mode-line-format "--%*- %b (%M) [%k:%l] %P %f [%i] Wkey")
        (setq *my-ignored-winkey* nil)
        )
    (progn
      (global-set-key #\C-z 'previous-page)
      (global-set-key #\C-v 'next-page)
      (setq-default mode-line-format "--%*- %b (%M) [%k:%l] %P %f [%i]")
      (setq *my-ignored-winkey* t)
      )))
(toggle-ignored-winkey)
(global-set-key #\C-F4 'toggle-ignored-winkey)

モードラインへの表示は、とりあえず強引な方法で解決した。
setqとsetq-defaultの違いがよくわからん。