Index: /branches/ide-1.0/ccl/hemlock/src/bindings.lisp
===================================================================
--- /branches/ide-1.0/ccl/hemlock/src/bindings.lisp	(revision 6651)
+++ /branches/ide-1.0/ccl/hemlock/src/bindings.lisp	(revision 6652)
@@ -117,5 +117,4 @@
 ;(bind-key "Bottom of Window" #k"meta-.")
 
-(bind-key "Exit Hemlock" #k"control-x control-z")
 (bind-key "Exit Recursive Edit" #k"control-meta-z")
 (bind-key "Abort Recursive Edit" #k"control-]")
@@ -298,10 +297,4 @@
 (bind-key "Illegal" #k"control-r" :mode "Echo Area")
 (bind-key "Illegal" #k"hyper-t" :mode "Echo Area")
-(bind-key "Illegal" #k"middledown" :mode "Echo Area")
-(bind-key "Do Nothing" #k"middleup" :mode "Echo Area")
-(bind-key "Illegal" #k"super-leftdown" :mode "Echo Area")
-(bind-key "Do Nothing" #k"super-leftup" :mode "Echo Area")
-(bind-key "Illegal" #k"super-rightdown" :mode "Echo Area")
-(bind-key "Do Nothing" #k"super-rightup" :mode "Echo Area")
 
 
@@ -328,5 +321,6 @@
 (bind-key "Editor Compile Defun" #k"control-x control-C" :mode "Editor")
 
-(bind-key "Editor Macroexpand Expression" #k"control-m" :mode "Editor")
+(bind-key "Editor Macroexpand-1 Expression" #k"control-m" :mode "Editor")
+(bind-key "Editor Macroexpand Expression" #k"control-x control-m" :mode "Editor")
 (bind-key "Editor Describe Function Call" #k"control-meta-A" :mode "Editor")
 (bind-key "Editor Describe Symbol" #k"control-meta-S" :mode "Editor")
@@ -396,5 +390,4 @@
 (bind-key "Compile Defun" #k"control-x control-c")
 (bind-key "Compile Buffer File" #k"control-x c")
-(bind-key "Macroexpand Expression" #k"control-M")
 
 (bind-key "Describe Function Call" #k"control-meta-A")