;; -*- lexical-binding: t -*- (defun consult--migemo-regexp-compiler (input type) (setq input (mapcar #'migemo-get-pattern (consult--split-escaped input))) (cons (mapcar (lambda (x) (consult--convert-regexp x type)) input) (when-let (regexps (seq-filter #'consult--valid-regexp-p input)) (lambda (str) (consult--highlight-regexps regexps str))))) (setq migemo-options '("--quiet" "--nonewline" "--ema