anchor.diff:                 (progn
                    ;; (log:debug "Key released") ; TODO: This makes the debug trace too verbose.  Middle ground?
                    nil)
  -               (progn
  +               (when (printable-p (first (key-chord-stack *interface*)))
                    (log:debug "Insert ~s in minibuffer" (key-chord-key-string
                                                          (first (key-chord-stack *interface*))))
                    (insert (key-chord-key-string (first (key-chord-stack *interface*))))))
  
positive.code:           when fun
              return fun)))
  
  (defun pointer-event-p (key-chord)
    "Return non-nil if key-chord is a pointer event, e.g. a mouton button click."
    (check-type key-chord key-chord)
    (not (= -1 (first (key-chord-position key-chord)))))
  
  ;; "Add a new key chord to the interface key-chord-stack.
  ;; For example, it may add C-M-s or C-x to a stack which will be consumed by
  
negative.code:                     :low-level-data low-level-data)))
      ;; Don't stack the release key-chords or else pressing "C-x" then "C-+""
      ;; will be understood as "C-x C-R-x C-+ C-R-+".
      (log:debug key-chord)
      (when (or (null (key-chord-stack *interface*))
                (not (member-string "R" (key-chord-modifiers key-chord))))
        (push key-chord (key-chord-stack *interface*))
  