Lines Matching defs:table
35 ;; defining a translation table (named Quail map) which maps ASCII key
786 "Insert the visual keyboard layout table according to KBD-LAYOUT.
812 ;; Make table without horizontal lines. Each column for a key
1051 (if (char-table-p decode-map)
1052 (eq (char-table-subtype decode-map) 'quail-decode-map)))
1286 (or (and translation-table-for-input
1287 (aref translation-table-for-input c))
2473 (with-syntax-table emacs-lisp-mode-syntax-table
2565 (with-syntax-table emacs-lisp-mode-syntax-table
2629 ;; Add KEY (string) to the element of TABLE (char-table) for CHAR if
2633 (defsubst quail-store-decode-map-key (table char key)
2634 (let ((elt (aref table char)))
2638 (aset table char (cons key elt)))
2640 (aset table char (list key elt))))
2641 (aset table char key))
2642 (if (and translation-table-for-input
2643 (setq char (aref translation-table-for-input char)))
2644 (let ((translation-table-for-input nil))
2645 (quail-store-decode-map-key table char key)))))
2648 ;; type each character under MAP in TABLE (char-table). MAP is an
2652 (defun quail-gen-decode-map1 (map key table)
2656 (quail-store-decode-map-key table trans key))
2659 (quail-store-decode-map-key table (aref trans i) key)))
2667 (quail-store-decode-map-key table (aref elt 0) key))
2668 (quail-store-decode-map-key table elt key)))))))
2671 (quail-gen-decode-map1 (cdr elt) key table))
2674 table)))))
2676 (put 'quail-decode-map 'char-table-extra-slots 0)
2678 ;; Generate a halfly-cooked decode map (char-table) for the current
2684 (let ((table (make-char-table 'quail-decode-map nil)))
2686 (quail-gen-decode-map1 (cdr elt) (string (car elt)) table))
2687 table))
2690 ;; by translation-table-for-input.
2694 (and translation-table-for-input
2695 (setq char (aref translation-table-for-input char))
2795 ;; Quail map generator from state transition table.
2797 (defun quail-map-from-table (table)
2798 "Make quail map from state transition table TABLE.
2820 (let ((state-alist (mapcar (lambda (x) (list (car x))) table))
2825 (while table
2826 (quail-map-from-table-1 state-alist (car table))
2827 (setq table (cdr table)))
2836 (quail-map-from-table-2 state-alist elt))
2844 (defun quail-map-from-table-1 (state-alist state-info)
2858 ;; later in `quail-map-from-table-2'.
2880 (defun quail-map-from-table-2 (state-alist element)
2886 (quail-map-from-table-2 state-alist (cdr elt)))
2889 (quail-map-from-table-2 state-alist (cdr elt))