[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/utf-8.el
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/utf-8.el |
Date: |
Mon, 17 Mar 2003 23:06:48 -0500 |
Index: emacs/lisp/international/utf-8.el
diff -c emacs/lisp/international/utf-8.el:1.25
emacs/lisp/international/utf-8.el:1.26
*** emacs/lisp/international/utf-8.el:1.25 Tue Mar 11 19:45:49 2003
--- emacs/lisp/international/utf-8.el Mon Mar 17 23:06:48 2003
***************
*** 48,55 ****
;;
;; Characters from other character sets can be encoded with mule-utf-8
;; by populating the translation table
! ;; `utf-translation-table-for-encode' and registering the translation
! ;; with `register-char-codings'. Hash tables
;; `utf-subst-table-for-decode' and `utf-subst-table-for-encode' are
;; used to support encoding and decoding of about a quarter of the CJK
;; space between U+3400 and U+DFFF.
--- 48,54 ----
;;
;; Characters from other character sets can be encoded with mule-utf-8
;; by populating the translation table
! ;; `utf-translation-table-for-encode'. Hash tables
;; `utf-subst-table-for-decode' and `utf-subst-table-for-encode' are
;; used to support encoding and decoding of about a quarter of the CJK
;; space between U+3400 and U+DFFF.
***************
*** 177,185 ****
'translation-table)
ucs-mule-to-mule-unicode)
(define-translation-table 'utf-translation-table-for-encode
! utf-defragmentation-table)
! (dolist (coding '(mule-utf-8 mule-utf-16-be mule-utf-16-le))
! (register-char-codings coding utf-defragmentation-table))))
(define-translation-table 'utf-translation-table-for-decode)
;; When unify-8859-on-encoding-mode is off, be sure to make
;; mule-utf-* disabled for characters in
--- 176,182 ----
'translation-table)
ucs-mule-to-mule-unicode)
(define-translation-table 'utf-translation-table-for-encode
! utf-defragmentation-table)))
(define-translation-table 'utf-translation-table-for-decode)
;; When unify-8859-on-encoding-mode is off, be sure to make
;; mule-utf-* disabled for characters in
***************
*** 187,203 ****
(unless (eq (get 'utf-translation-table-for-encode
'translation-table)
ucs-mule-to-mule-unicode)
! (define-translation-table 'utf-translation-table-for-encode)
! (map-char-table
! (lambda (key val)
! (if (and (>= key 128) val)
! (aset char-coding-system-table key
! (remq 'mule-utf-8
! (remq 'mule-utf-16-le
! (remq 'mule-utf-16-be
! (aref char-coding-system-table
! key)))))))
! utf-defragmentation-table)))
(set-default s v))
:version "21.4"
:type 'boolean
--- 184,190 ----
(unless (eq (get 'utf-translation-table-for-encode
'translation-table)
ucs-mule-to-mule-unicode)
! (define-translation-table 'utf-translation-table-for-encode)))
(set-default s v))
:version "21.4"
:type 'boolean
***************
*** 258,283 ****
(maphash (lambda (k v)
(aset table k t))
ucs-mule-cjk-to-unicode)
- (register-char-codings 'mule-utf-8 table)
- (register-char-codings 'mule-utf-16-le table)
- (register-char-codings 'mule-utf-16-be table))
(define-translation-hash-table 'utf-subst-table-for-decode
ucs-unicode-to-mule-cjk)
(define-translation-hash-table 'utf-subst-table-for-encode
ucs-mule-cjk-to-unicode))
- (map-char-table
- (lambda (k v)
- (if (gethash k ucs-mule-cjk-to-unicode)
- (aset char-coding-system-table k
- (remq 'mule-utf-8
- (remq 'mule-utf-16-le
- (remq 'mule-utf-16-be v))))))
- char-coding-system-table)
(define-translation-hash-table 'utf-subst-table-for-decode
(make-hash-table :test 'eq))
(define-translation-hash-table 'utf-subst-table-for-encode
! (make-hash-table :test 'eq)))
! (optimize-char-coding-system-table)
(set-default s v))
:version "21.4"
:type 'boolean
--- 245,258 ----
(maphash (lambda (k v)
(aset table k t))
ucs-mule-cjk-to-unicode)
(define-translation-hash-table 'utf-subst-table-for-decode
ucs-unicode-to-mule-cjk)
(define-translation-hash-table 'utf-subst-table-for-encode
ucs-mule-cjk-to-unicode))
(define-translation-hash-table 'utf-subst-table-for-decode
(make-hash-table :test 'eq))
(define-translation-hash-table 'utf-subst-table-for-encode
! (make-hash-table :test 'eq))))
(set-default s v))
:version "21.4"
:type 'boolean