anchor.diff:            prompt-for-character
             active-minibuffer-window
             check-switch-minibuffer-window
  -          minibuf-read-line-confirm
  -          minibuf-read-line-completion
  -          minibuf-read-line-prev-history
  -          minibuf-read-line-next-history
  +          minibuffer-read-line-confirm
  +          minibuffer-read-line-completion
  +          minibuffer-read-line-prev-history
  +          minibuffer-read-line-next-history
             prompt-for-y-or-n-p
             prompt-for-line
             prompt-for-string
  
positive.code:         ((char= #\n c)
           (return nil))))))
  
  (define-key *minibuf-keymap* "C-j" 'minibuf-read-line-confirm)
  (define-key *minibuf-keymap* "C-m" 'minibuf-read-line-confirm)
  (define-key *minibuf-keymap* "C-i" 'minibuf-read-line-completion)
  (define-key *minibuf-keymap* "M-p" 'minibuf-read-line-prev-history)
  (define-key *minibuf-keymap* "M-n" 'minibuf-read-line-next-history)
  (define-key *minibuf-keymap* "C-g" 'minibuf-read-line-break)
  
  (defvar *minibuf-read-line-prompt*)
  
negative.code:   (delete-between-points (minibuffer-start-point)
                           (buffer-end-point (minibuffer))))
  
  (define-command minibuffer-read-line-confirm () ()
    (let ((str (get-minibuffer-string)))
      (when (or (string= str "")
                (null *minibuf-read-line-existing-p*)
  