diff options
| author | Andrea Corallo <akrl@sdf.org> | 2019-12-29 19:16:53 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-01-01 11:38:18 +0100 |
| commit | 976b7fcc8ced57fa12a0504899974b5b2057c943 (patch) | |
| tree | 6e6ca84b000f873b5da22e3852cd60881a38e6c5 /lisp/emacs-lisp | |
| parent | f0290502f3354f9ed7e8ec84c24ac13a7bad2fc0 (diff) | |
| download | emacs-976b7fcc8ced57fa12a0504899974b5b2057c943.tar.gz emacs-976b7fcc8ced57fa12a0504899974b5b2057c943.tar.bz2 emacs-976b7fcc8ced57fa12a0504899974b5b2057c943.zip | |
fix aliased function names trampoline removal
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)) |