(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 6338dc10ed8..291499935df 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))