diff options
| -rw-r--r-- | lisp/international/quail.el | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 98176f3d84b..87b0ce350d4 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el | |||
| @@ -1071,14 +1071,7 @@ The returned value is a Quail map specific to KEY." | |||
| 1071 | (if input-method-exit-on-first-char | 1071 | (if input-method-exit-on-first-char |
| 1072 | (setq control-flag t)) | 1072 | (setq control-flag t)) |
| 1073 | (setq quail-current-str | 1073 | (setq quail-current-str |
| 1074 | (substring quail-current-key 0 len))) | 1074 | (substring quail-current-key 0 len))))) |
| 1075 | (or enable-multibyte-characters | ||
| 1076 | (progn | ||
| 1077 | (if (not (stringp quail-current-str)) | ||
| 1078 | (setq quail-current-str | ||
| 1079 | (char-to-string quail-current-str))) | ||
| 1080 | (setq quail-current-str | ||
| 1081 | (string-as-unibyte quail-current-str)))))) | ||
| 1082 | (if quail-current-str | 1075 | (if quail-current-str |
| 1083 | (if input-method-exit-on-first-char | 1076 | (if input-method-exit-on-first-char |
| 1084 | (setq control-flag t)) | 1077 | (setq control-flag t)) |