branch: elpa/helm
commit 220dbb9bd603a22d9d57e36dda58fda3e375f2d5
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Fix warnings about eq against a list
Ensure to test against a symbol.
---
helm-lib.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/helm-lib.el b/helm-lib.el
index 7bb3650644..852f3713b6 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -583,7 +583,7 @@ each CLAUSES doesn't need to be quoted.
`(let ((it ,expr))
(if (or (equal it ',key)
(and (listp ',key) (member it ',key))
- (eq ',key t)
+ (and (symbolp ',key) (eq ',key t))
(and (listp ',key) ,sexp))
(progn ,@(cdr clause1))
(helm-acase it ,@(cdr clauses)))))))
