(ucs-input-method): Add error clause to

condition-case.

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