为何针对process-environment的Advice无效果？技术求助

核心错误：Advice 添加顺序颠倒 #

你写的 (advice-add 'envvar-advice :around 'term) 完全搞反了参数顺序——advice-add 的第一个参数是需要被增强的目标函数（这里是 term），第三个参数才是你的 Advice 函数（envvar-advice）。

修复后的代码 #

(defun envvar-advice (fun &rest args)
  (let ((process-environment (cons "TEST=X" process-environment)))
    (apply fun args)))

;; 正确绑定Advice到term函数
(advice-add 'term :around #'envvar-advice)

;; 此时运行term就能带上TEST环境变量
(term "/bin/bash")

额外说明 #

• 你对 process-environment 的作用域处理是正确的：let 块内的修改仅在 apply fun args 执行期间生效，不会影响全局环境。
• 如果要给其他命令（比如 shell）也添加这个环境变量，只需要重复执行 (advice-add '目标函数 :around #'envvar-advice) 即可。

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