From: Kenichi Handa <handa@m17n.org>
Date: Wed, 24 May 2000 06:41:32 +0000 (+0000)
Subject: (quail-start-translation): Don't change
X-Git-Tag: emacs-pretest-21.0.90~3754
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b0fdefb47b6db96c9b18b63d2b939a7d23d221d8;p=emacs.git

(quail-start-translation): Don't change
modified-p of the current buffer.
(quail-start-conversion): Likewise.
---

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index 03a46d45aa3..3410f5c13ef 100644
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -948,13 +948,15 @@ The returned value is a Quail map specific to KEY."
 	     (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 @@ The returned value is a Quail map specific to KEY."
 	     (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 @@ The returned value is a Quail map specific to KEY."
 	(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 ""