Mercurial > emacs
changeset 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 | 19ed63955546 |
| children | 9ace35333789 |
| files | lisp/international/quail.el |
| diffstat | 1 files changed, 9 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/quail.el Tue Jul 21 01:42:40 1998 +0000 +++ b/lisp/international/quail.el Tue Jul 21 01:42:40 1998 +0000 @@ -282,7 +282,7 @@ (define-key map [escape] meta-map)) map) "Keymap used while processing translation in simple Quail modes. -A few especially complex input methods use `quail--translation-keymap' instead. +A few especially complex input methods use `quail-translation-keymap' instead. This map is activated while translation region is active.") (defconst quail-conversion-keymap @@ -917,9 +917,10 @@ ;; Let's return the event(s) to the caller. (setq generated-events events quail-translating nil)))) - (setq generated-events - (append (quail-overlay-region-events quail-overlay) - generated-events)) + (if (overlay-start quail-overlay) + (setq generated-events + (append (quail-overlay-region-events quail-overlay) + generated-events))) generated-events) ;; Since KEY doesn't start any translation, just return it. @@ -964,9 +965,10 @@ ;; Let's return the event(s) to the caller. (setq generated-events events quail-converting nil)))) - (setq generated-events - (append (quail-overlay-region-events quail-conv-overlay) - generated-events)) + (if (overlay-start quail-conv-overlay) + (setq generated-events + (append (quail-overlay-region-events quail-conv-overlay) + generated-events))) generated-events) ;; Since KEY doesn't start any translation, just return it.