Emacs Lisp中如何仅在特定函数调用时临时覆盖函数？

我希望仅当某个函数被另一特定函数调用时对其进行覆盖，编写了以下代码：

(defun zzz/original () (message "Original func"))

(defun zzz/uses-original () (zzz/original))

(defun zzz/wrapper (f &rest r)
  (cl-flet
      ((zzz/original
        ()
        (message "Replacement func")))
    (apply f r)))

(advice-add #'zzz/uses-original
            :around
            #'zzz/wrapper)

预期调用(zzz/original)会输出"Original func"（实际确实如此），但调用(zzz/uses-original)时，预期输出"Replacement func"，实际却仍输出"Original func"。

注意，如果将zzz/uses-original的内容内联到zzz/wrapper中，而非通过apply调用，就能得到预期结果：

(defun zzz/wrapper (f &rest r)
  (cl-flet
      ((zzz/original
        ()
        (message "Replacement func")))
    ;; Following is a copy of the code from `zzz/uses-original':
    (zzz/original)))

请问我哪里出错了？有没有办法让原代码正常工作？

原因分析 #

Emacs Lisp中，普通函数调用的绑定是编译/加载时确定的。zzz/uses-original在定义时，就已经直接绑定了原始的zzz/original函数实现。当你通过apply f r调用它时，它内部执行的还是绑定好的原始函数，不会去查找当前cl-flet中定义的局部版本。

而内联代码的场景下，zzz/original是在cl-flet的词法作用域内被解析的，所以会使用局部覆盖的版本，这就是两种场景结果不同的原因。

解决方法 #

方法1：用cl-letf临时替换全局函数绑定 #

cl-flet是词法作用域的局部函数定义，无法影响已经绑定好的函数调用。改用cl-letf可以临时替换全局的zzz/original函数实现，执行完毕后自动恢复：

(defun zzz/wrapper (f &rest r)
  (cl-letf (((symbol-function 'zzz/original)
             (lambda () (message "Replacement func"))))
    (apply f r)))

⚠️ 注意：这种方法会全局临时替换目标函数，若存在并发调用（比如异步任务），可能会影响其他逻辑，适合单线程场景使用。

方法2：修改调用方，让函数调用动态查找 #

调整zzz/uses-original的实现，让它在运行时动态查找zzz/original的定义，而不是编译时绑定：

(defun zzz/uses-original () (funcall 'zzz/original))

这样当zzz/wrapper用cl-flet定义局部的zzz/original时，funcall 'zzz/original会在当前作用域内查找符号对应的函数，从而使用覆盖后的版本，同时不会影响全局的函数绑定。

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