Lines Matching +defs:decode +defs:char
47 (defvar dos-unsupported-char-glyph)
62 (if dos-unsupported-char-glyph
63 (logand dos-unsupported-char-glyph 255)
66 (safe-chars (make-char-table 'safe-chars))
94 ;; to t in the char-table safe-chars.
116 character is generated by (make-char CHARSET OFFSET)."
118 (undefined-char
120 (if dos-unsupported-char-glyph
121 (logand dos-unsupported-char-glyph 255)
124 (vec1 (make-vector 256 undefined-char))
132 (aset vec1 (aref table i) (make-char charset (+ i offset))))
202 (defvar cp437-decode-table
204 ;; character created by (make-char 'latin-iso8859-1 (+ N 160)).
214 (setplist 'cp437-decode-table
218 (defvar cp850-decode-table
220 ;; character created by (make-char 'latin-iso8859-1 (+ N 160)).
230 (setplist 'cp850-decode-table
234 (defvar cp858-decode-table
236 ;; character created by (make-char 'latin-iso8859-15 (+ N 160)).
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
330 ;; character created by (make-char 'hebrew-iso8859-8 (+ N 160)).
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
517 (setplist 'cp1250-decode-table
520 (defvar cp1251-decode-table
529 (setplist 'cp1251-decode-table
535 (defvar cp1253-decode-table
544 (setplist 'cp1253-decode-table
550 (defvar cp1257-decode-table
559 (setplist 'cp1257-decode-table
572 (let* ((decode-table (intern (format "%s-decode-table" codepage)))
575 (decode-translation
576 (intern (format "%s-decode-translation-table" codepage)))
582 (symbol-value decode-table) iso-name offset)))
584 (char-table-extra-slot (symbol-value nonascii-table) 0))
588 ;; character to either dos-unsupported-char-glyph or "??".
589 (let ((tbl (char-table-extra-slot (symbol-value nonascii-table) 0))
591 (if dos-unsupported-char-glyph
592 (logand dos-unsupported-char-glyph 255)
600 (wide-column-char (make-char 'japanese-jisx0208 32 32)))
602 (aset tbl (make-char (car charsets))
603 (if (= (charset-width (car charsets)) 1) undef wide-column-char))
605 (define-translation-table decode-translation
608 (intern codepage) ?D iso-name decode-translation encode-translation)
612 "If CODEPAGE is the name of a supported codepage, return its decode table.
617 (intern-soft (format "%s-decode-table" cp)))
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\\'"
704 (decode-codepage-char ,(string-to-int (car elt))