Function: nxml-file-name-auto-coding-regexp

nxml-file-name-auto-coding-regexp is a byte-compiled function defined in nxml-enc.el.gz.

Signature

(nxml-file-name-auto-coding-regexp)

Documentation

Return regexp for filenames for which XML auto-coding should be done.

Source Code

;; Defined in /usr/src/emacs/lisp/nxml/nxml-enc.el.gz
(defun nxml-file-name-auto-coding-regexp ()
  "Return regexp for filenames for which XML auto-coding should be done."
  (if (eq auto-mode-alist nxml-cached-auto-mode-alist)
      nxml-cached-file-name-auto-coding-regexp
    (let ((alist auto-mode-alist)
	  (case-fold-search nxml-file-name-ignore-case)
	  regexps)
      (setq nxml-cached-auto-mode-alist alist)
      (while alist
	(when (eq (cdar alist) 'nxml-mode)
	  (setq regexps (cons (caar alist) regexps)))
	(setq alist (cdr alist)))
      (setq nxml-cached-file-name-auto-coding-regexp
	    (if (null (cdr regexps))
		(car regexps)
	      (mapconcat (lambda (r)
			   (concat "\\(?:" r "\\)"))
			 regexps
			 "\\|"))))))