Changeset 703

Timestamp:

Mar 22, 2004, 9:38:18 AM (21 years ago)

Author:

Gary Byers

Message:

Rearrange a bit.

File:

• trunk/ccl/hemlock/src/bindings.lisp (modified) (5 diffs)

trunk/ccl/hemlock/src/bindings.lisp

@@ -98 +98 @@
 (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 +108 @@
 (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 +315 @@
 (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 +380 @@
 (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 +397 @@
 )
 
-(bind-key "Goto Definition" #k"control-meta-F")
+(bind-key "Goto Definition" #k"meta-.")
 
 #+debugger-bindings