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
e41b4517
Commit
e41b4517
authored
Sep 04, 1997
by
Richard M. Stallman
Browse files
(quail-update-translation):
Do insert translated char when enable-multibyte-characters is nil.
parent
1b2af4b0
Changes
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
15 additions
and
2 deletions
+15
-2
lisp/international/quail.el
lisp/international/quail.el
+15
-2
No files found.
lisp/international/quail.el
View file @
e41b4517
...
...
@@ -1062,8 +1062,21 @@ The returned value is a Quail map specific to KEY."
(setq unread-command-events
(cons (aref quail-current-key len)
unread-command-events)))
;; Insert the translated sequence.
;; It is a string containing multibyte characters.
;; If enable-multibyte-characters, just insert it.
(if enable-multibyte-characters
(insert (or quail-current-str
(substring quail-current-key 0 len))))
(substring quail-current-key 0 len)))
;; Otherwise, in case the user is using a single-byte
;; extended-ASCII character set,
;; try inserting the translated character.
(let ((char (sref (or quail-current-str
(substring quail-current-key 0 len))
0)))
(if (= (length (split-char char)) 2)
(insert-char (logand char 127))
(error "
Cannot
insert
three-byte
character
in
single-byte
mode
")))))
(insert (or quail-current-str quail-current-key)))))
(quail-update-guidance)
(if control-flag
...
...
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