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 / keymaps.scm < prev    next >
Encoding:
Text File  |  2008-12-17  |  608 b   |  27 lines
  1. (define-module (lang elisp primitives keymaps)
  2.   #:use-module (lang elisp internals fset))
  3.  
  4. (define (make-sparse-keymap)
  5.   (list 'keymap))
  6.  
  7. (define (define-key keymap key def)
  8.   (set-cdr! keymap
  9.         (cons (cons key def) (cdr keymap))))
  10.   
  11. (define global-map (make-sparse-keymap))
  12. (define esc-map (make-sparse-keymap))
  13. (define ctl-x-map (make-sparse-keymap))
  14. (define ctl-x-4-map (make-sparse-keymap))
  15. (define ctl-x-5-map (make-sparse-keymap))
  16.  
  17. ;;; {Elisp Exports}
  18.  
  19. (fset 'make-sparse-keymap make-sparse-keymap)
  20. (fset 'define-key define-key)
  21.  
  22. (export global-map
  23.     esc-map
  24.     ctl-x-map
  25.     ctl-x-4-map
  26.     ctl-x-5-map)
  27.