(ucs-input-method): Signal an error for a

Unicode character that is not yet supported.

2 files changed, 14 insertions, 5 deletions

diff --git a/leim/ChangeLog b/leim/ChangeLog
index 57e8f626c61..7d09807bd54 100644
--- a/leim/ChangeLog
+++ b/leim/ChangeLog
@@ -1,3 +1,8 @@
+2007-01-12  Kenichi Handa  <handa@m17n.org>
+
+        * quail/uni-input.el (ucs-input-method): Signal an error for a
+        Unicode character that is not yet supported.
+
 2006-12-26  Andreas Schwab  <schwab@suse.de>
 
         * Makefile.in (datarootdir): Define.
diff --git a/leim/quail/uni-input.el b/leim/quail/uni-input.el
index 1b4a3d3af1e..c24b6f65057 100644
--- a/leim/quail/uni-input.el
+++ b/leim/quail/uni-input.el
@@ -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)))))