anchor.diff:      (unwind-protect
            (progn
              (setf *minibuffer* (make-instance 'buffer))
  -           (setf (global-key-map *editor*) *minibuffer-key-map*
  +           (setf (global-key-map) *minibuffer-key-map*
                    (buffer-property *minibuffer* 'name) "*Minibuffer*")
              (push 'fix-minibuffer-point-position-hook (post-command-hooks *editor*))
              (switch-to-buffer *minibuffer*)
  
positive.code:            (catch 'minibuffer-result
               (editor-loop)))
        (switch-to-buffer old-buffer)
        (setf (global-key-map *editor*) old-key-map
              (post-command-hooks *editor*) old-post-command-hooks))))
  
  (defun minibuffer-yes-or-no-p (&optional control &rest arguments)
  
negative.code: 
  (defun read-from-minibuffer (prompt &optional default-text)
    "Read a string from the minibuffer."
    (let ((old-key-map (global-key-map))
          (old-buffer (current-buffer *editor*))
          (old-post-command-hooks (post-command-hooks *editor*)))
      (when (eql old-buffer *minibuffer*)
  