Function: locale-name-match

locale-name-match is a byte-compiled function defined in mule-cmds.el.gz.

Signature

(locale-name-match KEY ALIST)

Documentation

Search for KEY in ALIST, which should be a list of regexp-value pairs.

Return the value corresponding to the first regexp that matches the start of KEY, or nil if there is no match.

Source Code

;; Defined in /usr/src/emacs/lisp/international/mule-cmds.el.gz
(defun locale-name-match (key alist)
  "Search for KEY in ALIST, which should be a list of regexp-value pairs.
Return the value corresponding to the first regexp that matches the
start of KEY, or nil if there is no match."
  (let (element)
    (while (and alist (not element))
      (if (string-match-p (concat "\\`\\(?:" (car (car alist)) "\\)") key)
	  (setq element (car alist)))
      (setq alist (cdr alist)))
    (cdr element)))