diff options
| author | Andrea Corallo | 2020-10-10 21:30:04 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2020-10-10 21:30:35 +0200 |
| commit | feed53f8b5da0e58cce412cd41a52883dba6c1be (patch) | |
| tree | 3e57f9e2f1dc05caa069bd3a176b1e27cd372aee | |
| parent | 4b924ef87d69d56ef78604fbcb50399578f83f5a (diff) | |
| download | emacs-feed53f8b5da0e58cce412cd41a52883dba6c1be.tar.gz emacs-feed53f8b5da0e58cce412cd41a52883dba6c1be.zip | |
* lisp/help.el (help-function-arglist): Fix non nativecomp builds (bug#43914)
| -rw-r--r-- | lisp/help.el | 4 |
1 files changed, 3 insertions, 1 deletions
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." | |||
| 1335 | ((and (byte-code-function-p def) (listp (aref def 0))) (aref def 0)) | 1335 | ((and (byte-code-function-p def) (listp (aref def 0))) (aref def 0)) |
| 1336 | ((eq (car-safe def) 'lambda) (nth 1 def)) | 1336 | ((eq (car-safe def) 'lambda) (nth 1 def)) |
| 1337 | ((eq (car-safe def) 'closure) (nth 2 def)) | 1337 | ((eq (car-safe def) 'closure) (nth 2 def)) |
| 1338 | ((and (subrp def) (listp (subr-native-lambda-list def))) | 1338 | ((and (featurep 'nativecomp) |
| 1339 | (subrp def) | ||
| 1340 | (listp (subr-native-lambda-list def))) | ||
| 1339 | (subr-native-lambda-list def)) | 1341 | (subr-native-lambda-list def)) |
| 1340 | ((or (and (byte-code-function-p def) (integerp (aref def 0))) | 1342 | ((or (and (byte-code-function-p def) (integerp (aref def 0))) |
| 1341 | (subrp def) (module-function-p def)) | 1343 | (subrp def) (module-function-p def)) |