anchor.diff:                                                 :modifiers modifiers
                                                  :status :pressed)))
             (funcall (input-dispatcher sender) event
  -                   (or (current-prompt-buffer)
  -                       (active-buffer sender))
  +                   buffer
                      sender printable-value))
           ;; Do not forward modifier-only to renderer.
           t)))
  
positive.code:                          (derive-key-string keyval-name character)))
           (modifiers (funcall (modifier-translator *browser*)
                               (key-event-modifiers event)
                               event)))
      (if modifiers
          (log:debug key-string keycode character keyval-name modifiers)
          (log:debug key-string keycode character keyval-name))
      (if key-string
          (progn
            (alex:appendf (key-stack sender)
  
negative.code:   (prompt-buffer-view (window prompt-buffer)))
  
  (define-ffi-method on-signal-key-release-event ((sender gtk-window) event)
    (declare (ignore sender event))
    ;; REVIEW: Is there any use for handling release events?
    nil)
  
  (defun sender-window (sender)
    (or (find sender (window-list) :key #'active-prompt-buffers)
  