emacs 函数 : my-copy-file-to-kill-ring

目的是将整个文件拷贝的 kill-ring，而且如果设置了 x-select-enable-clipboard 的话，就会同时拷贝到 X 的剪贴板了。 这个函数是为了解决我无法正常使用 xclip 操作 X 的剪贴板而弄的，其他情形似乎用不着。

;; copy file to kill-ring
(defun my-copy-file-to-kill-ring (filename)
  (interactive "fCopy this file to kill-ring:")
  (let ((buf (generate-new-buffer "*my-copy-file-to-kill-ring*"))
        (pbeg)
        (pend))
    (with-current-buffer buf
      (set 'pbeg (point))
      (insert-file-contents filename)
      (end-of-buffer)
      (set 'pend (point))
      (kill-ring-save pbeg pend))
    (kill-buffer buf)))