バッファを全て選択しクリップボードに入れる

全て選択→コピーが面倒だったので作成。

;;;
;;;バッファ全体をクリップボードに送る。
;;;
(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 にあります。