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

Unicode character that is not yet supported.

diff --git a/leim/ChangeLog b/leim/ChangeLog
index 57e8f626c614f1169a1263622e91d2dffb8e15f2..7d09807bd54318fb5e70ca4c3a752fe1d71a3cea 100644 (file)
--- 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 1b4a3d3af1e8b2c738d6c61723b799e49e7c0a3f..c24b6f65057123f656e7bbed7581c5e8095b4645 100644 (file)
--- 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)))))