mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

Fix last change.

Browse Source
This commit is contained in:
Dave Love 2002-09-11 21:00:27 +00:00
parent ffb0b9d767
commit db70257e2a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/international/ucs-tables.el
View File

@ -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)