WSL2环境下Emacs自定义wsl-copy绑定C-c c快捷键不生效问题求助

问题根因 #

通过快捷键触发带r交互参数的命令时，Emacs会默认在命令执行周期内停用活动标记，导致传入shell-command-on-region的选区范围失效。而通过M-x调用命令时，选区会被暂时保留到命令执行完成，因此功能正常。

解决方案 #

你可以选择任意一种方案修改你的配置：

方案1：修复原函数配置 #

在原函数内添加阻止标记停用的声明，同时补全shell-command-on-region的参数避免误改原缓冲区内容：

(defun wsl-copy (start end)
  "copy a string from Emacs using Windows' clip.exe"
  (interactive "r")
  (setq deactivate-mark nil) ; 阻止执行完成后自动取消选中状态
  (copy-region-as-kill start end)
  ;; 补全参数：第4个参数为nil表示不替换原选区内容，后续参数屏蔽不必要的输出
  (shell-command-on-region start end "clip.exe" nil nil nil nil))
(global-set-key (kbd "C-c c") 'wsl-copy)

方案2：改用更稳定的主动选区读取逻辑 #

不依赖交互参数传入的选区范围，主动读取当前激活的选区内容，从根源避免标记失效问题：

(defun wsl-copy ()
  "copy a string from Emacs using Windows' clip.exe"
  (interactive)
  (when (use-region-p)
    (let ((content (buffer-substring (region-beginning) (region-end))))
      (kill-new content)
      (with-temp-buffer
        (insert content)
        (call-process-region (point-min) (point-max) "clip.exe" nil nil nil)))))
(global-set-key (kbd "C-c c") 'wsl-copy)

可选优化：自动同步剪切板 #

如果不需要保留两套复制粘贴逻辑，可以添加以下配置，让Emacs默认的M-w（复制）、C-y（粘贴）自动和Windows系统剪切板同步：

;; 保留原有wsl-paste函数不变
(setq interprogram-cut-function 'wsl-copy)
(setq interprogram-paste-function 'wsl-paste)

内容的提问来源于stack exchange，提问作者Chihiro Fukazawa