summaryrefslogtreecommitdiff
path: root/leim
diff options
context:
space:
mode:
authorKenichi Handa <handa@m17n.org>1998-07-21 01:42:40 +0000
committerKenichi Handa <handa@m17n.org>1998-07-21 01:42:40 +0000
commit9dda7cad50d96e90033af3ac78c3e45c6cdb45e6 (patch)
treeb7dc14d36597e7cf95496c2c8a25d02a74741424 /leim
parentf370eb4c04b5d9aef99efe573f256e4fa85e0c6d (diff)
downloademacs-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.el7
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")