diff options
| author | Kenichi Handa <handa@m17n.org> | 1998-07-21 01:42:40 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1998-07-21 01:42:40 +0000 |
| commit | 348d1438c794b5c4712e6877b82c24cc21ef4b0a (patch) | |
| tree | 0427f1a5c0a8f172c0471ba791d6e20756a74304 /lisp/international | |
| parent | 360fbb8e498da7bafa5a155cbb2df05b4c170716 (diff) | |
| download | emacs-348d1438c794b5c4712e6877b82c24cc21ef4b0a.tar.gz | |
(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.
Diffstat (limited to 'lisp/international')
| -rw-r--r-- | lisp/international/quail.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/lisp/international/quail.el b/lisp/international/quail.el index d088ab94223..6fbd8324185 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el @@ -282,7 +282,7 @@ This map is activated while translation region is active.") (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 @@ The returned value is a Quail map specific to KEY." ;; 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 @@ The returned value is a Quail map specific to KEY." ;; 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. |