[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp feed53f: * lisp/help.el (help-function-arglist): Fix
From: |
Andrea Corallo |
Subject: |
feature/native-comp feed53f: * lisp/help.el (help-function-arglist): Fix non nativecomp builds (bug#43914) |
Date: |
Sat, 10 Oct 2020 15:37:02 -0400 (EDT) |
branch: feature/native-comp
commit feed53f8b5da0e58cce412cd41a52883dba6c1be
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* lisp/help.el (help-function-arglist): Fix non nativecomp builds
(bug#43914)
---
lisp/help.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lisp/help.el b/lisp/help.el
index 4d0c4d5..c166b63 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- feature/native-comp feed53f: * lisp/help.el (help-function-arglist): Fix non nativecomp builds (bug#43914),
Andrea Corallo <=