comparison lisp/international/utf-8.el @ 50549:c8525ac04d76

(utf-translate-cjk-mode): Fix incorrect place of parenthesis.
author Kenichi Handa <handa@m17n.org>
date Fri, 11 Apr 2003 11:10:48 +0000
parents f49a20cb84ed
children fc9cb527333d
comparison
equal deleted inserted replaced
50548:706cf77805ad 50549:c8525ac04d76
251 (aset table k t)) 251 (aset table k t))
252 ucs-mule-cjk-to-unicode) 252 ucs-mule-cjk-to-unicode)
253 (define-translation-hash-table 'utf-subst-table-for-decode 253 (define-translation-hash-table 'utf-subst-table-for-decode
254 ucs-unicode-to-mule-cjk) 254 ucs-unicode-to-mule-cjk)
255 (define-translation-hash-table 'utf-subst-table-for-encode 255 (define-translation-hash-table 'utf-subst-table-for-encode
256 ucs-mule-cjk-to-unicode)) 256 ucs-mule-cjk-to-unicode)))
257 (define-translation-hash-table 'utf-subst-table-for-decode 257 (define-translation-hash-table 'utf-subst-table-for-decode
258 (make-hash-table :test 'eq)) 258 (make-hash-table :test 'eq))
259 (define-translation-hash-table 'utf-subst-table-for-encode 259 (define-translation-hash-table 'utf-subst-table-for-encode
260 (make-hash-table :test 'eq))))) 260 (make-hash-table :test 'eq))))
261 261
262 (define-ccl-program ccl-decode-mule-utf-8 262 (define-ccl-program ccl-decode-mule-utf-8
263 ;; 263 ;;
264 ;; charset | bytes in utf-8 | bytes in emacs 264 ;; charset | bytes in utf-8 | bytes in emacs
265 ;; -----------------------+----------------+--------------- 265 ;; -----------------------+----------------+---------------