From b0fdefb47b6db96c9b18b63d2b939a7d23d221d8 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 24 May 2000 06:41:32 +0000 Subject: [PATCH] (quail-start-translation): Don't change modified-p of the current buffer. (quail-start-conversion): Likewise. --- lisp/international/quail.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) 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 "" -- 2.39.5