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." ...@@ -1062,8 +1062,21 @@ The returned value is a Quail map specific to KEY."
(setq unread-command-events (setq unread-command-events
(cons (aref quail-current-key len) (cons (aref quail-current-key len)
unread-command-events))) unread-command-events)))
(insert (or quail-current-str ;; Insert the translated sequence.
(substring quail-current-key 0 len)))) ;; 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)))
;; 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))))) (insert (or quail-current-str quail-current-key)))))
(quail-update-guidance) (quail-update-guidance)
(if control-flag (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