Mercurial > emacs
comparison leim/quail/uni-input.el @ 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 | 6ee41fdd69ff |
children | f5f322eb227f |
comparison
equal
deleted
inserted
replaced
75202:bce495599d1b | 75203:814b3ff94f47 |
---|---|
105 (listify-key-sequence seq)))))) | 105 (listify-key-sequence seq)))))) |
106 (quail-delete-region) | 106 (quail-delete-region) |
107 (let* ((n (string-to-number (apply 'string | 107 (let* ((n (string-to-number (apply 'string |
108 (cdr (nreverse events))) | 108 (cdr (nreverse events))) |
109 16)) | 109 16)) |
110 (c (decode-char 'ucs n)) | 110 (c (decode-char 'ucs n))) |
111 (status (make-vector 9 nil))) | |
112 (if c | 111 (if c |
113 (list c) | 112 (list c) |
114 (aset status 0 n) | 113 ;; The intention of the following code is to insert |
115 (string-to-list (ccl-execute-on-string | 114 ;; a correct UTF-8 sequence by raw bytes, but |
116 'utf-8-ccl-encode status "")))))) | 115 ;; currently it doesn't work. |
116 ;; (let ((status (make-vector 9 nil))) | |
117 ;; (aset status 0 n) | |
118 ;; (string-to-list (ccl-execute-on-string | |
119 ;; 'utf-8-ccl-encode status ""))) | |
120 (error "Character U+%04X is not yet supported" n))))) | |
117 (quail-delete-overlays) | 121 (quail-delete-overlays) |
118 (set-buffer-modified-p modified-p) | 122 (set-buffer-modified-p modified-p) |
119 (run-hooks 'input-method-after-insert-chunk-hook))))) | 123 (run-hooks 'input-method-after-insert-chunk-hook))))) |
120 | 124 |
121 (defun ucs-input-activate (&optional arg) | 125 (defun ucs-input-activate (&optional arg) |