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 | 79d4f6d15ab3a9adc7764589f716d969e5ca4b4f (patch) | |
| tree | 227579b7cf7e1ddf518563499b551685204a81e6 /leim | |
| parent | 8ce9007149520f82d1a43d37d8a992a27c8aee43 (diff) | |
| download | emacs-79d4f6d15ab3a9adc7764589f716d969e5ca4b4f.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)))))) |