Mercurial > emacs
comparison lisp/international/quail.el @ 101230:43780da4f5f4
(quail-insert-kbd-layout): Delete superfluous handling of 8-bit code.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 16 Jan 2009 12:35:49 +0000 |
| parents | a9dc0e7c3f2b |
| children | 70db2d7b280c |
comparison
equal
deleted
inserted
replaced
| 101229:0187c269e057 | 101230:43780da4f5f4 |
|---|---|
| 828 (setq row (/ i 30)) | 828 (setq row (/ i 30)) |
| 829 (if (> row 1) | 829 (if (> row 1) |
| 830 (insert-char 32 (+ row (/ (- row 2) 2))))) | 830 (insert-char 32 (+ row (/ (- row 2) 2))))) |
| 831 (setq lower (aref layout i) | 831 (setq lower (aref layout i) |
| 832 upper (aref layout (1+ i))) | 832 upper (aref layout (1+ i))) |
| 833 (if (and (integerp lower) (>= lower 128) (< lower 256)) | |
| 834 (setq lower (unibyte-char-to-multibyte lower))) | |
| 835 (if (and (integerp upper) (>= upper 128) (< upper 256)) | |
| 836 (setq upper (unibyte-char-to-multibyte upper))) | |
| 837 (insert bar) | 833 (insert bar) |
| 838 (if (= (if (stringp lower) (string-width lower) (char-width lower)) 1) | 834 (if (= (if (stringp lower) (string-width lower) (char-width lower)) 1) |
| 839 (insert " ")) | 835 (insert " ")) |
| 840 (insert lower upper) | 836 (insert lower upper) |
| 841 (if (= (if (stringp upper) (string-width upper) (char-width upper)) 1) | 837 (if (= (if (stringp upper) (string-width upper) (char-width upper)) 1) |