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

Modified Files: echo.lisp Log Message: Removed logical-key-event-name and logical-key-event-documentation as they were never used.

Date: Mon Aug 9 22:58:03 2004 Author: rstrandh

Index: phemlock/src/echo.lisp diff -u phemlock/src/echo.lisp:1.2 phemlock/src/echo.lisp:1.3 --- phemlock/src/echo.lisp:1.2 Mon Aug 9 22:24:15 2004 +++ phemlock/src/echo.lisp Mon Aug 9 22:58:03 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.2 2004/08/10 05:24:15 rstrandh Exp $") + "$Header: /project/phemlock/cvsroot/phemlock/src/echo.lisp,v 1.3 2004/08/10 05:58:03 rstrandh Exp $") ;;; ;;; ********************************************************************** ;;; @@ -612,19 +612,6 @@ (delete keyword (logical-key-event-descriptor-key-events entry)))))) new-value)

-;;; LOGICAL-KEY-EVENT-DOCUMENTATION, NAME, KEY-EVENTS -- Public -;;; -;;; Grab the right field out of the descriptor and return it. -;;; -(defun logical-key-event-documentation (keyword) - "Return the documentation for the logical key-event Keyword." - (logical-key-event-descriptor-documentation - (get-logical-key-event-desc keyword))) -;;; -(defun logical-key-event-name (keyword) - "Return the string name for the logical key-event Keyword." - (logical-key-event-descriptor-name (get-logical-key-event-desc keyword))) -;;; (defun logical-key-event-key-events (keyword) "Return the list of key-events for which Keyword is the logical key-event." (logical-key-event-descriptor-key-events @@ -643,7 +630,6 @@ (entry (or (gethash keyword *logical-key-event-descriptors*) (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)))