anchor.diff:  
   (defclass standard-extended-input-stream (extended-input-stream)
     ((pointer)
  -   (cursor :initarg :text-cursor)))
  +   (cursor :initarg :text-cursor)
  +   (last-gesture :accessor last-gesture :initform nil
  +    :documentation "Holds the last gesture returned by
  +  stream-read-gesture (not peek-p), untransformed, so it can easily be
  +  unread.")))
   
   (defvar *input-wait-test* nil)
   (defvar *input-wait-handler* nil)
  
positive.code: 	 ;; An event should  be in the stream buffer now.
  	 (when (handle-non-stream-event buffer)
  	   (go wait-for-char))
  	 (let ((gesture (convert-to-gesture (pop-gesture buffer peek-p))))
  	   ;; Sometimes key press events get generated with a key code for
  	   ;; which there is no keysym.  This seems to happen on my machine
  	   ;; when keys are hit rapidly in succession.  I'm not sure if this is
  
negative.code: 			thereis (event-matches-gesture-name-p gesture
  							      gesture-name))
  		  (signal 'accelerator-gesture :event gesture))
  		 (t (setf (last-gesture stream) raw-gesture)
  		    (return-from stream-read-gesture gesture))))
  	 (go wait-for-char)))))
  
  
  