バッファを全て選択しクリップボードに入れる
全て選択→コピーが面倒だったので作成。
;;; ;;;バッファ全体をクリップボードに送る。 ;;; (defun copy-all-to-clipboard () (interactive) (let ((cc)(cl)) (setq cc (current-column) cl (current-line-number)) (selection-whole-buffer) (copy-selection-to-clipboard) (goto-last-modified-line) (refresh-screen) (goto-line cl) (goto-column cc) ) ) (global-set-key '(#\C-c #\a) 'copy-all-to-clipboard) ;右クリックメニューにも追加 (add-hook '*post-startup-hook* 'lambda() (add-menu-item *app-popup-menu* nil "全てコピー" 'copy-all-to-clipboard nil)))
新しいのは http://d.hatena.ne.jp/NYRL/20060306/1141618708 にあります。