什么是新emacsen上flet的正确替代品？

我有一些代码，使用flet临时更改的功能的行为。

;; prevent changing the window
(flet ((pop-to-buffer (buffer &rest args)
                      (switch-to-buffer buffer)))
   (compilation-next-error-function n reset))

但是，Emacs的字节编译器发出警告：

In ag/next-error-function:
ag.el:103:7:Warning: `flet' is an obsolete macro (as of 24.3); use either
    `cl-flet' or `cl-letf'.

但是，cl-flet工作方式不同，因此不适合某些用例，我认为这是其中一种。

我可以看到的选项是：

1. 告诉Emacs以某种方式忽略该警告。

2. 自己滚flet。

3. 使用noflet或dflet。

最好的方法是什么？

要获得与您习惯的相同的行为flet，请使用cl-letf更改符号函数值。

(cl-letf (((symbol-function 'pop-to-buffer)
           (lambda (buffer &rest _) (switch-to-buffer buffer))))
  (compilation-next-error-function n reset))

如果要自己滚动flet，则简单的方法是将宏扩展为cl-letf表单。

编辑：滚动

(defmacro myflet (bindings &rest body)
  "Works like the old `flet'. Does not validate form structure."
  (declare (indent defun))
  `(cl-letf ,(mapcar (lambda (binding)
                       `((symbol-function ',(car binding))
                         (lambda ,(cadr binding) ,@(cddr binding))))
                     bindings)
     ,@body))

(myflet ((+ (&rest args) (apply '- args)))
  (+ 10 3 2)) ;; => 5

Artur Malabarba最近在“ 了解letf及其如何替代flet”一书中对此进行了撰写。

letf是的别名cl-letf，虽然很可能是您想要的，但Artur指出了一个小警告：

不幸的是，cl-flet与原始flet不同-它是词法，而不是动态的。

（Nic的noflet软件包提供了这些方面的扩展功能。）