gistfile1.txt

(setq x-select-enable-clipboard t)
(defun copy-from-clipboard (text &optional rest)
  (let ((process-connection-type nil) proc)
    (if (eq system-type 'darwin)
        (setq proc (start-process "pbcopy" "*Messages*" "pbcopy"))
      (setq proc (start-process "xsel" "*Messages*" "xsel" "-b" "-i")))
    (process-send-string proc text)
    (process-send-eof proc)))

(defun paste-from-clipboard ()
  (if (eq system-type 'darwin)
      (shell-command-to-string "pbpaste")
    (shell-command-to-string "xsel -b -o")))

(when (and (getenv "DISPLAY") (not window-system))
  (setq interprogram-cut-function 'copy-from-clipboard)
  (setq interprogram-paste-function 'paste-from-clipboard))