guile18/lang/elisp/primitives/keymaps.scm

   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)