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