1 (define-module (lang elisp primitives keymaps)
2 #:use-module (lang elisp internals fset))
4 (define (make-sparse-keymap)
7 (define (define-key keymap key def)
9 (cons (cons key def) (cdr keymap))))
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))
19 (fset 'make-sparse-keymap make-sparse-keymap)
20 (fset 'define-key define-key)