From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 29 Dec 2019 18:16:53 +0000 (+0100)
Subject: fix aliased function names trampoline removal
X-Git-Tag: emacs-28.0.90~2727^2~862
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=976b7fcc8ced57fa12a0504899974b5b2057c943;p=emacs.git

fix aliased function names trampoline removal
---

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))