anchor.diff:                 (return-from consume-key-sequence t)))))
       (log:debug "Not found in any keymaps")
       (setf (key-chord-stack *interface*) ())))
  +
  +;; TODO: Add override map and all mode maps.  Remove root-mode-default-keymap.
  +(defun current-keymaps (window &optional
  +                          (active-buffer (active-buffer window)))
  +  "Return the list of keymaps for the current buffer, ordered by priority."
  +  (let* ((local-map (if (minibuffer-active window)
  +                        (keymap (mode (minibuffer *interface*)))
  +                        (keymap (mode active-buffer)))))
  +    (list local-map (root-mode-default-keymap))))
   
   (defun define-key (&rest key-command-pairs
                      &key mode keymap
  
positive.code:   ;; If key recognized, execute function
    (let* ((active-window (gethash sender (windows *interface*)))
           (active-buffer (active-buffer active-window))
           (local-map (if (minibuffer-active active-window)
                          (keymap (mode (minibuffer *interface*)))
                          (keymap (mode active-buffer))))
           (key-maps (list (root-mode-default-keymap) local-map))
           (serialized-key-stack (mapcar #'serialize-key-chord (key-chord-stack *interface*))))
      (dolist (map key-maps)
        (let ((bound-function (gethash serialized-key-stack map)))
          (cond ((equalp "prefix" bound-function)
                 (return-from consume-key-sequence t))
  
negative.code: ;;; keymap.lisp --- lisp subroutines for key binding detection
  
  (in-package :next)
  
  