Function: tildify--find-env

tildify--find-env is a byte-compiled function defined in tildify.el.gz.

Signature

(tildify--find-env REGEXP PAIRS)

Documentation

Find environment using REGEXP.

Return regexp for the end of the environment found in PAIRS or nil if no environment was found.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/tildify.el.gz
(defun tildify--find-env (regexp pairs)
  "Find environment using REGEXP.
Return regexp for the end of the environment found in PAIRS or nil if
no environment was found."
  ;; Find environment
  (when (re-search-forward regexp nil t)
    (save-match-data
      (let ((match (match-string 0)))
        (while (not (eq (string-match (caar pairs) match) 0))
          (setq pairs (cdr pairs)))
        (let ((expression (cdar pairs)))
          (if (stringp expression)
              expression
            (mapconcat
             (lambda (expr)
               (if (stringp expr)
                   expr
                 (regexp-quote (match-string expr match))))
             expression
             "")))))))