Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
b0fdefb4
Commit
b0fdefb4
authored
May 24, 2000
by
Kenichi Handa
Browse files
(quail-start-translation): Don't change
modified-p of the current buffer. (quail-start-conversion): Likewise.
parent
48e3df76
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
2 deletions
+6
-2
lisp/international/quail.el
lisp/international/quail.el
+6
-2
No files found.
lisp/international/quail.el
View file @
b0fdefb4
...
...
@@ -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 ""
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment