changeset 29145:79b2b42f9a7b

(quail-start-translation): Don't change modified-p of the current buffer. (quail-start-conversion): Likewise.
author Kenichi Handa <handa@m17n.org>
date Wed, 24 May 2000 06:41:32 +0000
parents 26417bd6a99c
children ded7fa3de6db
files lisp/international/quail.el
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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 ""