anchor.diff:                                                   :value key-string
                                                    :modifiers modifiers
                                                    :status :pressed)))
  -      (funcall (input-dispatcher sender) event (active-buffer sender) sender printable?))))
  +      (funcall (input-dispatcher sender) event (active-buffer sender) sender printable-value))))
   
   (defmethod process-button-press-event ((sender gtk-buffer) event)
     (let* ((button (gdk:gdk-event-button-button event))
  
positive.code: (defmethod ipc-window-unfullscreen ((window gtk-window))
    (gtk:gtk-window-unfullscreen (gtk-object window)))
  
  (defun derive-key-string (character keyval-name)
    "Return string representation of a key, given the two CHARACTER and KEYVAL-NAME representations.
  Return nil when key must be discarded, e.g. for modifiers."
    (let ((result
            (match keyval-name
              ((or "Alt_L" "Super_L" "Control_L" "Shift_L"
                   "Alt_R" "Super_R" "Control_R" "Shift_R"
                   "ISO_Level3_Shift")
               ;; Discard modifiers (they usually have a null character).
               nil)
              ((or "Escape" "BackSpace" "Return" "space" "Tab")
               ;; We can't use the rule "if character is #\Nul use keyval-name"
               ;; because some keys like Escape have a non-null character.
               keyval-name)
              ((guard s (str:contains? "KP_" s))
               (str:replace-all "KP_" "keypad" s))
              (_ (match character
                   (#\- "hyphen")
                   (#\Nul keyval-name)
                   (_ (string character)))))))
      (if (< 1 (length result))
          (str:replace-all "_" "" (string-downcase result))
          result)))
  
negative.code:                                                      (gdk:gdk-event-button-state event)
                                                       event)
                                   :status :pressed)))
        (funcall (input-dispatcher window) event sender window nil))))
  
  (declaim (ftype (function (&optional buffer)) make-context))
  (defun make-context (&optional buffer)
  