diff options
| author | Dave Love <[email protected]> | 2002-09-11 21:00:27 +0000 |
|---|---|---|
| committer | Dave Love <[email protected]> | 2002-09-11 21:00:27 +0000 |
| commit | db70257e2a91ab20f392264f0b53abea40c0a6f0 (patch) | |
| tree | 920743029a6d05fc5b2da668fe1c4172aedbd099 | |
| parent | ffb0b9d7675cf83af7808ebc55b90044aec7653b (diff) | |
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 ee78a969d9..a56daa8351 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'.") ;; 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) + (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) |