comparison lisp/international/ucs-tables.el @ 47411:6c4cab602bc8

Fix last change.

47410:b375ca944a14

	 (nreverse l))))

  ;; Convert the lists to the basic char tables.
  ;; Ensure `decode-char' doesn't use the fragmentation table.
  ;; Fixme: handa suggests using the RESTRICTION arg.
  (let (utf-8-translation-table-for-decode)
    (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))

47411:6c4cab602bc8

	 (nreverse l))))

  ;; Convert the lists to the basic char tables.
  ;; Ensure `decode-char' doesn't use the fragmentation table.
  ;; Fixme: handa suggests using the RESTRICTION arg.
  (let ((utf-8-translation-table-for-decode (make-translation-table)))
    (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))