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))