[Emacs-diffs] Changes to emacs/leim/quail/uni-input.el,v

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   07/01/12 11:34:15

Index: uni-input.el
===================================================================
RCS file: /cvsroot/emacs/emacs/leim/quail/uni-input.el,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -b -r1.14 -r1.15
--- uni-input.el        13 Dec 2006 01:13:56 -0000      1.14
+++ uni-input.el        12 Jan 2007 11:34:15 -0000      1.15
@@ -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)))))