diff options
| author | Case Duckworth | 2021-10-07 16:01:03 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-10-07 16:01:03 -0500 |
| commit | 745722ba42fdf0575a8b450260072fda8e5e2f40 (patch) | |
| tree | 16c66496abc418449c12a8f3da8918d8bbda44b0 | |
| parent | Add require/ function (diff) | |
| download | emacs-745722ba42fdf0575a8b450260072fda8e5e2f40.tar.gz emacs-745722ba42fdf0575a8b450260072fda8e5e2f40.zip | |
Change definition to use seq-some
| -rw-r--r-- | init.el | 9 |
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. |