Mercurial > emacs

comparison lisp/international/quail.el @ 31286:62621544edd2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(quail-self-insert-command): Fix docstring.
author Kenichi Handa <handa@m17n.org>
date Wed, 30 Aug 2000 07:56:36 +0000
parents 599904d1058b
children 82c028678fee
comparison
equal deleted inserted replaced
31285:9b67d19bfb68 31286:62621544edd2
1257 (setq quail-current-str (char-to-string quail-current-str))) 1257 (setq quail-current-str (char-to-string quail-current-str)))
1258 (if control-flag 1258 (if control-flag
1259 (quail-terminate-translation))) 1259 (quail-terminate-translation)))
1260 1260
1261 (defun quail-self-insert-command () 1261 (defun quail-self-insert-command ()
1262 "Translate the typed character to by the current Quail map." 1262 "Translate the typed key by the current Quail map, and insert."
1263 (interactive "*") 1263 (interactive "*")
1264 (setq quail-current-key 1264 (setq quail-current-key
1265 (concat quail-current-key (char-to-string last-command-event))) 1265 (concat quail-current-key (char-to-string last-command-event)))
1266 (or (catch 'quail-tag 1266 (or (catch 'quail-tag
1267 (quail-update-translation (quail-translate-key)) 1267 (quail-update-translation (quail-translate-key))