Mercurial > emacs
comparison lisp/international/encoded-kb.el @ 22521:da62a50f7cff
(encoded-kbd-self-insert-sjis):
Handle katakana-jisx0201 correctly.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sat, 20 Jun 1998 02:59:51 +0000 |
| parents | e225fec97357 |
| children | 30beacf88b75 |
comparison
equal
deleted
inserted
replaced
| 22520:901451c61b3f | 22521:da62a50f7cff |
|---|---|
| 220 (interactive) | 220 (interactive) |
| 221 (let ((last-command-char | 221 (let ((last-command-char |
| 222 (if (or (< last-command-char ?\xA0) (>= last-command-char ?\xE0)) | 222 (if (or (< last-command-char ?\xA0) (>= last-command-char ?\xE0)) |
| 223 (decode-sjis-char (+ (ash last-command-char 8) | 223 (decode-sjis-char (+ (ash last-command-char 8) |
| 224 (read-char-exclusive))) | 224 (read-char-exclusive))) |
| 225 (make-char 'latin-jisx0201 last-command-char)))) | 225 (make-char 'katakana-jisx0201 last-command-char)))) |
| 226 (self-insert-command 1))) | 226 (self-insert-command 1))) |
| 227 | 227 |
| 228 (defun encoded-kbd-self-insert-big5 () | 228 (defun encoded-kbd-self-insert-big5 () |
| 229 (interactive) | 229 (interactive) |
| 230 (let ((last-command-char | 230 (let ((last-command-char |