From 976b7fcc8ced57fa12a0504899974b5b2057c943 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sun, 29 Dec 2019 19:16:53 +0100 Subject: [PATCH] fix aliased function names trampoline removal --- lisp/emacs-lisp/comp.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index f63e5842bc5..da1d3f160f0 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -1657,7 +1657,8 @@ Return t if something was changed." (cond ((and subrp (not (subr-native-elisp-p f))) ;; Trampoline removal. - (let* ((maxarg (cdr (subr-arity f))) + (let* ((callee (intern (subr-name f))) ; Fix aliased names. + (maxarg (cdr (subr-arity f))) (call-type (if (if subrp (not (numberp maxarg)) (comp-nargs-p callee-in-unit)) -- 2.39.5