[Phemlock-cvs] CVS update: phemlock/src/user/bindings.lisp

[Robert Strandh]

Update of /project/phemlock/cvsroot/phemlock/src/user
In directory common-lisp.net:/tmp/cvs-serv994/src/user

Modified Files:
	bindings.lisp 
Log Message:
Removed the string table *logical-key-event-names* as it was never
used, only written to. 

Added #k"control=[" as an alias for ESCAPE, because that is what
I use all the time (rather than trying to find the META key). 


Date: Mon Aug  9 22:24:16 2004
Author: rstrandh

Index: phemlock/src/user/bindings.lisp
diff -u phemlock/src/user/bindings.lisp:1.1.1.1 phemlock/src/user/bindings.lisp:1.2
--- phemlock/src/user/bindings.lisp:1.1.1.1	Fri Jul  9 06:38:49 2004
+++ phemlock/src/user/bindings.lisp	Mon Aug  9 22:24:16 2004
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 #+CMU (ext:file-comment
-       "$Header: /project/phemlock/cvsroot/phemlock/src/user/bindings.lisp,v 1.1.1.1 2004/07/09 13:38:49 gbaumann Exp $")
+       "$Header: /project/phemlock/cvsroot/phemlock/src/user/bindings.lisp,v 1.2 2004/08/10 05:24:16 rstrandh Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -22,6 +22,7 @@
 ;;; the next character typed.
 ;;;
 (setf (key-translation #k"escape") '(:bits :meta))
+(setf (key-translation #k"control-[") '(:bits :meta))
 (setf (key-translation #k"control-z") '(:bits :control :meta))
 (setf (key-translation #k"control-Z") '(:bits :control :meta))
 (setf (key-translation #k"control-^") '(:bits :control))