Mercurial > emacs
comparison lisp/international/quail.el @ 22883:69bbe5cb5400
(quail-start-translation): Bind help-char
to nil locally.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sun, 02 Aug 1998 01:06:57 +0000 |
| parents | e422c56928d9 |
| children | 00f3497854c4 |
comparison
equal
deleted
inserted
replaced
| 22882:059cd9afc6e4 | 22883:69bbe5cb5400 |
|---|---|
| 900 quail-current-str nil | 900 quail-current-str nil |
| 901 quail-translating t | 901 quail-translating t |
| 902 unread-command-events (cons key unread-command-events)) | 902 unread-command-events (cons key unread-command-events)) |
| 903 (while quail-translating | 903 (while quail-translating |
| 904 (let* ((echo-keystrokes 0) | 904 (let* ((echo-keystrokes 0) |
| 905 (help-char nil) | |
| 905 (keyseq (read-key-sequence nil)) | 906 (keyseq (read-key-sequence nil)) |
| 906 (events (this-single-command-raw-keys)) | 907 (events (this-single-command-raw-keys)) |
| 907 (cmd (lookup-key translation-keymap keyseq))) | 908 (cmd (lookup-key translation-keymap keyseq))) |
| 908 (if (commandp cmd) | 909 (if (commandp cmd) |
| 909 (progn | 910 (progn |