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