Changeset 6652

Timestamp:

Jun 3, 2007, 2:47:36 AM (17 years ago)

Author:

Gary Byers

Message:

Remove mouse bindings, other things unlikely to be used.

File:

• branches/ide-1.0/ccl/hemlock/src/bindings.lisp (modified) (4 diffs)

branches/ide-1.0/ccl/hemlock/src/bindings.lisp

@@ -117 +117 @@
 ;(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 +297 @@
 (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 +321 @@
 (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 +390 @@
 (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")