Mercurial > emacs

comparison lisp/international/ucs-tables.el @ 49279:1b936b315f3d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Undo the last change.
author Kenichi Handa <handa@m17n.org>
date Thu, 16 Jan 2003 07:56:55 +0000
parents 7d1c850ef43a
children d85a11253dd2
comparison
equal deleted inserted replaced
49278:1d08b3946be4 49279:1b936b315f3d
1109 (aset ucs-mule-8859-to-mule-unicode mule mu) 1109 (aset ucs-mule-8859-to-mule-unicode mule mu)
1110 (aset ucs-mule-to-mule-unicode mule mu))))) 1110 (aset ucs-mule-to-mule-unicode mule mu)))))
1111 1111
1112 ;; Derive tables that can be used as per-coding-system 1112 ;; Derive tables that can be used as per-coding-system
1113 ;; `translation-table-for-encode's. 1113 ;; `translation-table-for-encode's.
1114 (dolist (n (list 15 14 9 8 7 6 5 4 3 2 1)) 1114 (dolist (n (list 15 14 9 8 7 5 4 3 2 1))
1115 (let* ((alist (symbol-value (intern (format "ucs-8859-%d-alist" n)))) 1115 (let* ((alist (symbol-value (intern (format "ucs-8859-%d-alist" n))))
1116 (encode-translator (set (intern (format "ucs-8859-%d-encode-table" 1116 (encode-translator (set (intern (format "ucs-8859-%d-encode-table"
1117 n)) 1117 n))
1118 (make-translation-table))) 1118 (make-translation-table)))
1119 (coding-system 1119 (coding-system