mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

(kkc-region): Don't change modified-p of

Browse Source 
the current buffer.
This commit is contained in:
Kenichi Handa 2000-05-24 06:42:21 +00:00
parent b0fdefb47b
commit e0d77f0da2
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/international/kkc.el
View File

@ -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))