anchor.diff:                                   translated-specs
                                    specs)))
                      (keyspecs-with-optional-keycode key))))
  -      (when buffer
  +      (when (input-buffer-p buffer)
           (setf (last-event buffer) event))
         (cond
           ((ffi-generated-input-event-p window event)
  
positive.code:   "Return the list of `keymap' for the current buffer, ordered by priority.
  If non-empty, return the result of BUFFER's `current-keymaps-hook' instead."
    (let ((keymaps
            (when buffer
              (cons (override-map buffer)
                    (delete nil (mapcar #'keymap (modes buffer)))))))
      (if (current-keymaps-hook buffer)
          (hooks:run-hook (current-keymaps-hook buffer) keymaps buffer)
          keymaps)))
  
  
negative.code:                 (setf key-stack nil))
                t)
  
               ((or (and (input-buffer-p buffer) (forward-input-events-p buffer))
                    (pointer-event-p (first (last key-stack))))
                (log:debug "Forward key ~s" (keyspecs key-stack))
                (setf key-stack nil)
                nil)
  
               ((and (input-buffer-p buffer) (not (forward-input-events-p buffer)))
                ;; After checking `pointer-event-p', otherwise pointer events
                ;; might not be forwarded.
                (funcall (input-skip-dispatcher window) (keyspecs key-stack))
  