branch: externals/relint
commit 29e5427b0b269a258bd14afbc50aaf86578ac37a
Author: Mattias Engdegård <matti...@acm.org>
Commit: Mattias Engdegård <matti...@acm.org>
Recognise a few more `featurep` arguments
Assume that `font-lock` and `lisp-float-type` are always present.
---
relint.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/relint.el b/relint.el
index 81859ac..1b8a69e 100644
--- a/relint.el
+++ b/relint.el
@@ -943,7 +943,7 @@ not be evaluated safely."
((eq head 'featurep)
(let ((arg (relint--eval (car body))))
(cond ((eq arg 'xemacs) nil)
- ((memq arg '(emacs mule)) t)
+ ((memq arg '(emacs mule font-lock lisp-float-type)) t)
(t (throw 'relint-eval 'no-value)))))
;; Locally defined functions: try evaluating.
