mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

(ucs-mule-cjk-to-unicode)

Browse Source 
(ucs-unicode-to-mule-cjk): Revert last change.
(utf-subst-table-for-encode): Initially use
ucs-mule-cjk-to-unicode.
(utf-subst-table-for-decode): Initially use
ucs-unicode-to-mule-cjk.
(utf-fragment-on-decoding, utf-translate-cjk): Don't modify
char-coding-system-table elements destructively.
(utf-translate-cjk): Set ucs-mule-cjk-to-unicode,
ucs-unicode-to-mule-cjk to new hash tables with realistic
parameters.
This commit is contained in:
Dave Love 2002-12-17 17:58:13 +00:00
parent b6da19efbc
commit 0c8410d509
1 changed files with 20 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
lisp/international/utf-8.el
View File

@ -95,25 +95,23 @@ translation-table named `utf-translation-table-for-encode'")
(define-translation-table 'utf-translation-table-for-decode)
(defvar ucs-mule-cjk-to-unicode (make-hash-table :test 'eq :size 43000
:rehash-size 1000)
(defvar ucs-mule-cjk-to-unicode (make-hash-table :test 'eq)
"Hash table mapping Emacs CJK character sets to Unicode code points.
If `utf-translate-cjk' is non-nil, this table populates the
translation-hash-table named `utf-subst-table-for-encode'.")
(define-translation-hash-table 'utf-subst-table-for-encode
(make-hash-table :test 'eq :size 43000 :rehash-size 1000))
(define-translation-hash-table 'utf-subst-table-for-encode
ucs-mule-cjk-to-unicode)
(defvar ucs-unicode-to-mule-cjk (make-hash-table :test 'eq :size 43000
:rehash-size 1000)
(defvar ucs-unicode-to-mule-cjk (make-hash-table :test 'eq)
"Hash table mapping Unicode code points to Emacs CJK character sets.
If `utf-translate-cjk' is non-nil, this table populates the
translation-hash-table named `utf-subst-table-for-decode'.")
(define-translation-hash-table 'utf-subst-table-for-decode
(make-hash-table :test 'eq :size 21500 :rehash-size 200))
ucs-unicode-to-mule-cjk)
(mapc
(lambda (pair)
@ -194,9 +192,9 @@ Setting this variable outside customize has no effect."
(lambda (key val)
(if (and (>= key 128) val)
(aset char-coding-system-table key
(delq 'mule-utf-8
(delq 'mule-utf-16-le
(delq 'mule-utf-16-be
(remq 'mule-utf-8
(remq 'mule-utf-16-le
(remq 'mule-utf-16-be
(aref char-coding-system-table
key)))))))
utf-defragmentation-table)))
@ -222,7 +220,16 @@ The tables are large (over 40000 entries), so this option is not the
default. Also, installing them may be rather slow."
:set (lambda (s v)
(if v
;; Fixme: Allow the use of the CJK charsets to be
;; customized by reordering and possible omission.
(progn
;; Redefine them with realistic initial sizes and a
;; smallish rehash size to avoid wasting significant
;; space after they're built.
(setq ucs-mule-cjk-to-unicode
(make-hash-table :test 'eq :size 43000 :rehash-size 1000)
ucs-unicode-to-mule-cjk
(make-hash-table :test 'eq :size 43000 :rehash-size 1000))
;; Load the files explicitly, to avoid having to keep
;; around the large tables they contain (as well as the
;; ones which get built).
@ -262,9 +269,9 @@ default. Also, installing them may be rather slow."
(lambda (k v)
(if (gethash k ucs-mule-cjk-to-unicode)
(aset char-coding-system-table k
(delq 'mule-utf-8
(delq 'mule-utf-16-le
(delq 'mule-utf-16-be v))))))
(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))