Mercurial > emacs

changeset 29146:ded7fa3de6db

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(kkc-region): Don't change modified-p of the current buffer.
author Kenichi Handa <handa@m17n.org>
date Wed, 24 May 2000 06:42:21 +0000
parents 79b2b42f9a7b
children eea914233f47
files lisp/international/kkc.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/kkc.el	Wed May 24 06:41:32 2000 +0000
+++ b/lisp/international/kkc.el	Wed May 24 06:42:21 2000 +0000
@@ -230,6 +230,7 @@
       ;; 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 @@
 	(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))