procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(quail-japanese-kanji-kkc): Handle the case

Browse source 
that conversion is cancelled in kkc-region.
(quail-japanese-switch-package): Fix previous change.
This commit is contained in:
Kenichi Handa 1998-07-21 01:42:40 +00:00
parent f370eb4c04
commit 9dda7cad50
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
leim/quail/japanese.el
View file

@ -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")