anchor.diff:        (setf navigation-action (webkit:webkit-navigation-policy-decision-get-navigation-action response-policy-decision))
         (setf request (webkit:webkit-navigation-action-get-request navigation-action))
         (setf mouse-button (format nil "button~d" (webkit:webkit-navigation-action-get-mouse-button navigation-action)))
  -      (setf modifier-state (webkit:webkit-navigation-action-get-modifiers navigation-action)))
  +      (setf modifiers (translate-modifier-list *interface* (webkit:webkit-navigation-action-get-modifiers navigation-action))))
       (setf url (webkit:webkit-uri-request-uri request))
       (request-resource buffer
                         :url url
  
positive.code:   (initialize-modes buffer))
  
  (defmethod process-decide-policy ((buffer gtk-buffer) response-policy-decision policy-decision-type-response)
    (let ((is-new-window nil)
          (is-known-type t)
          (navigation-action nil)
          (navigation-type nil)
          (url nil)
          (modifier-state)
          (modifiers ())
          (event-type nil)
          (request nil)
          (mouse-button nil))
      (cond ((eq policy-decision-type-response :webkit-policy-decision-type-navigation-action)
             (setf navigation-type (webkit:webkit-navigation-policy-decision-navigation-type response-policy-decision)))
            ((eq policy-decision-type-response :webkit-policy-decision-type-new-window-action)
  
negative.code:         ((eq key-value 65363) "Right")
          ((not (eq character #\Nul)) (string character))))
  
  (defmethod translate-modifier-list ((interface gtk-interface) modifier-state)
    (let ((modifiers ()))
      (when (member :control-mask modifier-state)
        (push "C" modifiers))
      (when (member :mod1-mask modifier-state)
        (push "M" modifiers))
      (when (or (member :super-mask modifier-state)
                (and (member :mod2-mask modifier-state)
                     (member :meta-mask modifier-state)))
        (push "S" modifiers))
      modifiers))
  
  (defmethod push-modifier ((interface gtk-interface) event)
    (let ((modifier-state (gdk:gdk-event-key-state event))
          (key-value (gdk:gdk-event-key-keyval event)))
  