anchor.diff:  (defun initialize-minibuffer-key-map (key-map)
     (set-key #\Newline 'minibuffer-finish-input-command key-map)
     (set-key #\C-M 'minibuffer-finish-input-command key-map)
  +  (set-key #\M-P 'minibuffer-previous-history-command key-map)
     (set-key '(#\C-X #\C-F) nil key-map)
     (set-key '(#\C-X #\C-S) nil key-map)
     (set-key '(#\C-X #\C-W) nil key-map)
  
positive.code: 
  (defun minibuffer-finish-input-command ()
    (move-end-of-buffer *minibuffer*)
    (throw 'minibuffer-result
      (buffer-string *minibuffer*
                     (buffer-property *minibuffer* 'minibuffer-prompt-end)
                     (buffer-point *minibuffer*))))
  
  (defun read-from-minibuffer (prompt &optional default-text)
    "Read a string from the minibuffer."
  
negative.code:            (insert *minibuffer* prompt)
             (setf (buffer-property *minibuffer* 'minibuffer-prompt-end) 
                                    (copy-mark (buffer-point *minibuffer*) :left))
  
             (when default-text
               (insert *minibuffer* default-text))
             (catch 'minibuffer-result
               (handler-case
                (editor-loop)
                (error (e) 
                  (setf *minibuffer-history-number* 0)
                  (error e)))))
        (switch-to-buffer old-buffer))))x
  
  
  (defun minibuffer-yes-or-no-p (&optional control &rest arguments)
  