comparison lisp/international/mule.el @ 49252:b38398e733f4

(optimize-char-coding-system-table): Optimize it.

49251:afbb682b9aa5

       ;; each other.  As it is, with utf-translate-cjk on and
       ;; code-pages loaded, the table has ~50k elements, which are
       ;; reduced to ~1k.  (`optimize-char-table' might win if
       ;; permutations were eliminated, but that's probably a small
       ;; effect and not easy to test.)
       (let ((existing (car (member v cache))))
	 (if existing
	     (aset char-coding-system-table k existing)
	   (push v cache))))
     char-coding-system-table))
  (optimize-char-table char-coding-system-table))

(defun register-char-codings (coding-system safe-chars)
  "Add entries for CODING-SYSTEM to `char-coding-system-table'.

49252:b38398e733f4

       ;; each other.  As it is, with utf-translate-cjk on and
       ;; code-pages loaded, the table has ~50k elements, which are
       ;; reduced to ~1k.  (`optimize-char-table' might win if
       ;; permutations were eliminated, but that's probably a small
       ;; effect and not easy to test.)
       (if v
	   (let ((existing (car (member v cache))))
	     (if existing
		 (aset char-coding-system-table k existing)
	       (push v cache)))))
     char-coding-system-table))
  (optimize-char-table char-coding-system-table))

(defun register-char-codings (coding-system safe-chars)
  "Add entries for CODING-SYSTEM to `char-coding-system-table'.