Galder Zamarreño의 답변은 훌륭하지만 put
악의 모드에서 악의 와 같은 행동을 깰 수 있습니다. 따라서 나는 그것을 아래에 약간 조정했다. 그것이 더 나을 수 있다고 확신하지만 그것은 나를 위해 일한다. 개선 사항을 제안 해 주시기 바랍니다.
(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))))
----> 새 코드
(defun clipboard-on ()
(interactive)
(setq interprogram-cut-function 'paste-to-osx)
(setq interprogram-paste-function 'copy-from-osx))
(defun clipboard-off ()
(interactive)
(setq interprogram-cut-function 'gui-select-text)
(setq interprogram-paste-function 'gui-selection-value))
(global-set-key (kbd "C-c C-p") 'clipboard-on)
(global-set-key (kbd "C-c C-y") 'clipboard-off))