Mercurial > emacs
comparison lisp/international/quail.el @ 22984:26d07a757c55
(quail-start-translation): If
enable-multibyte-characters is nil, convert multibyte character to
unibyte.
(quail-start-conversion): Likewise.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 10 Aug 1998 06:29:02 +0000 |
| parents | 72582ab5369d |
| children | ddc2fa7883d6 |
comparison
equal
deleted
inserted
replaced
| 22983:7a010b8c0d99 | 22984:26d07a757c55 |
|---|---|
| 946 (string-to-list (this-single-command-raw-keys))) | 946 (string-to-list (this-single-command-raw-keys))) |
| 947 (setq quail-translating nil)))) | 947 (setq quail-translating nil)))) |
| 948 (quail-delete-region) | 948 (quail-delete-region) |
| 949 (if (and quail-current-str (> (length quail-current-str) 0)) | 949 (if (and quail-current-str (> (length quail-current-str) 0)) |
| 950 (setq generated-events | 950 (setq generated-events |
| 951 (if (stringp quail-current-str) | 951 (append (string-to-list |
| 952 (append (string-to-list quail-current-str) | 952 (if enable-multibyte-characters |
| 953 generated-events) | 953 quail-current-str |
| 954 (cons quail-current-str generated-events)))) | 954 (string-make-unibyte quail-current-str))) |
| 955 generated-events))) | |
| 955 (if (and input-method-exit-on-first-char generated-events) | 956 (if (and input-method-exit-on-first-char generated-events) |
| 956 (list (car generated-events)) | 957 (list (car generated-events)) |
| 957 generated-events)) | 958 generated-events)) |
| 958 | 959 |
| 959 ;; Since KEY doesn't start any translation, just return it. | 960 ;; Since KEY doesn't start any translation, just return it. |
| 1021 (if (overlay-start quail-conv-overlay) | 1022 (if (overlay-start quail-conv-overlay) |
| 1022 (delete-region (overlay-start quail-conv-overlay) | 1023 (delete-region (overlay-start quail-conv-overlay) |
| 1023 (overlay-end quail-conv-overlay))) | 1024 (overlay-end quail-conv-overlay))) |
| 1024 (if (> (length quail-conversion-str) 0) | 1025 (if (> (length quail-conversion-str) 0) |
| 1025 (setq generated-events | 1026 (setq generated-events |
| 1026 (append (string-to-list quail-conversion-str) | 1027 (append (string-to-list |
| 1028 (if enable-multibyte-characters | |
| 1029 quail-conversion-str | |
| 1030 (string-make-unibyte quail-conversion-str))) | |
| 1027 generated-events))) | 1031 generated-events))) |
| 1028 (if (and input-method-exit-on-first-char generated-events) | 1032 (if (and input-method-exit-on-first-char generated-events) |
| 1029 (list (car generated-events)) | 1033 (list (car generated-events)) |
| 1030 generated-events)) | 1034 generated-events)) |
| 1031 | 1035 |