Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-25

[gnu-emacs] / leim / quail / uni-input.el

diff --git a/leim/quail/uni-input.el b/leim/quail/uni-input.el
index 9e2c04278d63b32021994b99d1cad660c3d37c45..41c5dd785cd0a659fa2f11f41b3361c6528a8189 100644 (file)
--- a/leim/quail/uni-input.el
+++ b/leim/quail/uni-input.el
@@ -73,8 +73,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))))))