99 |
(ucs-input-insert-char key)) |
(ucs-input-insert-char key)) |
100 |
(let ((last-command-char key) |
(let ((last-command-char key) |
101 |
(current-prefix-arg)) |
(current-prefix-arg)) |
102 |
(condition-case nil |
(condition-case err |
103 |
(call-interactively (key-binding seq)))) |
(call-interactively (key-binding seq)) |
104 |
|
(quail-error (message "%s" (cdr err)) (beep)))) |
105 |
(quail-delete-region) |
(quail-delete-region) |
106 |
(throw 'non-digit (append (reverse events) |
(throw 'non-digit (append (reverse events) |
107 |
(listify-key-sequence seq)))))) |
(listify-key-sequence seq)))))) |