Index: /trunk/ccl/hemlock/src/bindings.lisp
===================================================================
--- /trunk/ccl/hemlock/src/bindings.lisp	(revision 702)
+++ /trunk/ccl/hemlock/src/bindings.lisp	(revision 703)
@@ -98,9 +98,9 @@
 (bind-key "Check Buffer Modified" #k"control-x ~")
 (bind-key "Select Buffer" #k"control-x b")
-(bind-key "Select Previous Buffer" #k"control-meta-l")
-(bind-key "Circulate Buffers" #k"control-meta-L")
-(bind-key "Create Buffer" #k"control-x meta-b")
-(bind-key "Kill Buffer" #k"control-x k")
-(bind-key "Select Random Typeout Buffer" #k"hyper-t")
+;(bind-key "Select Previous Buffer" #k"control-meta-l")
+;(bind-key "Circulate Buffers" #k"control-meta-L")
+;(bind-key "Create Buffer" #k"control-x meta-b")
+;(bind-key "Kill Buffer" #k"control-x k")
+;(bind-key "Select Random Typeout Buffer" #k"hyper-t")
 
 (bind-key "Next Window" #k"control-x n")
@@ -108,11 +108,11 @@
 (bind-key "Previous Window" #k"control-x p")
 (bind-key "Split Window" #k"control-x 2")
-(bind-key "New Window" #k"control-x control-n")
-(bind-key "Delete Window" #k"control-x d")
+;(bind-key "New Window" #k"control-x control-n")
+;(bind-key "Delete Window" #k"control-x d")
 (bind-key "Delete Next Window" #k"control-x 1")
-(bind-key "Line to Top of Window" #k"meta-!")
-(bind-key "Line to Center of Window" #k"meta-#")
-(bind-key "Top of Window" #k"meta-,")
-(bind-key "Bottom of Window" #k"meta-.")
+;(bind-key "Line to Top of Window" #k"meta-!")
+;(bind-key "Line to Center of Window" #k"meta-#")
+;(bind-key "Top of Window" #k"meta-,")
+;(bind-key "Bottom of Window" #k"meta-.")
 
 (bind-key "Exit Hemlock" #k"control-x control-z")
@@ -315,7 +315,7 @@
 (bind-key "Next Interactive Input" #k"meta-n" :mode "Listener")
 (bind-key "Kill Interactive Input" #k"meta-i" :mode "Listener")
-(bind-key "Abort Eval Input" #k"control-meta-i" :mode "Listener")
+;(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 "POP Or Delete Forward" #k"control-d" :mode "Listener")
 (bind-key "Reenter Interactive Input" #k"control-return" :mode "Listener")
 
@@ -380,5 +380,5 @@
 (bind-key "Forward Up List" #k"control-meta-)")
 (bind-key "Down List" #k"control-meta-d")
-(bind-key "Extract List" #k"control-meta-x")
+(bind-key "Extract List" #k"control-meta-l")
 ;;(bind-key "Lisp Insert )" #k")" :mode "Lisp")
 (bind-key "Delete Previous Character Expanding Tabs" #k"backspace" :mode "Lisp")
@@ -397,5 +397,5 @@
 )
 
-(bind-key "Goto Definition" #k"control-meta-F")
+(bind-key "Goto Definition" #k"meta-.")
 
 #+debugger-bindings