diff options
author | Kenichi Handa <handa@m17n.org> | 2007-01-12 11:34:23 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 2007-01-12 11:34:23 +0000 |
commit | 88f698d97c579308b5d247766e9344bcb0d2edea (patch) | |
tree | 29e43b41406e9c6f7504fd47585b463a55b65ccc /leim | |
parent | 37370cea413fbc327d9288823afead232c4bc2aa (diff) | |
download | emacs-88f698d97c579308b5d247766e9344bcb0d2edea.tar.gz |
(ucs-input-method): Signal an error for a
Unicode character that is not yet supported.
Diffstat (limited to 'leim')
-rw-r--r-- | leim/ChangeLog | 5 | ||||
-rw-r--r-- | leim/quail/uni-input.el | 14 |
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))))) |