anchor.diff:  	 ;; 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))))
  +	 (let* ((raw-gesture (pop-gesture buffer peek-p))
  +		(gesture (convert-to-gesture raw-gesture)))
   	   ;; 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
  
positive.code: 
  (defclass standard-extended-input-stream (extended-input-stream)
    ((pointer)
     (cursor :initarg :text-cursor)))
  
  (defvar *input-wait-test* nil)
  (defvar *input-wait-handler* nil)
  
negative.code: 
  (defmethod stream-unread-gesture ((stream standard-extended-input-stream)
  				  gesture)
    (declare (ignore gesture))
    (with-encapsulating-stream (estream stream)
      (let ((gesture (last-gesture stream)))
        (when gesture
  	(setf (last-gesture stream) nil)
  	(repush-gesture gesture (stream-input-buffer estream))))))
  
  ;;; Standard stream methods on standard-extended-input-stream.  Ignore any
  ;;; pointer gestures in the input buffer.
  