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