.xyzzy

;; regionを反転+selectionに変換
(require "rv-region")
(global-set-key #\C-@ 'rv-set-mark-command)
(setq *rv-region-use-selection* t)

;; C-w でselectionを切り取り
(global-set-key '(#\C-w) 'kill-selection-to-clipboard)
;; M-w でselectionをコピー
(global-set-key '(#\M-w) 'copy-selection-to-clipboard)
;; C-y でクリップボードから貼り付ける
(global-set-key '(#\C-y) 'paste-from-clipboard)

; kill-line-to-clipboard を定義する。
(defun kill-line-to-clipboard (&optional lines)
  (interactive "*p")
  (kill-line lines)
  (copy-to-clipboard (apply #'concat (car ed::*kill-ring*))))
; C-k に割り当て
(global-set-key '(#\C-k) 'kill-line-to-clipboard )

;; 移動
(global-set-key '(#\C-Left) 'backward-word)
(global-set-key '(#\C-Right) 'forward-word)

前に書いたのとかぶってるかも。emacsの使い心地に近づいてきたぞ。