branch: externals/relint
commit 8e377623e7023e565c8b67133750104c30229a34
Author: Mattias Engdegård <matti...@acm.org>
Commit: Mattias Engdegård <matti...@acm.org>
Protect against improper lists in function calls
In case we come across the constant '((looking-at . something)), for
instance.
---
trawl.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/trawl.el b/trawl.el
index 13b9040..35923b0 100644
--- a/trawl.el
+++ b/trawl.el
@@ -585,7 +585,7 @@
(when indices
(let ((index 0)
(args (cdr form)))
- (while (and indices args)
+ (while (and indices (consp args))
(when (= index (car indices))
(unless (and (symbolp (car args))
(memq (car args) trawl--checked-variables))
