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