diff options
| author | Kenichi Handa <handa@m17n.org> | 2004-09-25 02:08:41 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2004-09-25 02:08:41 +0000 |
| commit | 45c9a0f754636bccb041c1414136546101e839a0 (patch) | |
| tree | 6de297bc5485f316406fa6f744bcec80e7632b84 /leim | |
| parent | cb65c373de1e454248bbb7cc931038f5a7dcbf7e (diff) | |
| download | emacs-45c9a0f754636bccb041c1414136546101e839a0.tar.gz | |
(ucs-input-method): Add error clause to
condition-case.
Diffstat (limited to 'leim')
| -rw-r--r-- | leim/quail/uni-input.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/leim/quail/uni-input.el b/leim/quail/uni-input.el index 12b93dc19a6..6408eb13cc4 100644 --- a/leim/quail/uni-input.el +++ b/leim/quail/uni-input.el @@ -99,8 +99,9 @@ (ucs-input-insert-char key)) (let ((last-command-char key) (current-prefix-arg)) - (condition-case nil - (call-interactively (key-binding seq)))) + (condition-case err + (call-interactively (key-binding seq)) + (quail-error (message "%s" (cdr err)) (beep)))) (quail-delete-region) (throw 'non-digit (append (reverse events) (listify-key-sequence seq)))))) |