1 files changed, 4 insertions, 5 deletions
diff --git a/init.el b/init.el
index 6467bd9..aa2bb9a 100644
--- a/init.el
+++ b/init.el

@@ -523,11 +523,10 @@
  (defun list-string-match-p (string regexp-list)
    "Return t if at least one regex in RETGEXP-LIST matches STRING, else nil."
-    (when string                        ; if STRING is nil, return nil.
+    ;; FINE alphapapa ;P
-      (catch 'found
+    (seq-some (lambda (regexp)
-        (dolist (regexp regexp-list)
+                (string-match regexp string))
-          (when (string-match regexp string)
+              regexp-list))
-            (throw 'found t))))))
  (defun flymake-unless ()
    "Turn on `flymake-mode', UNLESS it's inhibited.

diff --git a/init.el b/init.el index 6467bd9..aa2bb9a 100644 --- a/init.el +++ b/init.el
@@ -523,11 +523,10 @@
523		523
524	(defun list-string-match-p (string regexp-list)	524	(defun list-string-match-p (string regexp-list)
525	"Return t if at least one regex in RETGEXP-LIST matches STRING, else nil."	525	"Return t if at least one regex in RETGEXP-LIST matches STRING, else nil."
526	(when string ; if STRING is nil, return nil.	526	;; FINE alphapapa ;P
527	(catch 'found	527	(seq-some (lambda (regexp)
528	(dolist (regexp regexp-list)	528	(string-match regexp string))
529	(when (string-match regexp string)	529	regexp-list))
530	(throw 'found t))))))
531		530
532	(defun flymake-unless ()	531	(defun flymake-unless ()
533	"Turn on `flymake-mode', UNLESS it's inhibited.	532	"Turn on `flymake-mode', UNLESS it's inhibited.