Function: auto-coding-alist-lookup

auto-coding-alist-lookup is a byte-compiled function defined in mule.el.gz.

Signature

(auto-coding-alist-lookup FILENAME)

Documentation

Return the coding system specified by auto-coding-alist for FILENAME.

Source Code

;; Defined in /usr/src/emacs/lisp/international/mule.el.gz
(defun auto-coding-alist-lookup (filename)
  "Return the coding system specified by `auto-coding-alist' for FILENAME."
  (let ((alist auto-coding-alist)
	(case-fold-search (file-name-case-insensitive-p filename))
	coding-system)
    (while (and alist (not coding-system))
      (if (string-match (car (car alist)) filename)
	  (setq coding-system (cdr (car alist)))
	(setq alist (cdr alist))))
    coding-system))