summaryrefslogtreecommitdiff
path: root/lang/elisp/primitives/char-table.scm
diff options
context:
space:
mode:
Diffstat (limited to 'lang/elisp/primitives/char-table.scm')
-rw-r--r--lang/elisp/primitives/char-table.scm24
1 files changed, 0 insertions, 24 deletions
diff --git a/lang/elisp/primitives/char-table.scm b/lang/elisp/primitives/char-table.scm
deleted file mode 100644
index 3812e4484..000000000
--- a/lang/elisp/primitives/char-table.scm
+++ /dev/null
@@ -1,24 +0,0 @@
-(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))