Commit e41b4517 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files


Do insert translated char when enable-multibyte-characters is nil.
parent 1b2af4b0
......@@ -1062,8 +1062,21 @@ The returned value is a Quail map specific to KEY."
(setq unread-command-events
(cons (aref quail-current-key len)
;; 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))
(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)))))
(if control-flag
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment