mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-02 21:10:27 +02:00
24 lines
781 B
Scheme
24 lines
781 B
Scheme
(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))
|