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) |