comparison lisp/international/quail.el @ 19744:b1774d359a3d

(quail-update-translation): Do insert translated char when enable-multibyte-characters is nil.

19743:b228f82192d5

	    (while (> len control-flag)
	      (setq len (1- len))
	      (setq unread-command-events
		    (cons (aref quail-current-key len)
			  unread-command-events)))
	    (insert (or quail-current-str
			(substring quail-current-key 0 len))))
	(insert (or quail-current-str quail-current-key)))))
  (quail-update-guidance)
  (if control-flag
      (quail-terminate-translation)))

19744:b1774d359a3d

	    (while (> len control-flag)
	      (setq len (1- len))
	      (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)))
	      ;; 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
      (quail-terminate-translation)))