Extra parameter for define-obsolete-function-alias
Ergus opened this issue · comments
Jimmy Aguilar Mena commented
Van Laser commented
Indeed, for now I use this incantation, but it's inelegant so hopefully temporary
(there's a pull already, since it's a simple change hopefully it gets merged soon):
(cl-letf (((symbol-function 'define-obsolete-function-alias) #'defalias))
(use-package benchmark-init
:config
(require 'benchmark-init-modes) ; explicitly required
(add-hook 'after-init-hook #'benchmark-init/deactivate)))
Tianshu Wang commented
Or try this advice
from @yangsheng6810
(define-advice define-obsolete-function-alias (:filter-args (ll) fix-obsolete)
(let ((obsolete-name (pop ll))
(current-name (pop ll))
(when (if ll (pop ll) "1"))
(docstring (if ll (pop ll) nil)))
(list obsolete-name current-name when docstring)))
Jared Finder commented
I believe this is fixed by #16, which was merged a while ago.