Commit b0fdefb4 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(quail-start-translation): Don't change

modified-p of the current buffer.
(quail-start-conversion): Likewise.
parent 48e3df76
...@@ -948,13 +948,15 @@ The returned value is a Quail map specific to KEY." ...@@ -948,13 +948,15 @@ The returned value is a Quail map specific to KEY."
(help-char nil) (help-char nil)
(overriding-terminal-local-map (quail-translation-keymap)) (overriding-terminal-local-map (quail-translation-keymap))
(generated-events nil) (generated-events nil)
(input-method-function nil)) (input-method-function nil)
(modified-p (buffer-modified-p)))
(setq quail-current-key "" (setq quail-current-key ""
quail-current-str "" quail-current-str ""
quail-translating t) quail-translating t)
(if key (if key
(setq unread-command-events (cons key unread-command-events))) (setq unread-command-events (cons key unread-command-events)))
(while quail-translating (while quail-translating
(set-buffer-modified-p modified-p)
(let* ((keyseq (read-key-sequence (let* ((keyseq (read-key-sequence
(and input-method-use-echo-area (and input-method-use-echo-area
(concat input-method-previous-message (concat input-method-previous-message
...@@ -1022,7 +1024,8 @@ The returned value is a Quail map specific to KEY." ...@@ -1022,7 +1024,8 @@ The returned value is a Quail map specific to KEY."
(help-char nil) (help-char nil)
(overriding-terminal-local-map (quail-conversion-keymap)) (overriding-terminal-local-map (quail-conversion-keymap))
(generated-events nil) (generated-events nil)
(input-method-function nil)) (input-method-function nil)
(modified-p (buffer-modified-p)))
(setq quail-current-key "" (setq quail-current-key ""
quail-current-str "" quail-current-str ""
quail-translating t quail-translating t
...@@ -1031,6 +1034,7 @@ The returned value is a Quail map specific to KEY." ...@@ -1031,6 +1034,7 @@ The returned value is a Quail map specific to KEY."
(if key (if key
(setq unread-command-events (cons key unread-command-events))) (setq unread-command-events (cons key unread-command-events)))
(while quail-converting (while quail-converting
(set-buffer-modified-p modified-p)
(or quail-translating (or quail-translating
(progn (progn
(setq quail-current-key "" (setq quail-current-key ""
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment