Index: /trunk/ccl/hemlock/src/bindings.lisp
===================================================================
--- /trunk/ccl/hemlock/src/bindings.lisp	(revision 595)
+++ /trunk/ccl/hemlock/src/bindings.lisp	(revision 596)
@@ -311,4 +311,5 @@
 (bind-key "Confirm Listener Input" #k"return" :mode "Listener")
 (bind-key "Previous Interactive Input" #k"meta-p" :mode "Listener")
+(bind-key "Previous Interactive Input" #k"meta-g" :mode "Listener")
 (bind-key "Search Previous Interactive Input" #k"meta-P" :mode "Listener")
 (bind-key "Next Interactive Input" #k"meta-n" :mode "Listener")
@@ -316,4 +317,5 @@
 (bind-key "Abort Eval Input" #k"control-meta-i" :mode "Listener")
 (bind-key "Interactive Beginning of Line" #k"control-a" :mode "Listener")
+(bind-key "EOF Or Delete Forward" #k"control-d" :mode "Listener")
 (bind-key "Reenter Interactive Input" #k"control-return" :mode "Listener")
 
@@ -379,5 +381,5 @@
 (bind-key "Down List" #k"control-meta-d")
 (bind-key "Extract List" #k"control-meta-x")
-(bind-key "Lisp Insert )" #k")" :mode "Lisp")
+;;(bind-key "Lisp Insert )" #k")" :mode "Lisp")
 (bind-key "Delete Previous Character Expanding Tabs" #k"backspace" :mode "Lisp")
 (bind-key "Delete Previous Character Expanding Tabs" #k"delete" :mode "Lisp")