Mercurial > emacs
comparison leim/quail/uni-input.el @ 57212:fddea2c62003
(ucs-input-method): Add error clause to
condition-case.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sat, 25 Sep 2004 02:08:41 +0000 |
| parents | 5afba9a35578 |
| children | 23a17af379b1 0b158db81c28 |
comparison
equal
deleted
inserted
replaced
| 57211:98f763c22ee4 | 57212:fddea2c62003 |
|---|---|
| 97 (progn | 97 (progn |
| 98 (push key events) | 98 (push key events) |
| 99 (ucs-input-insert-char key)) | 99 (ucs-input-insert-char key)) |
| 100 (let ((last-command-char key) | 100 (let ((last-command-char key) |
| 101 (current-prefix-arg)) | 101 (current-prefix-arg)) |
| 102 (condition-case nil | 102 (condition-case err |
| 103 (call-interactively (key-binding seq)))) | 103 (call-interactively (key-binding seq)) |
| 104 (quail-error (message "%s" (cdr err)) (beep)))) | |
| 104 (quail-delete-region) | 105 (quail-delete-region) |
| 105 (throw 'non-digit (append (reverse events) | 106 (throw 'non-digit (append (reverse events) |
| 106 (listify-key-sequence seq)))))) | 107 (listify-key-sequence seq)))))) |
| 107 (quail-delete-region) | 108 (quail-delete-region) |
| 108 (let* ((n (string-to-number (apply 'string | 109 (let* ((n (string-to-number (apply 'string |