Mercurial > emacs
comparison lisp/international/encoded-kb.el @ 23196:30beacf88b75
Doc fixes.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Sun, 06 Sep 1998 14:31:49 +0000 |
parents | da62a50f7cff |
children | fcaabeb8aece |
comparison
equal
deleted
inserted
replaced
23195:85a5c1e86785 | 23196:30beacf88b75 |
---|---|
116 | 116 |
117 (defvar encoded-kbd-iso2022-invocations nil) | 117 (defvar encoded-kbd-iso2022-invocations nil) |
118 (put 'encoded-kbd-iso2022-invocations 'permanent-local t) | 118 (put 'encoded-kbd-iso2022-invocations 'permanent-local t) |
119 | 119 |
120 (defun encoded-kbd-iso2022-designation () | 120 (defun encoded-kbd-iso2022-designation () |
121 "Do ISO2022 designation according to the curren key in Encoded-kbd mode. | 121 "Do ISO2022 designation according to the current key in Encoded-kbd mode. |
122 The following key sequence may cause multilingual text insertion." | 122 The following key sequence may cause multilingual text insertion." |
123 (interactive) | 123 (interactive) |
124 (let ((key-seq (this-command-keys)) | 124 (let ((key-seq (this-command-keys)) |
125 (prev-g0-charset (aref encoded-kbd-iso2022-designations | 125 (prev-g0-charset (aref encoded-kbd-iso2022-designations |
126 (aref encoded-kbd-iso2022-invocations 0))) | 126 (aref encoded-kbd-iso2022-invocations 0))) |
154 (aref encoded-kbd-iso2022-invocations 0)) | 154 (aref encoded-kbd-iso2022-invocations 0)) |
155 '(ascii latin-jisx0201)) | 155 '(ascii latin-jisx0201)) |
156 ;; Graphic plane 0 (0x20..0x7f) is for ASCII. We don't have | 156 ;; Graphic plane 0 (0x20..0x7f) is for ASCII. We don't have |
157 ;; to handle characters in this range specially. | 157 ;; to handle characters in this range specially. |
158 (if (not (memq prev-g0-charset '(ascii latin-jisx0201))) | 158 (if (not (memq prev-g0-charset '(ascii latin-jisx0201))) |
159 ;; We must exit recusive edit now. | 159 ;; We must exit recursive edit now. |
160 (throw 'exit nil)) | 160 (throw 'exit nil)) |
161 ;; Graphic plane 0 is for non-ASCII. | 161 ;; Graphic plane 0 is for non-ASCII. |
162 (if (memq prev-g0-charset '(ascii latin-jisx0201)) | 162 (if (memq prev-g0-charset '(ascii latin-jisx0201)) |
163 ;; We must handle kyes specially. | 163 ;; We must handle keys specially. |
164 (let ((overriding-local-map encoded-kbd-iso2022-non-ascii-map)) | 164 (let ((overriding-local-map encoded-kbd-iso2022-non-ascii-map)) |
165 (recursive-edit)))))) | 165 (recursive-edit)))))) |
166 | 166 |
167 (defun encoded-kbd-handle-8bit () | 167 (defun encoded-kbd-handle-8bit () |
168 "Handle an 8-bit character enterned in Encoded-kbd mode." | 168 "Handle an 8-bit character entered in Encoded-kbd mode." |
169 (interactive) | 169 (interactive) |
170 (cond ((eq encoded-kbd-coding 'iso2022-7) | 170 (cond ((eq encoded-kbd-coding 'iso2022-7) |
171 (error "Can't handle the character code %d" last-command-char)) | 171 (error "Can't handle the character code %d" last-command-char)) |
172 | 172 |
173 ((eq encoded-kbd-coding 'iso2022-8) | 173 ((eq encoded-kbd-coding 'iso2022-8) |