这适用于我的机器：
;; CUA OS copypasta even in ncurses mode(case system-type ('darwin (unless window-system (setq interprogram-cut-function (lambda (text &optional push) (let* ((process-connection-type nil) (pbproxy (start-process "pbcopy" "pbcopy" "/usr/bin/pbcopy"))) (process-send-string pbproxy text) (process-send-eof pbproxy)))))) ('gnu/linux (progn (setq x-select-enable-clipboard t) (defun xsel-cut-function (text &optional push) (with-temp-buffer (insert text) (call-process-region (point-min) (point-max) "xsel" nil 0 nil "--clipboard" "--input"))) (defun xsel-paste-function() (let ((xsel-output (shell-command-to-string "xsel --clipboard --output"))) (unless (string= (car kill-ring) xsel-output)xsel-output ))) (setq interprogram-cut-function 'xsel-cut-function) (setq interprogram-paste-function 'xsel-paste-function))))
