Emacs中实现退格键按下时光标变色，其他按键恢复原色

当然可以实现这个需求！我刚好折腾过类似的配置，下面是一套完整的思路和代码，亲测在Emacs 28+版本上有效：

核心实现思路 #

• 首先得区分Backspace和其他按键：我们需要重新绑定Backspace键，在保留原生删除功能的同时添加颜色切换逻辑
• 用**命令后钩子（post-command-hook）**监听所有按键操作：每次命令执行后，判断如果不是Backspace操作，就把光标颜色恢复成默认值
• 全程保留原生功能：绝对不能让颜色切换影响Backspace删除字符的核心作用

具体代码实现 #

把下面的代码复制到你的init.el（或者配置文件）里，保存后重启Emacs或者执行M-x eval-buffer生效：

;; 1. 定义光标颜色变量，可自定义
(setq my-original-cursor-color (face-attribute 'cursor :background))
(setq my-backspace-cursor-color "#ff0000") ; 退格时的红色光标，换成你喜欢的颜色代码

;; 2. 封装光标颜色设置函数
(defun my-set-cursor-color (color)
  "设置光标背景色为指定COLOR"
  (set-face-attribute 'cursor nil :background color))

;; 3. 保存Backspace的原生绑定，避免破坏原有功能
(setq my-original-backspace-binding (lookup-key global-map (kbd "<backspace>")))

;; 4. 自定义Backspace处理函数：先删字符，再改颜色
(defun my-backspace-handler ()
  "执行原生退格操作，并切换光标为临时颜色"
  (call-interactively my-original-backspace-binding)
  (my-set-cursor-color my-backspace-cursor-color))

;; 5. 重新绑定Backspace键
(define-key global-map (kbd "<backspace>") 'my-backspace-handler)

;; 6. 添加命令后钩子：非Backspace操作时恢复原光标颜色
(defun my-reset-cursor-color-after-command ()
  "每次命令执行后，若不是Backspace操作则恢复光标默认颜色"
  (unless (equal this-command 'my-backspace-handler)
    (my-set-cursor-color my-original-cursor-color)))

(add-hook 'post-command-hook 'my-reset-cursor-color-after-command)

代码细节解释 #

• 第一步先保存了原生光标颜色，这样我们后面能准确恢复回去；临时颜色你可以随便改，比如换成"#00ff00"（绿色）或者"#ffff00"（黄色）
• 自定义的my-backspace-handler函数先调用原生的Backspace绑定，确保删除字符的功能完全正常，再切换光标颜色，顺序不能搞反
• post-command-hook是Emacs里非常实用的钩子，它会在每一个按键命令执行完成后触发；我们在这里判断刚才执行的命令是不是我们自定义的Backspace处理函数，如果不是，就把光标颜色改回默认值——这样不管你按什么键（除了Backspace），光标都会立刻恢复原色

额外注意事项 #

• 如果是在终端Emacs里使用，光标颜色的支持可能和GUI版略有差异，有些终端可能不支持自定义光标颜色，你可以多试几个颜色代码
• 如果之后想取消这个功能，直接执行下面的代码即可：

;; 恢复Backspace原生绑定
(define-key global-map (kbd "<backspace>") my-original-backspace-binding)
;; 移除钩子
(remove-hook 'post-command-hook 'my-reset-cursor-color-after-command)

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