comparison lisp/international/ucs-tables.el @ 49294:d85a11253dd2

Redo 8859-6 change in the right place.

49293:41213ea7b9d6

  ;; Note: Here, using decode-char is safe because
  ;; utf-fragment-on-decoding is by default nil, thus the translation
  ;; table `utf-translation-table-for-decode' does nothing.

  ;; Convert the lists to the basic char tables.
  (dolist (n (list 15 14 9 8 7 5 4 3 2 1))
    (let ((alist (symbol-value (intern (format "ucs-8859-%d-alist" n)))))
      (dolist (pair alist)
	(let ((mule (car pair))
	      (uc (cdr pair))
	      (mu (decode-char 'ucs (cdr pair))))

	  (aset ucs-mule-8859-to-mule-unicode mule mu)
	  (aset ucs-mule-to-mule-unicode mule mu)))))

  ;; Derive tables that can be used as per-coding-system
  ;; `translation-table-for-encode's.
  (dolist (n (list 15 14 9 8 7 5 4 3 2 1))
    (let* ((alist (symbol-value (intern (format "ucs-8859-%d-alist" n))))
	   (encode-translator (set (intern (format "ucs-8859-%d-encode-table"
						   n))
				   (make-translation-table)))

49294:d85a11253dd2

  ;; Note: Here, using decode-char is safe because
  ;; utf-fragment-on-decoding is by default nil, thus the translation
  ;; table `utf-translation-table-for-decode' does nothing.

  ;; Convert the lists to the basic char tables.
  (dolist (n (list 15 14 9 8 7 6 5 4 3 2 1))
    (let ((alist (symbol-value (intern (format "ucs-8859-%d-alist" n)))))
      (dolist (pair alist)
	(let ((mule (car pair))
	      (uc (cdr pair))
	      (mu (decode-char 'ucs (cdr pair))))

	  (aset ucs-mule-8859-to-mule-unicode mule mu)
	  (aset ucs-mule-to-mule-unicode mule mu)))))

  ;; Derive tables that can be used as per-coding-system
  ;; `translation-table-for-encode's.
  ;; N.B., there's no 8859-6 coding system.
  (dolist (n (list 15 14 9 8 7 5 4 3 2 1))
    (let* ((alist (symbol-value (intern (format "ucs-8859-%d-alist" n))))
	   (encode-translator (set (intern (format "ucs-8859-%d-encode-table"
						   n))
				   (make-translation-table)))