anchor.diff:            check-switch-minibuffer-window
             minibuf-read-line-confirm
             minibuf-read-line-completion
  -          minibuf-read-line-clear-before
             minibuf-read-line-prev-history
             minibuf-read-line-next-history
             minibuf-get-line
  
positive.code:         (insert-string str))))
    t)
  
  (define-command minibuf-read-line-clear-before () ()
    (kill-region (point-min) (current-point))
    t)
  
  (define-command minibuf-read-line-prev-history () ()
    (multiple-value-bind (str win)
        (prev-history *minibuf-read-line-history*)
      (when win
        (kill-region (point-min) (point-max))
        (insert-string str))))
  
  (define-command minibuf-read-line-next-history () ()
    (multiple-value-bind (str win)
        (next-history *minibuf-read-line-history*)
      (when win
        (kill-region (point-min) (point-max))
        (insert-string str))))
  
  (define-command minibuf-read-line-break () ()
  
negative.code: (define-key *minibuf-keymap* (kbd "C-j") 'minibuf-read-line-confirm)
  (define-key *minibuf-keymap* (kbd "C-m") 'minibuf-read-line-confirm)
  (define-key *minibuf-keymap* (kbd "C-i") 'minibuf-read-line-completion)
  (define-key *minibuf-keymap* (kbd "C-p") 'minibuf-read-line-prev-history)
  (define-key *minibuf-keymap* (kbd "C-n") 'minibuf-read-line-next-history)
  (define-key *minibuf-keymap* (kbd "C-g") 'minibuf-read-line-break)
  