phemlock-cvs

Download

phemlock-cvs@common-lisp.net

August 2004

2 participants
12 discussions

[Phemlock-cvs] CVS update: phemlock/src/core/package.lisp
by Robert Strandh 10 Aug '04

10 Aug '04

Update of /project/phemlock/cvsroot/phemlock/src/core In directory common-lisp.net:/tmp/cvs-serv994/src/core Modified Files: package.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/core/package.lisp diff -u phemlock/src/core/package.lisp:1.1 phemlock/src/core/package.lisp:1.2 --- phemlock/src/core/package.lisp:1.1 Fri Jul 9 08:00:36 2004 +++ phemlock/src/core/package.lisp Mon Aug 9 22:24:16 2004 @@ -660,7 +660,7 @@ #:prompt-for-buffer #:prompt-for-file #:prompt-for-integer #:prompt-for-keyword #:prompt-for-expression #:prompt-for-string #:prompt-for-variable #:prompt-for-yes-or-no #:prompt-for-y-or-n - #:prompt-for-key-event #:prompt-for-key #:*logical-key-event-names* + #:prompt-for-key-event #:prompt-for-key #:logical-key-event-p #:logical-key-event-documentation #:logical-key-event-name #:logical-key-event-key-events #:define-logical-key-event #:*parse-type* #:current-variable-tables @@ -860,6 +860,13 @@ ) ;; $Log: package.lisp,v $ +;; Revision 1.2 2004/08/10 05:24:16 rstrandh +;; 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). +;; ;; Revision 1.1 2004/07/09 15:00:36 gbaumann ;; Let us see if this works. ;;

1 0

[Phemlock-cvs] CVS update: phemlock/src/echo.lisp
by Robert Strandh 10 Aug '04

10 Aug '04

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:

1 0