Import guile-1.8 as multiple upstream tarball component

[lilypond.git] / guile18 / lang / elisp / primitives / keymaps.scm

diff --git a/guile18/lang/elisp/primitives/keymaps.scm b/guile18/lang/elisp/primitives/keymaps.scm
new file mode 100644 (file)
index 0000000..730d89f
--- /dev/null
+++ b/guile18/lang/elisp/primitives/keymaps.scm
@@ -0,0 +1,26 @@
+(define-module (lang elisp primitives keymaps)
+  #:use-module (lang elisp internals fset))
+
+(define (make-sparse-keymap)
+  (list 'keymap))
+
+(define (define-key keymap key def)
+  (set-cdr! keymap
+           (cons (cons key def) (cdr keymap))))
+  
+(define global-map (make-sparse-keymap))
+(define esc-map (make-sparse-keymap))
+(define ctl-x-map (make-sparse-keymap))
+(define ctl-x-4-map (make-sparse-keymap))
+(define ctl-x-5-map (make-sparse-keymap))
+
+;;; {Elisp Exports}
+
+(fset 'make-sparse-keymap make-sparse-keymap)
+(fset 'define-key define-key)
+
+(export global-map
+       esc-map
+       ctl-x-map
+       ctl-x-4-map
+       ctl-x-5-map)