Mercurial > emacs
comparison lisp/international/encoded-kb.el @ 59711:fa3ef0f9b02e
(encoded-kbd-iso2022-single-shift):
Fix setting of the element of encoded-kbd-iso2022-invocations.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 24 Jan 2005 00:19:35 +0000 |
| parents | 3caaa79fcb7e |
| children | 00b61538c205 befae6bafecb |
comparison
equal
deleted
inserted
replaced
| 59710:dc40d9822125 | 59711:fa3ef0f9b02e |
|---|---|
| 124 (iso-charset dimension chars final-char))) | 124 (iso-charset dimension chars final-char))) |
| 125 "") | 125 "") |
| 126 | 126 |
| 127 (defun encoded-kbd-iso2022-single-shift (ignore) | 127 (defun encoded-kbd-iso2022-single-shift (ignore) |
| 128 (let ((char (encoded-kbd-last-key))) | 128 (let ((char (encoded-kbd-last-key))) |
| 129 (aset encoded-kbd-iso2022-invocations 2 | 129 (aset encoded-kbd-iso2022-invocations 2 (if (= char ?\216) 2 3))) |
| 130 (aref encoded-kbd-iso2022-designations | |
| 131 (if (= char ?\216) 2 3)))) | |
| 132 "") | 130 "") |
| 133 | 131 |
| 134 (defun encoded-kbd-self-insert-iso2022-7bit (ignore) | 132 (defun encoded-kbd-self-insert-iso2022-7bit (ignore) |
| 135 (let ((char (encoded-kbd-last-key)) | 133 (let ((char (encoded-kbd-last-key)) |
| 136 (charset (aref encoded-kbd-iso2022-designations | 134 (charset (aref encoded-kbd-iso2022-designations |