Mercurial > emacs

changeset 57212:fddea2c62003

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ucs-input-method): Add error clause to condition-case.
author Kenichi Handa <handa@m17n.org>
date Sat, 25 Sep 2004 02:08:41 +0000
parents 98f763c22ee4
children 3497eca006fe
files leim/quail/uni-input.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/leim/quail/uni-input.el	Fri Sep 24 23:48:48 2004 +0000
+++ b/leim/quail/uni-input.el	Sat Sep 25 02:08:41 2004 +0000
@@ -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))))))