procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use advice--cd*r where applicable

Browse source 
* lisp/emacs-lisp/bytecomp.el (byte-compile--function-signature):
* lisp/emacs-lisp/advice.el (ad-get-orig-definition):
* lisp/help.el (help-function-arglist): Use `advice--cd*r`.
This commit is contained in:
Stefan Monnier 2022-04-26 17:31:13 -04:00
parent 21112e3683
commit 4dba7c31a2
3 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/advice.el
View file

@ -1814,8 +1814,7 @@ Redefining advices affect the construction of an advised definition."
(if (symbolp function)
(setq function (if (fboundp function)
(advice--strip-macro (symbol-function function)))))
(while (advice--p function) (setq function (advice--cdr function)))
function)
(advice--cd*r function))
(defun ad-clear-advicefunname-definition (function)
(let ((advicefunname (ad-get-advice-info-field function 'advicefunname)))

2
lisp/emacs-lisp/bytecomp.el
View file

@ -1439,7 +1439,7 @@ when printing the error message."
(and (eq 'macro (car-safe f)) (setq f (cdr f)))
;; Advice wrappers have "catch all" args, so fetch the actual underlying
;; function to find the real arguments.
(while (advice--p f) (setq f (advice--cdr f)))
(setq f (advice--cd*r f))
(if (eq (car-safe f) 'declared)
(byte-compile-arglist-signature (nth 1 f))
(condition-case nil