[elpa] externals/relint 13f6051 2/5: More sophisticated detection of regexps in defcustoms

[Mattias Engdegård]

branch: externals/relint
commit 13f6051cd3d8ae269c1e22bf881ba59420ee9e0c
Author: Mattias Engdegård <address@hidden>
Commit: Mattias Engdegård <address@hidden>

    More sophisticated detection of regexps in defcustoms
---
 relint.el | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/relint.el b/relint.el
index ba404f8..72d95ed 100644
--- a/relint.el
+++ b/relint.el
@@ -1239,10 +1239,19 @@ character alternative: `[' followed by a 
regexp-generating expression."
       (setq index (+ index 2))
       (setq args (cddr args)))))
 
-(defsubst relint--defcustom-type-regexp-p (type)
-  (or (eq type 'regexp)
-      (and (consp type)
-           (eq (car type) 'regexp))))
+(defun relint--defcustom-type-regexp-p (type)
+  "Whether the defcustom type TYPE indicates a regexp."
+  (pcase type
+    ('regexp t)
+    (`(regexp . ,_) t)
+    (`(string :tag ,tag . ,_)
+     (let ((case-fold-search t))
+       (string-match-p (rx bos
+                           (opt (or "the" "a") " ")
+                           (or "regex" "regular expression"))
+                       tag)))
+    (`(,(or 'choice 'radio) . ,rest)
+     (cl-some #'relint--defcustom-type-regexp-p rest))))
 
 (defun relint--check-and-eval-let-binding (binding mutables file pos path)
   "Check the let-binding BINDING, which is probably (NAME EXPR) or NAME,