Commit 88f698d9 authored by Kenichi Handa's avatar Kenichi Handa

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

Unicode character that is not yet supported.
parent 37370cea
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.
......
......@@ -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)))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment