Mercurial > emacs
comparison lisp/international/kkc.el @ 73437:150187028263
(kkc-region): When a key sequence is not
defined, append (this-single-command-raw-keys) to
unread-input-method-events.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 19 Oct 2006 12:27:58 +0000 |
| parents | 18a818a2ee7c |
| children | 43cc94d955c2 |
comparison
equal
deleted
inserted
replaced
| 73436:969b377c22cd | 73437:150187028263 |
|---|---|
| 289 (call-interactively cmd)) | 289 (call-interactively cmd)) |
| 290 (kkc-error (message "%s" (cdr err)) (beep))) | 290 (kkc-error (message "%s" (cdr err)) (beep))) |
| 291 ;; KEYSEQ is not defined in KKC keymap. | 291 ;; KEYSEQ is not defined in KKC keymap. |
| 292 ;; Let's put the event back. | 292 ;; Let's put the event back. |
| 293 (setq unread-input-method-events | 293 (setq unread-input-method-events |
| 294 (append (string-to-list keyseq) | 294 (append (string-to-list (this-single-command-raw-keys)) |
| 295 unread-input-method-events)) | 295 unread-input-method-events)) |
| 296 (kkc-terminate)))) | 296 (kkc-terminate)))) |
| 297 | 297 |
| 298 (force-mode-line-update) | 298 (force-mode-line-update) |
| 299 (goto-char (overlay-end kkc-overlay-tail)) | 299 (goto-char (overlay-end kkc-overlay-tail)) |