Mercurial > emacs

comparison lisp/international/quail.el @ 22930:72582ab5369d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(quail-update-translation): Delete the code for handling the case that enable-multibyte-characters is nil.
author Kenichi Handa <handa@m17n.org>
date Fri, 07 Aug 1998 05:04:36 +0000
parents 00f3497854c4
children 26d07a757c55
comparison
equal deleted inserted replaced
22929:6dda0a4b882f 22930:72582ab5369d
1069 unread-command-events))) 1069 unread-command-events)))
1070 (if quail-current-str 1070 (if quail-current-str
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))
1085 (setq quail-current-str quail-current-key)))) 1078 (setq quail-current-str quail-current-key))))
1086 (if (not input-method-use-echo-area) 1079 (if (not input-method-use-echo-area)