Update of /project/gsharp/cvsroot/gsharp In directory common-lisp.net:/tmp/cvs-serv26130 Modified Files: esa.lisp Log Message: More bug fixes for numeric arguments (thanks to Dave Murray) Date: Tue Aug 2 04:15:57 2005 Author: rstrandh Index: gsharp/esa.lisp diff -u gsharp/esa.lisp:1.2 gsharp/esa.lisp:1.3 --- gsharp/esa.lisp:1.2 Tue Aug 2 02:34:41 2005 +++ gsharp/esa.lisp Tue Aug 2 04:15:57 2005 @@ -105,10 +105,12 @@ (defparameter *current-gesture* nil) +(defparameter *meta-digit-table* + (loop for i from 0 to 9 + collect (list :keyboard (digit-char i) (make-modifier-state :meta)))) + (defun meta-digit (gesture) - (position gesture - '((#\0 :meta) (#\1 :meta) (#\2 :meta) (#\3 :meta) (#\4 :meta) - (#\5 :meta) (#\6 :meta) (#\7 :meta) (#\8 :meta) (#\9 :meta)) + (position gesture *meta-digit-table* :test #'event-matches-gesture-name-p)) (defun esa-read-gesture ()