Function: mpc-constraints-tag-lookup

mpc-constraints-tag-lookup is a byte-compiled function defined in mpc.el.gz.

Signature

(mpc-constraints-tag-lookup BUFFER-TAG CONSTRAINTS)

Source Code

;; Defined in /usr/src/emacs/lisp/mpc.el.gz
(defun mpc-constraints-tag-lookup (buffer-tag constraints)
  (let (res)
    (dolist (constraint constraints)
      (when (or (eq (car constraint) buffer-tag)
                (and (string-search "|" (symbol-name buffer-tag))
                     (member (symbol-name (car constraint))
                             (split-string (symbol-name buffer-tag) "|"))))
        (setq res (cdr constraint))))
    res))