# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 959150541 0
# Node ID ded7fa3de6dbd5a8f01f43a674ccc26967c46414
# Parent  79b2b42f9a7bbf6d38ddd693ed0c487fcb1e84f0
(kkc-region): Don't change modified-p of
the current buffer.

diff -r 79b2b42f9a7b -r ded7fa3de6db lisp/international/kkc.el
--- a/lisp/international/kkc.el	Wed May 24 06:41:32 2000 +0000
+++ b/lisp/international/kkc.el	Wed May 24 06:42:21 2000 +0000
@@ -230,6 +230,7 @@
       ;; 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 @@
 	(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))