guile18/lang/elisp/primitives/char-table.scm

   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.
   9 Each element is initialized to INIT, which defaults to nil.
  10 PURPOSE should be a symbol which has a `char-table-extra-slots' property.
  11 The 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))