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)) |