Mercurial > emacs

comparison lisp/international/quail.el @ 18797:e9aa787f0154

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(quail-translate-key): Fix previous change.
author Kenichi Handa <handa@m17n.org>
date Tue, 15 Jul 1997 08:24:47 +0000
parents 0fc832264117
children f61d1bd17b11
comparison
equal deleted inserted replaced
18796:ab40b57484c1 18797:e9aa787f0154
1163 ;; At first, get translation of "...AB". 1163 ;; At first, get translation of "...AB".
1164 (setq quail-current-str (quail-get-current-str (- len 2) def)) 1164 (setq quail-current-str (quail-get-current-str (- len 2) def))
1165 ;; Then, return the length of "...AB". 1165 ;; Then, return the length of "...AB".
1166 (- len 2)) 1166 (- len 2))
1167 1167
1168 ((and quail-current-translations 1168 ((and (> len 0)
1169 (quail-lookup-key (substring quail-current-key 0 -1))
1170 quail-current-translations
1169 (not (quail-deterministic)) 1171 (not (quail-deterministic))
1170 (setq ch (aref quail-current-key (1- len))) 1172 (setq ch (aref quail-current-key (1- len)))
1171 (>= ch ?0) (<= ch ?9)) 1173 (>= ch ?0) (<= ch ?9))
1172 ;; A numeric key is entered to select a desirable translation. 1174 ;; A numeric key is entered to select a desirable translation.
1173 (setq quail-current-key (substring quail-current-key 0 -1)) 1175 (setq quail-current-key (substring quail-current-key 0 -1))