为什么 cl-letf 只有在我求值了函数体才生效呢？

Emacs-general
, ,
4

试试 基于 pcase 的函数热补丁方法 ：

(psearch-patch ccm-mwheel-scroll
  (psearch-replace '`(forward-line . ,args)
                   '`(next-line ,@args)))