+2002-12-28 Neil Jerram <neil@ossau.uklinux.net>
+
+ * base.scm (lang): Use char-table module.
+
+ * primitives/char-table.scm (lang): New (stub definitions).
+
2002-12-08 Rob Browning <rlb@defaultvalue.org>
* Makefile.am (subpkgdatadir): VERSION -> GUILE_EFFECTIVE_VERSION.
;; In other words, Scheme definitions of elisp primitives. This
;; should (ultimately) include everything that Emacs defines in C.
#:use-module (lang elisp primitives buffers)
+ #:use-module (lang elisp primitives char-table)
#:use-module (lang elisp primitives features)
#:use-module (lang elisp primitives format)
#:use-module (lang elisp primitives fns)
--- /dev/null
+(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))