From e0d77f0da27e079942d74c152f58ab4931ac3407 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 24 May 2000 06:42:21 +0000 Subject: (kkc-region): Don't change modified-p of the current buffer. --- lisp/international/kkc.el | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lisp') diff --git a/lisp/international/kkc.el b/lisp/international/kkc.el index 6338dc10ed..291499935d 100644 --- a/lisp/international/kkc.el +++ b/lisp/international/kkc.el @@ -230,6 +230,7 @@ and the return value is the length of the conversion." ;; At first convert the region to the first candidate. (let ((current-input-method-title kkc-input-method-title) (input-method-function nil) + (modified-p (buffer-modified-p)) (first t)) (while (not (kkc-lookup-key kkc-length-head nil first)) (setq kkc-length-head (1- kkc-length-head) @@ -241,6 +242,7 @@ and the return value is the length of the conversion." (force-mode-line-update) (setq kkc-converting t) (while kkc-converting + (set-buffer-modified-p modified-p) (let* ((overriding-terminal-local-map kkc-keymap) (help-char nil) (keyseq (read-key-sequence nil)) -- cgit v1.2.3