Lines Matching defs:table
71 ;; cpNNN-decode-table variables in codepage.el, which also
83 ;; defining a display table where each character that doesn't have a
236 (defun IT-display-table-setup (codepage &optional table)
237 "Set up display table TABLE for a DOS terminal which supports
240 If TABLE is nil or omitted, `standard-display-table' is used."
242 (disp-tab (or table standard-display-table))
246 (symbol-value (intern-soft (format "%s-decode-table" codepage))))
251 ;; a different codepage) by reverting the display table for the
560 (defun IT-setup-unicode-display (&optional table)
561 "Set up display table TABLE for displaying mule-unicode-* characters
562 on a DOS terminal. If TABLE is nil or omitted, `standard-display-table'
565 (let ((disp-tab (or table standard-display-table))
574 (table (nth 4 translation))
579 (setq glyph (aref table i))
602 ;;(setq nonascii-translation-table
603 ;; (symbol-value (intern (concat cp "-nonascii-translation-table"))))
610 (IT-display-table-setup cp)
631 (modify-syntax-entry ch sy text-mode-syntax-table)
632 (if (boundp 'tex-mode-syntax-table)
633 (modify-syntax-entry ch sy tex-mode-syntax-table))
634 (modify-syntax-entry ch sy (standard-syntax-table))
636 (table (standard-case-table))
661 (set-case-syntax-pair ch2 ch1 table))
664 (mapcar (lambda (b) (set-buffer b) (set-case-table table))
666 (set-standard-case-table table)))
711 (IT-display-table-setup "cp437")