(defun xclip-str (text &optional push)
(with-temp-buffer
(insert text)
(call-process-region (point-min) (point-max) "xclip")))

(setq interprogram-cut-function #'xclip-str)

こんなんでいけるんじゃねーの?