可以用 cl-letf 临时把 file-truename 绑定成别的函数。
谢谢提示!我用下面的 define-advice
,可以用了。代码贴在这里供大家参考。
(define-advice citre-tags-file-path
(:around (orig-fun &rest args) no-follow-link)
(cl-letf (((symbol-function 'file-truename) #'concat))
(apply orig-fun args)))