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 |