~ chicken-core (chicken-5) 709a4ea4e2fe3008c890d80a5b102bc62e9ba306

commit 709a4ea4e2fe3008c890d80a5b102bc62e9ba306
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Dec 13 20:15:06 2012 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Dec 13 20:15:06 2012 +0100

    define keys only for scheme-mode

diff --git a/misc/chicken.el b/misc/chicken.el
index 970fba2f..5f486c99 100644
--- a/misc/chicken.el
+++ b/misc/chicken.el
@@ -11,9 +11,10 @@
 (define-key scheme-mode-map "\C-c\C-t" 'chicken-trace)
 (define-key scheme-mode-map "\C-c\C-c" 'scheme-compile-definition)
 
-(global-set-key "\C-c\C-d" 'chicken-doc)
-(global-set-key "\C-c\C-t" 'chicken-trace)
-(global-set-key "\C-c\C-g" 'scheme-grep-current-word)
+(define-key scheme-mode-map "\C-c\C-d" 'chicken-doc)
+(define-key scheme-mode-map "\C-c\C-t" 'chicken-trace)
+(define-key scheme-mode-map "\C-c\C-g" 'scheme-grep-current-word)
+(define-key inferior-scheme-mode-map "\C-c\C-g" 'scheme-grep-current-word)
 (define-key inferior-scheme-mode-map "\C-c\C-d" 'chicken-doc)
 (define-key inferior-scheme-mode-map "\C-c\C-t" 'chicken-trace)
 (define-key inferior-scheme-mode-map "\C-c\C-a" 'chicken-apropos)