procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
Unicode character that is not yet supported.
This commit is contained in:
Kenichi Handa 2007-01-12 11:34:23 +00:00
parent 37370cea41
commit 88f698d97c
2 changed files with 14 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
leim/ChangeLog
View file

@ -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.

14
leim/quail/uni-input.el
View file

@ -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)))))