Mercurial > emacs
comparison lisp/international/kkc.el @ 90322:a7b705f6cbbf
(kkc-region): Use
this-single-command-raw-keys on pushing back an unhandled key
sequence.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 27 Feb 2006 00:56:27 +0000 |
| parents | f9a65d7ebd29 |
| children | 6588c6259dfb |
comparison
equal
deleted
inserted
replaced
| 90321:344d06a17979 | 90322:a7b705f6cbbf |
|---|---|
| 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)) |