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

(kkc-region): Handled the case that

Browse source 
conversion is cancelled.
(kkc-terminate): Update kkc-overlay-head correctly.
(kkc-cancel): Don't call kkc-terminate, but set kkc-converting to
nil.
This commit is contained in:
Kenichi Handa 1998-07-21 01:42:40 +00:00
parent 348d1438c7
commit f370eb4c04
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/international/kkc.el
View file

@ -232,17 +232,19 @@ and the return value is the length of the conversion."
;; Let's put the event back.
(setq unread-input-method-events
(append (string-to-list keyseq) unread-input-method-events))
(setq kkc-converting nil)))))
(kkc-terminate)))))
(force-mode-line-update)
(goto-char (overlay-end kkc-overlay-tail))
(prog1 (- (point) from)
(prog1 (- (overlay-start kkc-overlay-head) from)
(delete-overlay kkc-overlay-head)
(delete-overlay kkc-overlay-tail)))
(defun kkc-terminate ()
"Exit from KKC mode by fixing the current conversion."
(interactive)
(goto-char (overlay-end kkc-overlay-tail))
(move-overlay kkc-overlay-head (point) (point))
(setq kkc-converting nil))
(defun kkc-cancel ()
@ -252,7 +254,7 @@ and the return value is the length of the conversion."
(delete-region (overlay-start kkc-overlay-head)
(overlay-end kkc-overlay-tail))
(insert kkc-original-kana)
(kkc-terminate))
(setq kkc-converting nil))
(defun kkc-first-char-only ()
"Select only the first character currently converted."