egg-980315.

[elisp/egg.git] / its.el

diff --git a/its.el b/its.el
index d55f755..89c5bd2 100644 (file)
--- a/its.el
+++ b/its.el
@@ -956,15 +956,10 @@ Return last state."
   "Exit ITS mode."
   (interactive)
   (let ((inhibit-read-only t))
+    (its-input-end)
+    (its-put-cursor t)
     (its-exit-mode-internal)))
 
-(defun its-exit-mode-off-input-method ()
-  "Exit ITS mode."
-  (interactive)
-  (let ((inhibit-read-only t))
-    (its-exit-mode-internal)
-    (inactivate-input-method)))
-
 ;; TODO: handle overwrite-mode, insertion-hook, fill...
 (defun its-exit-mode-internal (&optional proceed-to-conversion)
   (let (start end s e)
@@ -993,6 +988,8 @@ Return last state."
 (defun its-kick-convert-region ()
   (interactive)
   (let ((inhibit-read-only t))
+    (its-input-end)
+    (its-put-cursor t)
     (its-exit-mode-internal t)))
 
 (defun its-kick-convert-region-or-self-insert ()