Function: completion-pcm--segments->regex

completion-pcm--segments->regex is a byte-compiled function defined in minibuffer.el.gz.

Signature

(completion-pcm--segments->regex SEGMENTS &optional GROUP)

Source Code

;; Defined in /usr/src/emacs/lisp/minibuffer.el.gz
(defun completion-pcm--segments->regex (segments &optional group)
  (concat "\\`"
          (mapconcat
           (lambda (segment)
             (concat
              (regexp-quote (car segment))
              (when (cdr segment)
                (concat
                 (when group "\\(")
                 (if (all (lambda (x) (eq x 'any-delim)) (cdr segment))
                     (concat (completion-pcm--delim-re
                              completion-pcm-word-delimiters)
                             "*?")
                   "[^z-a]*?")
                 (when group "\\)")))))
           segments
           "")))