mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(quail-update-translation): Delete the

Browse Source 
code for handling the case that enable-multibyte-characters is
nil.
This commit is contained in:
Kenichi Handa 1998-08-07 05:04:36 +00:00
parent 13c148b8e7
commit df765be4fe
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/international/quail.el
View File

@ -1071,14 +1071,7 @@ The returned value is a Quail map specific to KEY."
(if input-method-exit-on-first-char
(setq control-flag t))
(setq quail-current-str
(substring quail-current-key 0 len)))
(or enable-multibyte-characters
(progn
(if (not (stringp quail-current-str))
(setq quail-current-str
(char-to-string quail-current-str)))
(setq quail-current-str
(string-as-unibyte quail-current-str))))))
(substring quail-current-key 0 len)))))
(if quail-current-str
(if input-method-exit-on-first-char
(setq control-flag t))