Mercurial > emacs
changeset 75203:814b3ff94f47
(ucs-input-method): Signal an error for a
Unicode character that is not yet supported.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 12 Jan 2007 11:34:15 +0000 |
| parents | bce495599d1b |
| children | f6378042b0fa |
| files | leim/quail/uni-input.el |
| diffstat | 1 files changed, 9 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/leim/quail/uni-input.el Fri Jan 12 09:00:54 2007 +0000 +++ b/leim/quail/uni-input.el Fri Jan 12 11:34:15 2007 +0000 @@ -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)))))