Mercurial > emacs
comparison lisp/international/ucs-tables.el @ 47411:6c4cab602bc8
Fix last change.
author | Dave Love <fx@gnu.org> |
---|---|
date | Wed, 11 Sep 2002 21:00:27 +0000 |
parents | 18dd2c15c04c |
children | 407d0cf87424 |
comparison
equal
deleted
inserted
replaced
47410:b375ca944a14 | 47411:6c4cab602bc8 |
---|---|
1098 (nreverse l)))) | 1098 (nreverse l)))) |
1099 | 1099 |
1100 ;; Convert the lists to the basic char tables. | 1100 ;; Convert the lists to the basic char tables. |
1101 ;; Ensure `decode-char' doesn't use the fragmentation table. | 1101 ;; Ensure `decode-char' doesn't use the fragmentation table. |
1102 ;; Fixme: handa suggests using the RESTRICTION arg. | 1102 ;; Fixme: handa suggests using the RESTRICTION arg. |
1103 (let (utf-8-translation-table-for-decode) | 1103 (let ((utf-8-translation-table-for-decode (make-translation-table))) |
1104 (dolist (n (list 15 14 9 8 7 5 4 3 2 1)) | 1104 (dolist (n (list 15 14 9 8 7 5 4 3 2 1)) |
1105 (let ((alist (symbol-value (intern (format "ucs-8859-%d-alist" n))))) | 1105 (let ((alist (symbol-value (intern (format "ucs-8859-%d-alist" n))))) |
1106 (dolist (pair alist) | 1106 (dolist (pair alist) |
1107 (let ((mule (car pair)) | 1107 (let ((mule (car pair)) |
1108 (uc (cdr pair)) | 1108 (uc (cdr pair)) |