anchor.diff:    (let ((entry (fontset-point point fontset)))
       (if entry
           (destructuring-bind ((range-start . range-stop) font translator) entry
  +	  (declare (ignore range-start range-stop))
             (xlib:char-width font (funcall translator point)))
           0)))
   
  
positive.code: 					      :structure-notify
  					      :pointer-motion
  					      :button-motion)))
    (when (null (port-lookup-mirror port sheet))
      (update-mirror-geometry sheet)
      (let* ((desired-color (typecase sheet
  
negative.code:                       target property requestor selection
                        request first-keycode count
                        &allow-other-keys)
    (declare (ignore display request first-keycode count))
    (declare (special *clx-port*))
    (let ((sheet (and window (port-lookup-sheet *clx-port* window))))
      (when sheet
  