[climacs-cvs] CVS update: climacs/esa.lisp

[Robert Strandh]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv12597

Modified Files:
	esa.lisp 
Log Message:
Fixed the FIXMEs by replacing `512' by (make-modifier-state :control)


Date: Fri Jul 22 07:36:59 2005
Author: rstrandh

Index: climacs/esa.lisp
diff -u climacs/esa.lisp:1.6 climacs/esa.lisp:1.7
--- climacs/esa.lisp:1.6	Fri Jul 22 07:35:06 2005
+++ climacs/esa.lisp	Fri Jul 22 07:36:58 2005
@@ -137,10 +137,14 @@
 
 (defun read-numeric-argument (&key (stream *standard-input*))
   (let ((gesture (esa-read-gesture)))
-    (cond ((event-matches-gesture-name-p gesture '(:keyboard #\u 512)) ; FIXME
+    (cond ((event-matches-gesture-name-p
+	    gesture
+	    '(:keyboard #\u (make-modifier-state :control)))
 	   (let ((numarg 4))
 	     (loop for gesture = (esa-read-gesture)
-		   while (event-matches-gesture-name-p gesture '(:keyboard #\u 512)) ; FIXME
+		   while (event-matches-gesture-name-p
+			  gesture
+			  '(:keyboard #\u (make-modifier-state :control)))
 		   do (setf numarg (* 4 numarg))
 		   finally (esa-unread-gesture gesture stream))
 	     (let ((gesture (esa-read-gesture)))
@@ -220,7 +224,7 @@
     (let ((*standard-output* (car windows))
 	  (*standard-input* (frame-standard-input frame))
 	  (*print-pretty* nil)
-	  (*abort-gestures* '((:keyboard #\g 512))))
+	  (*abort-gestures* `((:keyboard #\g ,(make-modifier-state :control)))))
       (redisplay-frame-panes frame :force-p t)
       (loop
        for maybe-error = t