# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1168601655 0
# Node ID 814b3ff94f47a2e83ed9029a12ddd52043e58619
# Parent  bce495599d1bc15f478fb57e5cb4d71dbecf9883
(ucs-input-method): Signal an error for a
Unicode character that is not yet supported.

diff -r bce495599d1b -r 814b3ff94f47 leim/quail/uni-input.el
--- a/leim/quail/uni-input.el	Fri Jan 12 09:00:54 2007 +0000
+++ b/leim/quail/uni-input.el	Fri Jan 12 11:34:15 2007 +0000
@@ -107,13 +107,17 @@
 	      (let* ((n (string-to-number (apply 'string
 						 (cdr (nreverse events)))
 					  16))
-		     (c (decode-char 'ucs n))
-		     (status (make-vector 9 nil)))
+		     (c (decode-char 'ucs n)))
 		(if c
 		    (list c)
-		  (aset status 0 n)
-		  (string-to-list (ccl-execute-on-string
-				   'utf-8-ccl-encode status ""))))))
+		  ;; The intention of the following code is to insert
+		  ;; a correct UTF-8 sequence by raw bytes, but
+		  ;; currently it doesn't work.
+		  ;; (let ((status (make-vector 9 nil)))
+		  ;;   (aset status 0 n)
+		  ;;   (string-to-list (ccl-execute-on-string
+		  ;;                    'utf-8-ccl-encode status "")))
+		  (error "Character U+%04X is not yet supported" n)))))
 	(quail-delete-overlays)
 	(set-buffer-modified-p modified-p)
 	(run-hooks 'input-method-after-insert-chunk-hook)))))