;; 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の使い心地に近づいてきたぞ。