home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / guile / 1.8 / lang / elisp / primitives / char-table.scm < prev    next >
Encoding:
Text File  |  2008-12-17  |  781 b   |  25 lines
  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))
  25.