Mercurial > emacs
comparison lisp/international/quail.el @ 22793:c3ab1de66dfc
(quail-simple-translation-keymap): Typo
in doc-string fixed.
(quail-start-translation): Check start position of quail-overlay
before calling quail-overlay-region-events.
(quail-start-conversion): Likewise.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 21 Jul 1998 01:42:40 +0000 |
| parents | 1b0761cbc15b |
| children | 441f052f49f7 |
comparison
equal
deleted
inserted
replaced
| 22792:19ed63955546 | 22793:c3ab1de66dfc |
|---|---|
| 280 (let ((meta-map (make-sparse-keymap))) | 280 (let ((meta-map (make-sparse-keymap))) |
| 281 (define-key map (char-to-string meta-prefix-char) meta-map) | 281 (define-key map (char-to-string meta-prefix-char) meta-map) |
| 282 (define-key map [escape] meta-map)) | 282 (define-key map [escape] meta-map)) |
| 283 map) | 283 map) |
| 284 "Keymap used while processing translation in simple Quail modes. | 284 "Keymap used while processing translation in simple Quail modes. |
| 285 A few especially complex input methods use `quail--translation-keymap' instead. | 285 A few especially complex input methods use `quail-translation-keymap' instead. |
| 286 This map is activated while translation region is active.") | 286 This map is activated while translation region is active.") |
| 287 | 287 |
| 288 (defconst quail-conversion-keymap | 288 (defconst quail-conversion-keymap |
| 289 (let ((map (make-keymap)) | 289 (let ((map (make-keymap)) |
| 290 (i ?\ )) | 290 (i ?\ )) |
| 915 (quail-error (message "%s" (cdr err)) (beep)))) | 915 (quail-error (message "%s" (cdr err)) (beep)))) |
| 916 ;; KEYSEQ is not defined in the translation keymap. | 916 ;; KEYSEQ is not defined in the translation keymap. |
| 917 ;; Let's return the event(s) to the caller. | 917 ;; Let's return the event(s) to the caller. |
| 918 (setq generated-events events | 918 (setq generated-events events |
| 919 quail-translating nil)))) | 919 quail-translating nil)))) |
| 920 (setq generated-events | 920 (if (overlay-start quail-overlay) |
| 921 (append (quail-overlay-region-events quail-overlay) | 921 (setq generated-events |
| 922 generated-events)) | 922 (append (quail-overlay-region-events quail-overlay) |
| 923 generated-events))) | |
| 923 generated-events) | 924 generated-events) |
| 924 | 925 |
| 925 ;; Since KEY doesn't start any translation, just return it. | 926 ;; Since KEY doesn't start any translation, just return it. |
| 926 (list key))) | 927 (list key))) |
| 927 | 928 |
| 962 (quail-error (message "%s" (cdr err)) (beep)))) | 963 (quail-error (message "%s" (cdr err)) (beep)))) |
| 963 ;; KEYSEQ is not defined in the conversion keymap. | 964 ;; KEYSEQ is not defined in the conversion keymap. |
| 964 ;; Let's return the event(s) to the caller. | 965 ;; Let's return the event(s) to the caller. |
| 965 (setq generated-events events | 966 (setq generated-events events |
| 966 quail-converting nil)))) | 967 quail-converting nil)))) |
| 967 (setq generated-events | 968 (if (overlay-start quail-conv-overlay) |
| 968 (append (quail-overlay-region-events quail-conv-overlay) | 969 (setq generated-events |
| 969 generated-events)) | 970 (append (quail-overlay-region-events quail-conv-overlay) |
| 971 generated-events))) | |
| 970 generated-events) | 972 generated-events) |
| 971 | 973 |
| 972 ;; Since KEY doesn't start any translation, just return it. | 974 ;; Since KEY doesn't start any translation, just return it. |
| 973 (list key))) | 975 (list key))) |
| 974 | 976 |