From: Andrea Corallo Date: Sat, 10 Oct 2020 19:30:04 +0000 (+0200) Subject: * lisp/help.el (help-function-arglist): Fix non nativecomp builds (bug#43914) X-Git-Tag: emacs-28.0.90~2727^2~374 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=feed53f8b5da0e58cce412cd41a52883dba6c1be;p=emacs.git * lisp/help.el (help-function-arglist): Fix non nativecomp builds (bug#43914) --- diff --git a/lisp/help.el b/lisp/help.el index 4d0c4d5d985..c166b63a56f 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -1335,7 +1335,9 @@ the same names as used in the original source code, when possible." ((and (byte-code-function-p def) (listp (aref def 0))) (aref def 0)) ((eq (car-safe def) 'lambda) (nth 1 def)) ((eq (car-safe def) 'closure) (nth 2 def)) - ((and (subrp def) (listp (subr-native-lambda-list def))) + ((and (featurep 'nativecomp) + (subrp def) + (listp (subr-native-lambda-list def))) (subr-native-lambda-list def)) ((or (and (byte-code-function-p def) (integerp (aref def 0))) (subrp def) (module-function-p def))