Import guile-1.8 as multiple upstream tarball component

[lilypond.git] / guile18 / lang / elisp / primitives / char-table.scm

diff --git a/guile18/lang/elisp/primitives/char-table.scm b/guile18/lang/elisp/primitives/char-table.scm
new file mode 100644 (file)
index 0000000..3812e44
--- /dev/null
+++ b/guile18/lang/elisp/primitives/char-table.scm
@@ -0,0 +1,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))