diff options
| author | Glenn Morris | 2019-06-07 07:50:48 -0700 |
|---|---|---|
| committer | Glenn Morris | 2019-06-07 07:50:48 -0700 |
| commit | 5e1e1e71ccd5368fb3d7cbbaab9da7b2287a93d9 (patch) | |
| tree | 60ad1a7b87d02965831b0f463f59f2a4a4fe8e60 | |
| parent | e5bc9a32b65e16ff48a50d56e3d8b4990e95acac (diff) | |
| parent | 2860285621eb890697ca122cd6ede8c3f03566d6 (diff) | |
| download | emacs-5e1e1e71ccd5368fb3d7cbbaab9da7b2287a93d9.tar.gz emacs-5e1e1e71ccd5368fb3d7cbbaab9da7b2287a93d9.zip | |
Merge from origin/emacs-26
2860285 Allow macros autoloaded as functions during bytecomp (Bug#36022)
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index dfbda8d43e3..38cce14fd62 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el | |||
| @@ -1401,7 +1401,9 @@ when printing the error message." | |||
| 1401 | (defun byte-compile-callargs-warn (form) | 1401 | (defun byte-compile-callargs-warn (form) |
| 1402 | (let* ((def (or (byte-compile-fdefinition (car form) nil) | 1402 | (let* ((def (or (byte-compile-fdefinition (car form) nil) |
| 1403 | (byte-compile-fdefinition (car form) t))) | 1403 | (byte-compile-fdefinition (car form) t))) |
| 1404 | (sig (byte-compile--function-signature (or def (car form)))) | 1404 | (sig (cond (def (byte-compile--function-signature def)) |
| 1405 | ((subrp (symbol-function (car form))) | ||
| 1406 | (subr-arity (symbol-function (car form)))))) | ||
| 1405 | (ncall (length (cdr form)))) | 1407 | (ncall (length (cdr form)))) |
| 1406 | ;; Check many or unevalled from subr-arity. | 1408 | ;; Check many or unevalled from subr-arity. |
| 1407 | (if (and (cdr-safe sig) | 1409 | (if (and (cdr-safe sig) |