昔に作ったLisp
少なくても三人は使ってくれていることが確認できた(^^;
それはそうとコピー部分が簡単に
(copy-region-to-clipboard (point-min) (point-max))
こう書けるらしいので
;;; ;;;バッファ全体をクリップボードに送る。 ;;; (defun copy-all-to-clipboard () (interactive) (copy-region-to-clipboard (point-min) (point-max)) ) (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)))
で良いみたい
以前のものはcopy-region-to-clipboardを知らなかったというかpoint-minとpoint-maxを知らなかったので元の位置を保存して全選択して元の位置に戻るという面倒なことをしていました。
古いのはhttp://d.hatena.ne.jp/NYRL/20050603/1117759667