Lines Matching defs:table
35 ;; iso8859 charsets and the emacs-unicode charsets and a table that
54 ;; The translation-table `utf-translation-table-for-encode' is
62 ;; Unification also arranges for `translation-table-for-input' to be
83 (defvar ucs-mule-8859-to-ucs-table (make-translation-table)
84 "Char table from Emacs ISO-8859 characters to Unicode.
89 (defvar ucs-mule-8859-to-mule-unicode (make-translation-table)
90 "Char table from Emacs ISO-8859 characters to Mule Unicode.
97 ;; (defvar ucs-ucs-to-mule-8859-table (make-translation-table)
98 ;; "Translation table from Unicode to Emacs ISO-8859 characters.
104 ;; (defvar ucs-mule-unicode-to-mule-8859 (make-translation-table)
105 ;; "Translation table from Mule Unicode to Emacs ISO-8859 characters.
112 (defvar ucs-8859-1-encode-table nil
113 "Used as `translation-table-for-encode' for iso-8859-2.
116 (defvar ucs-8859-2-encode-table nil
117 "Used as `translation-table-for-encode' for iso-8859-2.
120 (defvar ucs-8859-3-encode-table nil
121 "Used as `translation-table-for-encode' for iso-8859-3.
124 (defvar ucs-8859-4-encode-table nil
125 "Used as `translation-table-for-encode' for iso-8859-4.
128 (defvar ucs-8859-5-encode-table nil
129 "Used as `translation-table-for-encode' for iso-8859-5.
132 (defvar ucs-8859-7-encode-table nil
133 "Used as `translation-table-for-encode' for iso-8859-7.
136 (defvar ucs-8859-8-encode-table nil
137 "Used as `translation-table-for-encode' for iso-8859-8.
140 (defvar ucs-8859-9-encode-table nil
141 "Used as `translation-table-for-encode' for iso-8859-9.
144 (defvar ucs-8859-14-encode-table nil
145 "Used as `translation-table-for-encode' for iso-8859-14.
148 (defvar ucs-8859-15-encode-table nil
149 "Used as `translation-table-for-encode' for iso-8859-15.
152 (setq translation-table-for-input (make-translation-table))
154 (put 'translation-table-for-input 'permanent-local t)
156 (define-translation-table 'ucs-translation-table-for-decode)
1100 ;; table `utf-translation-table-for-decode' does nothing.
1109 (aset ucs-mule-8859-to-ucs-table mule uc)
1110 ;; (aset ucs-ucs-to-mule-8859-table uc mule)
1116 ;; `translation-table-for-encode's.
1120 (encode-translator (set (intern (format "ucs-8859-%d-encode-table"
1122 (make-translation-table)))
1135 (map-char-table (lambda (k v)
1139 ucs-mule-8859-to-ucs-table)
1140 (optimize-char-table encode-translator)
1160 (progn (map-char-table
1163 utf-fragmentation-table)
1164 (optimize-char-table ucs-mule-8859-to-mule-unicode))
1166 (map-char-table
1169 utf-fragmentation-table))
1172 (set-char-table-parent standard-translation-table-for-decode
1175 (define-translation-table 'ucs-translation-table-for-decode
1179 (setq-default translation-table-for-input ucs-mule-to-mule-unicode)
1181 ;; translation-table.
1189 (define-translation-table 'utf-translation-table-for-encode
1192 (set-char-table-parent (coding-system-get coding 'safe-chars)
1200 (table (symbol-value
1201 (intern (format "ucs-8859-%d-encode-table" n))))
1206 (set-char-table-parent safe table)
1207 (coding-system-put coding-system 'translation-table-for-encode table)))
1217 (set-char-table-parent standard-translation-table-for-decode nil)
1219 (define-translation-table 'ucs-translation-table-for-decode)
1220 (setq-default translation-table-for-input nil))
1225 ;; and what is translated by utf-translation-table-for-decode when
1232 (set-char-table-parent (coding-system-get coding 'safe-chars) nil))
1234 (define-translation-table 'utf-translation-table-for-encode)
1235 (define-translation-table 'utf-translation-table-for-encode
1236 utf-defragmentation-table)))
1244 (if (char-table-parent safe)
1245 (set-char-table-parent safe nil))
1246 (coding-system-put coding-system 'translation-table-for-encode nil)))
1265 ;; tables ucs-CS-encode-table are constructed for some coding systems
1266 ;; CS which could be used as `translation-table-for-encode', currently
2400 (let ((table (make-char-table 'safe-chars))
2405 ;; These tables could be used as translation-table-for-encode by
2409 (set (intern (format "ucs-%s-encode-table" cs))
2410 (make-translation-table)))))
2416 (optimize-char-table encode-translator))
2425 'translation-table-for-input
2428 'translation-table-for-input
2431 (coding-system-put cs 'translation-table-for-input
2434 (aset table (make-char c) t))))
2457 Also sets hooks that arrange `translation-table-for-input' to be set
2479 Also sets `translation-table-for-input' globally, so that keyboard input
2497 ;; Arrange to set up the translation-table for keyboard input. This
2500 (defun ucs-set-table-for-input (&optional buffer)
2501 "Set up an appropriate `translation-table-for-input' for BUFFER.
2506 (char-table-p translation-table-for-input))
2509 table)
2516 (setq table (coding-system-get cs 'translation-table-for-encode))
2517 (if (and table (symbolp table))
2518 (setq table (get table 'translation-table)))
2519 (unless (char-table-p table)
2520 (setq table (coding-system-get cs 'translation-table-for-input))
2521 (if (and table (symbolp table))
2522 (setq table (get table 'translation-table))))
2523 (when (char-table-p table)
2526 (set (make-local-variable 'translation-table-for-input)
2527 table))
2528 (set (make-local-variable 'translation-table-for-input)
2529 table)))))))
2541 (ucs-set-table-for-input))