Lines Matching defs:table
55 DECODER is a translation table for converting characters in the DOS codepage
57 ENCODER is a translation table for encoding Emacs multibyte characters into
66 (safe-chars (make-char-table 'safe-chars))
94 ;; to t in the char-table safe-chars.
95 (let ((tbl (get decoder 'translation-table))
113 (defun cp-decoding-vector-for-codepage (table charset offset)
114 "Create a vector for decoding IBM PC characters using conversion table
117 (let* ((len (length table))
131 (if (aref table i)
132 (aset vec1 (aref table i) (make-char charset (+ i offset))))
137 ;;; The following Awk script will create the table for cp850-to-Latin-1
190 ;;; on MS-DOS as nonascii-translation-table (see `dos-codepage-setup' on
202 (defvar cp437-decode-table
214 (setplist 'cp437-decode-table
218 (defvar cp850-decode-table
230 (setplist 'cp850-decode-table
234 (defvar cp858-decode-table
246 (setplist 'cp858-decode-table
250 (defvar cp851-decode-table
259 (setplist 'cp851-decode-table
263 (defvar cp852-decode-table
272 (setplist 'cp852-decode-table
276 (defvar cp855-decode-table
285 (setplist 'cp855-decode-table
289 (defvar cp857-decode-table
298 (setplist 'cp857-decode-table
302 (defvar cp860-decode-table
311 (setplist 'cp860-decode-table
315 (defvar cp861-decode-table
324 (setplist 'cp861-decode-table
328 (defvar cp862-decode-table
340 (setplist 'cp862-decode-table
344 (defvar cp863-decode-table
353 (setplist 'cp863-decode-table
359 (defvar cp864-decode-table
368 (setplist 'cp864-decode-table
374 (defvar cp720-decode-table
383 (setplist 'cp720-decode-table
388 (defvar cp865-decode-table
397 (setplist 'cp865-decode-table
402 (defvar cp866-decode-table
411 (setplist 'cp866-decode-table
415 (defvar cp869-decode-table
424 (setplist 'cp869-decode-table
428 (defvar cp737-decode-table
437 (setplist 'cp737-decode-table
442 (defvar cp770-decode-table
451 (setplist 'cp770-decode-table
454 (defvar cp773-decode-table
463 (setplist 'cp773-decode-table
466 (defvar cp774-decode-table
475 (setplist 'cp774-decode-table
478 (defvar cp775-decode-table
487 (setplist 'cp775-decode-table
508 (defvar cp1250-decode-table
516 "ISO-8859-2 to Windows-1250 (Central Europe) codepage decoding table.")
517 (setplist 'cp1250-decode-table
520 (defvar cp1251-decode-table
528 "ISO-8859-5 to Windows-1251 (Cyrillic) codepage decoding table.")
529 (setplist 'cp1251-decode-table
535 (defvar cp1253-decode-table
543 "ISO-8859-7 to Windows-1253 (Greek) codepage decoding table.")
544 (setplist 'cp1253-decode-table
550 (defvar cp1257-decode-table
558 "ISO-8859-4 to Windows-1257 (Baltic) codepage decoding table.")
559 (setplist 'cp1257-decode-table
566 ASCII table.
572 (let* ((decode-table (intern (format "%s-decode-table" codepage)))
573 (nonascii-table
574 (intern (format "%s-nonascii-translation-table" codepage)))
576 (intern (format "%s-decode-translation-table" codepage)))
578 (intern (format "%s-encode-translation-table" codepage))))
579 (set nonascii-table
580 (make-translation-table-from-vector
582 (symbol-value decode-table) iso-name offset)))
583 (define-translation-table encode-translation
584 (char-table-extra-slot (symbol-value nonascii-table) 0))
589 (let ((tbl (char-table-extra-slot (symbol-value nonascii-table) 0))
605 (define-translation-table decode-translation
606 (symbol-value nonascii-table))
612 "If CODEPAGE is the name of a supported codepage, return its decode table.
617 (intern-soft (format "%s-decode-table" cp)))
622 "Return the charset for which there is a translation table to DOS CODEPAGE.
655 A codepage NNN is supported if a variable called `cpNNN-decode-table' exists,
663 (string-match "\\`cp\\([1-9][0-9][0-9][0-9]?\\)-decode-table\\'"