diff options
| author | Kenichi Handa | 1998-08-07 05:04:36 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1998-08-07 05:04:36 +0000 |
| commit | df765be4febf35e57c862675b6256b66621095f0 (patch) | |
| tree | d5cecfc279ea0e5896ae2d100e25e414a5901462 | |
| parent | 13c148b8e78d1ab7570f947d845c5bcb2c72e244 (diff) | |
| download | emacs-df765be4febf35e57c862675b6256b66621095f0.tar.gz emacs-df765be4febf35e57c862675b6256b66621095f0.zip | |
(quail-update-translation): Delete the
code for handling the case that enable-multibyte-characters is
nil.
| -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)) |