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 | 9dda7cad50d96e90033af3ac78c3e45c6cdb45e6 (patch) | |
| tree | b7dc14d36597e7cf95496c2c8a25d02a74741424 /leim | |
| parent | f370eb4c04b5d9aef99efe573f256e4fa85e0c6d (diff) | |
| download | emacs-9dda7cad50d96e90033af3ac78c3e45c6cdb45e6.tar.gz | |
(quail-japanese-kanji-kkc): Handle the case
that conversion is cancelled in kkc-region.
(quail-japanese-switch-package): Fix previous change.
Diffstat (limited to 'leim')
| -rw-r--r-- | leim/quail/japanese.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/leim/quail/japanese.el b/leim/quail/japanese.el index 42df5372d37..f1241b452fc 100644 --- a/leim/quail/japanese.el +++ b/leim/quail/japanese.el @@ -76,8 +76,9 @@ newfrom) (quail-delete-overlays) (let ((result (kkc-region from to))) - (move-overlay quail-conv-overlay (- (point) result) (point))) - (setq quail-converting nil))) + (move-overlay quail-conv-overlay from (point)) + (if (= (+ from result) (point)) + (setq quail-converting nil))))) (defun quail-japanese-self-insert-and-switch-to-alpha (key idx) (quail-delete-region) @@ -95,6 +96,8 @@ (put 'quail-japanese-package-saved 'permanent-local t) (defun quail-japanese-switch-package (key idx) + (quail-delete-region) + (setq quail-converting nil) (let ((pkg (cdr (assq (aref key (1- idx)) quail-japanese-switch-table)))) (if (null pkg) (quail-error "No package to be switched") |