(kkc-region): Don't change modified-p of

the current buffer.

1 files changed, 2 insertions, 0 deletions

diff --git a/lisp/international/kkc.el b/lisp/international/kkc.el
index 6338dc10ed..291499935d 100644
--- a/lisp/international/kkc.el
+++ b/lisp/international/kkc.el
@@ -230,6 +230,7 @@ and the return value is the length of the conversion."
       ;; At first convert the region to the first candidate.
       (let ((current-input-method-title kkc-input-method-title)
 	    (input-method-function nil)
+	    (modified-p (buffer-modified-p))
 	    (first t))
 	(while (not (kkc-lookup-key kkc-length-head nil first))
 	  (setq kkc-length-head (1- kkc-length-head)
@@ -241,6 +242,7 @@ and the return value is the length of the conversion."
 	(force-mode-line-update)
 	(setq kkc-converting t)
 	(while kkc-converting
+	  (set-buffer-modified-p modified-p)
 	  (let* ((overriding-terminal-local-map kkc-keymap)
 		 (help-char nil)
 		 (keyseq (read-key-sequence nil))