[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/leim/quail/uni-input.el,v
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/leim/quail/uni-input.el,v |
Date: |
Fri, 12 Jan 2007 11:34:16 +0000 |
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)))))
- [Emacs-diffs] Changes to emacs/leim/quail/uni-input.el,v,
Kenichi Handa <=