Function: nxml-mime-charset-coding-system

nxml-mime-charset-coding-system is a byte-compiled function defined in nxml-enc.el.gz.

Signature

(nxml-mime-charset-coding-system CHARSET)

Source Code

;; Defined in /usr/src/emacs/lisp/nxml/nxml-enc.el.gz
(defun nxml-mime-charset-coding-system (charset)
  (let ((charset-sym (intern (downcase charset)))
	(coding-systems (coding-system-list t))
	coding-system ret)
    (while (and coding-systems (not ret))
      (setq coding-system (car coding-systems))
      (if (eq (coding-system-get coding-system 'mime-charset)
	      charset-sym)
	  (setq ret coding-system)
	(setq coding-systems (cdr coding-systems))))
    ret))