Function: add-to-coding-system-list

add-to-coding-system-list is a byte-compiled function defined in mule.el.gz.

Signature

(add-to-coding-system-list CODING-SYSTEM)

Documentation

Add CODING-SYSTEM to variable coding-system-list(var)/coding-system-list(fun) while keeping it sorted.

Source Code

;; Defined in /usr/src/emacs/lisp/international/mule.el.gz
(defun add-to-coding-system-list (coding-system)
  "Add CODING-SYSTEM to variable `coding-system-list' while keeping it sorted."
  (if (or (null coding-system-list)
	  (coding-system-lessp coding-system (car coding-system-list)))
      (setq coding-system-list (cons coding-system coding-system-list))
    (let ((len (length coding-system-list))
	  mid (tem coding-system-list))
      (while (> len 1)
	(setq mid (nthcdr (/ len 2) tem))
	(if (coding-system-lessp (car mid) coding-system)
	    (setq tem mid
		  len (- len (/ len 2)))
	  (setq len (/ len 2))))
      (setcdr tem (cons coding-system (cdr tem))))))