mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-09 07:40:39 -08:00
Code Issues Projects Releases Wiki Activity

Initial result of applying diff

Browse source
This commit is contained in:
Gerd Möllmann 2024-04-18 09:46:13 +02:00
parent c19b988c29
commit 3c933f40a8
39 changed files with 3967 additions and 275 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1492,7 +1492,8 @@ 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.
(setq f (advice--cd*r f))
(when (fboundp 'advice--cd*r) ;;nil during early bootstrap.
(setq f (advice--cd*r f)))
(if (eq (car-safe f) 'declared)
(byte-compile-arglist-signature (nth 1 f))
(condition-case nil