Lines Matching +defs:table +defs:string
52 ;; by populating the translation table
53 ;; `utf-translation-table-for-encode'. Hash tables
54 ;; `utf-subst-table-for-decode' and `utf-subst-table-for-encode' are
69 (defvar ucs-mule-to-mule-unicode (make-char-table 'translation-table nil)
70 "Char table mapping characters to latin-iso8859-1 or mule-unicode-*.
72 If `unify-8859-on-encoding-mode' is non-nil, this table populates the
73 translation-table named `utf-translation-table-for-encode'.")
75 (define-translation-table 'utf-translation-table-for-encode)
83 (defvar utf-fragmentation-table (make-char-table 'translation-table nil)
84 "Char-table normally mapping non-Latin mule-unicode-* chars to iso-8859-*.
86 If `utf-fragment-on-decoding' is non-nil, this table populates the
87 translation-table named `utf-translation-table-for-decode'")
89 (defvar utf-defragmentation-table (make-char-table 'translation-table nil)
90 "Char-table for reverse mapping of `utf-fragmentation-table'.
93 `unify-8859-on-encoding-mode' is nil, this table populates the
94 translation-table named `utf-translation-table-for-encode'")
96 (define-translation-table 'utf-translation-table-for-decode)
99 (defvar ucs-mule-cjk-to-unicode (make-hash-table :test 'eq)
100 "Hash table mapping Emacs CJK character sets to Unicode code points.
102 If `utf-translate-cjk-mode' is non-nil, this table populates the
103 translation-hash-table named `utf-subst-table-for-encode'.")
105 (define-translation-hash-table 'utf-subst-table-for-encode
108 (defvar ucs-unicode-to-mule-cjk (make-hash-table :test 'eq)
109 "Hash table mapping Unicode code points to Emacs CJK character sets.
111 If `utf-translate-cjk-mode' is non-nil, this table populates the
112 translation-hash-table named `utf-subst-table-for-decode'.")
114 (define-translation-hash-table 'utf-subst-table-for-decode
119 (aset utf-fragmentation-table (car pair) (cdr pair))
120 (aset utf-defragmentation-table (cdr pair) (car pair)))
172 (define-translation-table 'utf-translation-table-for-decode
173 utf-fragmentation-table)
176 ;; utf-fragmentation-table.
177 (unless (eq (get 'utf-translation-table-for-encode
178 'translation-table)
180 (define-translation-table 'utf-translation-table-for-encode
181 utf-defragmentation-table)))
182 (define-translation-table 'utf-translation-table-for-decode)
185 ;; utf-fragmentation-table.
186 (unless (eq (get 'utf-translation-table-for-encode
187 'translation-table)
189 (define-translation-table 'utf-translation-table-for-encode)))
211 (defvar utf-translate-cjk-unicode-range-string nil)
215 (setq utf-translate-cjk-unicode-range-string
267 ucs-mule-cjk-to-unicode (make-hash-table :test 'eq)
268 ucs-unicode-to-mule-cjk (make-hash-table :test 'eq)))
297 (let ((redefined (< (hash-table-size ucs-mule-cjk-to-unicode) 43000)))
303 (make-hash-table :test 'eq :size 43000 :rehash-size 1000)
305 (make-hash-table :test 'eq :size 21500 :rehash-size 1000)))
317 (cond ((string= "Korean" current-language-environment)
322 ((string= "Chinese-BIG5" current-language-environment)
327 ((string= "Chinese-GB" current-language-environment)
339 (define-translation-hash-table 'utf-subst-table-for-decode
341 (define-translation-hash-table 'utf-subst-table-for-encode
343 (set-char-table-extra-slot (get 'utf-translation-table-for-encode
344 'translation-table)
349 (defun utf-lookup-subst-table-for-decode (code-point)
355 (get 'utf-subst-table-for-decode 'translation-hash-table)))
358 (defun utf-lookup-subst-table-for-encode (char)
364 (get 'utf-subst-table-for-encode 'translation-hash-table)))
392 (define-translation-hash-table 'utf-subst-table-for-decode
394 (define-translation-hash-table 'utf-subst-table-for-encode
396 (set-char-table-extra-slot (get 'utf-translation-table-for-encode
397 'translation-table)
399 (define-translation-hash-table 'utf-subst-table-for-decode
400 (make-hash-table :test 'eq))
401 (define-translation-hash-table 'utf-subst-table-for-encode
402 (make-hash-table :test 'eq))
403 (set-char-table-extra-slot (get 'utf-translation-table-for-encode
404 'translation-table)
409 (if (string-match "^mule-utf" (symbol-name elt))
514 (lookup-integer utf-subst-table-for-decode r0 r1)
522 utf-translation-table-for-decode r0 r1)))
529 (lookup-integer utf-subst-table-for-decode r0 r1)
573 (lookup-integer utf-subst-table-for-decode r0 r1)
581 utf-translation-table-for-decode r0 r1)))
589 (lookup-integer utf-subst-table-for-decode r0 r1)
604 (lookup-integer utf-subst-table-for-decode r3 r1)
618 (lookup-integer utf-subst-table-for-decode r0 r1)
646 ;; Fixme: allow lookup in utf-subst-table-for-decode.
692 mule-unicode-*, but see also `utf-fragmentation-table' and
770 (translate-character utf-translation-table-for-encode r0 r1)
849 (lookup-character utf-subst-table-for-encode r0 r1)
921 (defsubst utf-8-compose (hash-table)
929 (if (and hash-table
930 (setq ch (gethash (aref utf-8-ccl-regs 0) hash-table)))
961 ;; version of the string in the loop, since it's always loaded as
963 (let ((range (string-as-multibyte "^\xc0-\xc3\xe1-\xf7"))
965 hash-table ch)
972 (concat range utf-translate-cjk-unicode-range-string))
976 (concat range utf-translate-cjk-unicode-range-string)))
977 (setq hash-table (get 'utf-subst-table-for-decode
978 'translation-hash-table))))
983 (utf-8-compose hash-table)
984 (if (and hash-table
985 (setq ch (gethash (encode-char ch 'ucs) hash-table)))
1012 (string-match "\\cc\\|\\cj\\|\\ch" beg)
1054 (translation-table-for-encode . utf-translation-table-for-encode)
1065 ;;; (defun utf-8-compose-function (pos to pattern &optional string)
1066 ;;; (let* ((prop (get-char-property pos 'composition string))
1078 ;;; (aset composition-function-table
1080 ;;; `((,(string-as-multibyte "[\200-\237\240-\377]")