aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKenichi Handa1998-08-07 05:04:36 +0000
committerKenichi Handa1998-08-07 05:04:36 +0000
commitdf765be4febf35e57c862675b6256b66621095f0 (patch)
treed5cecfc279ea0e5896ae2d100e25e414a5901462
parent13c148b8e78d1ab7570f947d845c5bcb2c72e244 (diff)
downloademacs-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.el9
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))