anchor.diff:        (update-display minibuffer))))
   
   @export
  -(defun clean-up-open-file-mode ()
  -  "Remove `open-file-mode' from the minibuffer modes.
  +(defun clean-up-file-manager-mode ()
  +  "Remove `file-manager-mode' from the minibuffer modes.
   So that we don't clutter the usual minibuffers with our keybindings."
     (setf (modes (minibuffer *interface*))
           ;TODO: be more general. Use delete-if.
  
positive.code: (define-key :scheme :vi-normal "C-x C-f" #'open-file)
  
  ;; This currently dosen't work, we must use the keymap at the mode definition:
  ;; (define-key :mode 'open-file-mode  "M-Left" #'display-parent-directory)
  
negative.code:   (let ((directory next/file-manager-mode::*current-directory*)
          mode)
      ;; Allow the current minibuffer to recognize our keybindings.
      (setf mode (make-instance 'next/file-manager-mode::file-manager-mode
                                :buffer (minibuffer *interface*)))
      ;; TODO: The cleanup-function is called when the does `M-x open-file RET`,
      ;; effectively removing the mode from the minibuffer.  We need to create a
  