comparison leim/quail/uni-input.el @ 75203:814b3ff94f47

(ucs-input-method): Signal an error for a Unicode character that is not yet supported.

75202:bce495599d1b

					      (listify-key-sequence seq))))))
	      (quail-delete-region)
	      (let* ((n (string-to-number (apply 'string
						 (cdr (nreverse events)))
					  16))
		     (c (decode-char 'ucs n))
		     (status (make-vector 9 nil)))
		(if c
		    (list c)
		  (aset status 0 n)
		  (string-to-list (ccl-execute-on-string
				   'utf-8-ccl-encode status ""))))))
	(quail-delete-overlays)
	(set-buffer-modified-p modified-p)
	(run-hooks 'input-method-after-insert-chunk-hook)))))

(defun ucs-input-activate (&optional arg)

75203:814b3ff94f47

					      (listify-key-sequence seq))))))
	      (quail-delete-region)
	      (let* ((n (string-to-number (apply 'string
						 (cdr (nreverse events)))
					  16))
		     (c (decode-char 'ucs n)))
		(if c
		    (list c)
		  ;; 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)))))

(defun ucs-input-activate (&optional arg)