/[emacs]/emacs/lisp/international/utf-8.el
ViewVC logotype

Diff of /emacs/lisp/international/utf-8.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.29 by handa, Fri Apr 11 11:10:48 2003 UTC revision 1.30 by handa, Thu May 1 04:39:07 2003 UTC
# Line 246  default.  Also, installing them may be r Line 246  default.  Also, installing them may be r
246            (load "subst-gb2312")            (load "subst-gb2312")
247            (load "subst-big5")            (load "subst-big5")
248            (load "subst-jis")))    ; jis covers as much as big5, gb2312            (load "subst-jis")))    ; jis covers as much as big5, gb2312
249          (let ((table (make-char-table 'translation-table)))          (define-translation-hash-table 'utf-subst-table-for-decode
250            (maphash (lambda (k v)            ucs-unicode-to-mule-cjk)
251                       (aset table k t))          (define-translation-hash-table 'utf-subst-table-for-encode
252                     ucs-mule-cjk-to-unicode)            ucs-mule-cjk-to-unicode)
253            (define-translation-hash-table 'utf-subst-table-for-decode          (set-char-table-extra-slot (get 'utf-translation-table-for-encode
254              ucs-unicode-to-mule-cjk)                                          'translation-table)
255            (define-translation-hash-table 'utf-subst-table-for-encode                                     1 ucs-mule-cjk-to-unicode))
             ucs-mule-cjk-to-unicode)))  
256      (define-translation-hash-table 'utf-subst-table-for-decode      (define-translation-hash-table 'utf-subst-table-for-decode
257        (make-hash-table :test 'eq))        (make-hash-table :test 'eq))
258      (define-translation-hash-table 'utf-subst-table-for-encode      (define-translation-hash-table 'utf-subst-table-for-encode
259        (make-hash-table :test 'eq))))        (make-hash-table :test 'eq))
260        (set-char-table-extra-slot (get 'utf-translation-table-for-encode
261                                        'translation-table)
262                                   1 nil)))
263    
264  (define-ccl-program ccl-decode-mule-utf-8  (define-ccl-program ccl-decode-mule-utf-8
265    ;;    ;;
# Line 800  sequence representing U+FFFD (REPLACEMEN Line 802  sequence representing U+FFFD (REPLACEMEN
802     (valid-codes (0 . 255))     (valid-codes (0 . 255))
803  ;;    (pre-write-conversion . utf-8-pre-write-conversion)  ;;    (pre-write-conversion . utf-8-pre-write-conversion)
804     (post-read-conversion . utf-8-post-read-conversion)     (post-read-conversion . utf-8-post-read-conversion)
805       (translation-table-for-encode . utf-translation-table-for-encode)
806     (dependency unify-8859-on-encoding-mode     (dependency unify-8859-on-encoding-mode
807                 unify-8859-on-decoding-mode                 unify-8859-on-decoding-mode
808                 utf-fragment-on-decoding                 utf-fragment-on-decoding

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26