Function: connection-local-get-profiles

connection-local-get-profiles is a byte-compiled function defined in files-x.el.gz.

Signature

(connection-local-get-profiles CRITERIA)

Documentation

Return the connection profiles list for CRITERIA.

CRITERIA is a plist identifying a connection and the application using this connection, see connection-local-criteria-alist.

Source Code

;; Defined in /usr/src/emacs/lisp/files-x.el.gz
(defsubst connection-local-get-profiles (criteria)
  "Return the connection profiles list for CRITERIA.
CRITERIA is a plist identifying a connection and the application
using this connection, see `connection-local-criteria-alist'."
  (let (profiles)
    (dolist (crit-alist connection-local-criteria-alist)
      (let ((crit criteria)
            (match t))
        (while (and crit match)
          (when (plist-member (car crit-alist) (car crit))
            (setq match (equal (plist-get (car crit-alist) (car crit))
                               (plist-get criteria (car crit)))))
          (setq crit (cddr crit)))
        (when match
          (setq profiles (append profiles (cdr crit-alist))))))
    (delete-dups profiles)))