# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 959150492 0
# Node ID 79b2b42f9a7bbf6d38ddd693ed0c487fcb1e84f0
# Parent  26417bd6a99c7f154fbcdfddb961f8e69997f356
(quail-start-translation): Don't change
modified-p of the current buffer.
(quail-start-conversion): Likewise.

diff -r 26417bd6a99c -r 79b2b42f9a7b lisp/international/quail.el
--- a/lisp/international/quail.el	Wed May 24 06:40:26 2000 +0000
+++ b/lisp/international/quail.el	Wed May 24 06:41:32 2000 +0000
@@ -948,13 +948,15 @@
 	     (help-char nil)
 	     (overriding-terminal-local-map (quail-translation-keymap))
 	     (generated-events nil)
-	     (input-method-function nil))
+	     (input-method-function nil)
+	     (modified-p (buffer-modified-p)))
 	(setq quail-current-key ""
 	      quail-current-str ""
 	      quail-translating t)
 	(if key
 	    (setq unread-command-events (cons key unread-command-events)))
 	(while quail-translating
+	  (set-buffer-modified-p modified-p)
 	  (let* ((keyseq (read-key-sequence
 			  (and input-method-use-echo-area
 			       (concat input-method-previous-message
@@ -1022,7 +1024,8 @@
 	     (help-char nil)
 	     (overriding-terminal-local-map (quail-conversion-keymap))
 	     (generated-events nil)
-	     (input-method-function nil))
+	     (input-method-function nil)
+	     (modified-p (buffer-modified-p)))
 	(setq quail-current-key ""
 	      quail-current-str ""
 	      quail-translating t
@@ -1031,6 +1034,7 @@
 	(if key
 	    (setq unread-command-events (cons key unread-command-events)))
 	(while quail-converting
+	  (set-buffer-modified-p modified-p)
 	  (or quail-translating
 	      (progn
 		(setq quail-current-key ""