diff options
| author | Dave Love | 2002-09-11 21:00:27 +0000 |
|---|---|---|
| committer | Dave Love | 2002-09-11 21:00:27 +0000 |
| commit | db70257e2a91ab20f392264f0b53abea40c0a6f0 (patch) | |
| tree | 920743029a6d05fc5b2da668fe1c4172aedbd099 | |
| parent | ffb0b9d7675cf83af7808ebc55b90044aec7653b (diff) | |
| download | emacs-db70257e2a91ab20f392264f0b53abea40c0a6f0.tar.gz emacs-db70257e2a91ab20f392264f0b53abea40c0a6f0.zip | |
Fix last change.
| -rw-r--r-- | lisp/international/ucs-tables.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/international/ucs-tables.el b/lisp/international/ucs-tables.el index ee78a969d9b..a56daa83511 100644 --- a/lisp/international/ucs-tables.el +++ b/lisp/international/ucs-tables.el | |||
| @@ -1100,7 +1100,7 @@ Translates from the iso8859 charsets and `mule-unicode-0100-24ff'.") | |||
| 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) |