/[guile]/guile/guile-core/lang/elisp/primitives/keymaps.scm
ViewVC logotype

Diff of /guile/guile-core/lang/elisp/primitives/keymaps.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by ossau, Fri Oct 26 16:42:43 2001 UTC revision 1.2 by ossau, Tue Jan 22 23:46:01 2002 UTC
# Line 0  Line 1 
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)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26