Function: logview--build-validator-regexp-clause

logview--build-validator-regexp-clause is a natively compiled function defined in logview.el.

Signature

(logview--build-validator-regexp-clause INCLUDE-REGEXPS EXCLUDE-REGEXPS ENTRY-GROUP)

Source Code

;; Defined in /nix/store/3zkn9hgpv447zb8nrg55d9x2ynmmrk40-emacs-packages-deps/share/emacs/site-lisp/elpa/logview-20260218.2013/logview.el
(defun logview--build-validator-regexp-clause (include-regexps exclude-regexps entry-group)
  (when (or include-regexps exclude-regexps)
    (let* ((string-fetcher (if (= entry-group logview--message-group)
                               `(logview--entry-message entry start)
                             `(logview--entry-group entry start ,entry-group)))
           (string-form    (if (and include-regexps exclude-regexps) 'string string-fetcher))
           subclauses)
      (when include-regexps
        (push `(string-match-p ,(logview--build-filter-regexp include-regexps) ,string-form) subclauses))
      (when exclude-regexps
        (push `(not (string-match-p ,(logview--build-filter-regexp exclude-regexps) ,string-form)) subclauses))
      (let ((clause (if (cdr subclauses) `(and ,@(nreverse subclauses)) (car subclauses))))
        (when (eq string-form 'string)
          (setq clause `(let ((string ,string-fetcher)) ,clause)))
        clause))))