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

[Robert Strandh]

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

Modified Files:
	echo.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:15 2004
Author: rstrandh

Index: phemlock/src/echo.lisp
diff -u phemlock/src/echo.lisp:1.1.1.1 phemlock/src/echo.lisp:1.2
--- phemlock/src/echo.lisp:1.1.1.1	Fri Jul  9 06:37:45 2004
+++ phemlock/src/echo.lisp	Mon Aug  9 22:24:15 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/echo.lisp,v 1.1.1.1 2004/07/09 13:37:45 gbaumann Exp $")
+  "$Header: /project/phemlock/cvsroot/phemlock/src/echo.lisp,v 1.2 2004/08/10 05:24:15 rstrandh Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -559,10 +559,6 @@
 
 ;;;; Logical key-event stuff.
 
-(defvar *logical-key-event-names* (make-string-table)
-  "This variable holds a string-table from logical-key-event names to the
-   corresponding keywords.")
-
 (defvar *real-to-logical-key-events* (make-hash-table :test #'eql)
   "A hashtable from real key-events to their corresponding logical
    key-event keywords.")
@@ -648,9 +644,7 @@
 		    (setf (gethash keyword *logical-key-event-descriptors*)
 			  (make-logical-key-event-descriptor)))))
     (setf (logical-key-event-descriptor-name entry) name)
-    (setf (logical-key-event-descriptor-documentation entry) documentation)
-    (setf (getstring name *logical-key-event-names*) keyword)))
-
+    (setf (logical-key-event-descriptor-documentation entry) documentation)))
 
 
 ;;;; Some standard logical-key-events: