mac emacs 共享剪切板

使用 bpcopy 和bppaste 替代剪切  x-clipborad

elisp code :

;;osx should using pbpaste and pbcopy to share clipboard

(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" "*Messages*" "pbcopy")))

        (process-send-string proc text)

        (process-send-eof proc))))





(when (string= system-type "darwin")

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

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