summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-10-07 16:01:03 -0500
committerCase Duckworth2021-10-07 16:01:03 -0500
commit745722ba42fdf0575a8b450260072fda8e5e2f40 (patch)
tree16c66496abc418449c12a8f3da8918d8bbda44b0
parentAdd require/ function (diff)
downloademacs-745722ba42fdf0575a8b450260072fda8e5e2f40.tar.gz
emacs-745722ba42fdf0575a8b450260072fda8e5e2f40.zip
Change definition to use seq-some
-rw-r--r--init.el9
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 @@
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.