Changeset 596

Timestamp:

Feb 29, 2004, 6:56:26 AM (21 years ago)

Author:

Gary Byers

Message:

Some listener-mode bindings.

File:

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

trunk/ccl/hemlock/src/bindings.lisp

@@ -311 +311 @@
 (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 +317 @@
 (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 +381 @@
 (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")