From: Kenichi Handa <handa@m17n.org>
Date: Sat, 25 Sep 2004 02:08:41 +0000 (+0000)
Subject: (ucs-input-method): Add error clause to
X-Git-Tag: ttn-vms-21-2-B4~4820
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=45c9a0f754636bccb041c1414136546101e839a0;p=emacs.git

(ucs-input-method): Add error clause to
condition-case.
---

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