1(define-module (lang elisp primitives char-table)
2  #:use-module (lang elisp internals fset)
3  #:use-module (lang elisp internals null)
4  #:use-module (ice-9 optargs))
5
6(fset 'make-char-table
7      (lambda* (purpose #:optional init)
8	"Return a newly created char-table, with purpose PURPOSE.
9Each element is initialized to INIT, which defaults to nil.
10PURPOSE should be a symbol which has a `char-table-extra-slots' property.
11The property's value should be an integer between 0 and 10."
12	(list purpose (vector init))))
13
14(fset 'define-charset
15      (lambda (charset-id charset-symbol info-vector)
16	(list 'charset charset-id charset-symbol info-vector)))
17
18(fset 'setup-special-charsets
19      (lambda ()
20	'unimplemented))
21
22(fset 'make-char-internal
23      (lambda ()
24	'unimplemented))
25