(defun copy-from-osx ()
	 (shell-command-to-string "pbpaste"))

       (defun paste-to-osx (text &optional push)
	 (let ((process-connection-type nil))
	   (let ((proc (start-process "pbcopy" nil "pbcopy")))
	     (process-send-string proc text)
	     (process-send-eof proc))))

       (setq interprogram-cut-function 'paste-to-osx)
       (setq interprogram-paste-function 'copy-from-osx)