Lines Matching defs:iso2022
40 (defvar encoded-kbd-iso2022-esc-map
42 (define-key map "$" 'encoded-kbd-iso2022-esc-dollar-prefix)
43 (define-key map "(" 'encoded-kbd-iso2022-designation-prefix)
44 (define-key map ")" 'encoded-kbd-iso2022-designation-prefix)
45 (define-key map "," 'encoded-kbd-iso2022-designation-prefix)
46 (define-key map "-" 'encoded-kbd-iso2022-designation-prefix)
49 (fset 'encoded-kbd-iso2022-esc-prefix encoded-kbd-iso2022-esc-map)
51 (defvar encoded-kbd-iso2022-esc-dollar-map
53 (define-key map "(" 'encoded-kbd-iso2022-designation-prefix)
54 (define-key map ")" 'encoded-kbd-iso2022-designation-prefix)
55 (define-key map "," 'encoded-kbd-iso2022-designation-prefix)
56 (define-key map "-" 'encoded-kbd-iso2022-designation-prefix)
57 (define-key map "@" 'encoded-kbd-iso2022-designation)
58 (define-key map "A" 'encoded-kbd-iso2022-designation)
59 (define-key map "B" 'encoded-kbd-iso2022-designation)
62 (fset 'encoded-kbd-iso2022-esc-dollar-prefix
63 encoded-kbd-iso2022-esc-dollar-map)
65 (defvar encoded-kbd-iso2022-designation-map
73 'encoded-kbd-iso2022-designation))
77 (fset 'encoded-kbd-iso2022-designation-prefix
78 encoded-kbd-iso2022-designation-map)
85 (defvar encoded-kbd-iso2022-designations nil)
86 (put 'encoded-kbd-iso2022-designations 'permanent-local t)
93 (defvar encoded-kbd-iso2022-invocations nil)
94 (put 'encoded-kbd-iso2022-invocations 'permanent-local t)
100 (defun encoded-kbd-iso2022-designation (ignore)
104 (prev-g0-charset (aref encoded-kbd-iso2022-designations
105 (aref encoded-kbd-iso2022-invocations 0)))
127 (aset encoded-kbd-iso2022-designations reg
131 (defun encoded-kbd-iso2022-single-shift (ignore)
133 (aset encoded-kbd-iso2022-invocations 2 (if (= char ?\216) 2 3)))
136 (defun encoded-kbd-self-insert-iso2022-7bit (ignore)
138 (charset (aref encoded-kbd-iso2022-designations
139 (or (aref encoded-kbd-iso2022-invocations 2)
140 (aref encoded-kbd-iso2022-invocations 0)))))
141 (aset encoded-kbd-iso2022-invocations 2 nil)
146 (defun encoded-kbd-self-insert-iso2022-8bit (ignore)
148 (charset (aref encoded-kbd-iso2022-designations
149 (or (aref encoded-kbd-iso2022-invocations 2)
150 (aref encoded-kbd-iso2022-invocations 1)))))
151 (aset encoded-kbd-iso2022-invocations 2 nil)
204 (setq encoded-kbd-iso2022-designations (make-vector 4 nil)
205 encoded-kbd-iso2022-invocations (make-vector 3 nil))
209 (aset encoded-kbd-iso2022-designations
213 (aset encoded-kbd-iso2022-designations
215 (aset encoded-kbd-iso2022-invocations 0 0)
216 (if (aref encoded-kbd-iso2022-designations 1)
217 (aset encoded-kbd-iso2022-invocations 1 1))
219 (define-key encoded-kbd-mode-map "\e" 'encoded-kbd-iso2022-esc-prefix)
220 (define-key key-translation-map "\e" 'encoded-kbd-iso2022-esc-prefix))
223 [?\216] 'encoded-kbd-iso2022-single-shift)
225 [?\217] 'encoded-kbd-iso2022-single-shift))
229 (vector (+ 32 i)) 'encoded-kbd-self-insert-iso2022-7bit)))
234 (vector (+ 160 i)) 'encoded-kbd-self-insert-iso2022-8bit))