anchor.diff:            prompt-for-file))
   
   (defparameter *minibuffer-window-height* 1)
  +(defvar *enable-recursive-minibuffers* t)
   
   (defvar *minibuf-window*)
   (defvar *minibuffer-calls-window*)
  
positive.code:              (let ((minibuf-buffer-prev-string
                      (points-to-string (buffers-start (minibuffer))
                                        (buffers-end (minibuffer))))
                     (minibuf-buffer-prev-point
                      (window-point (minibuffer-window)))
                     (*minibuf-read-line-depth*
                      (1+ *minibuf-read-line-depth*)))
                 (let ((*inhibit-read-only* t))
  
negative.code: (defvar *minibuf-read-line-history*)
  
  (defvar *minibuf-read-line-depth* 0)
  (defvar *minibuf-prev-prompt* nil)
  
  (defun check-switch-minibuffer-window ()
    (when (minibuffer-window-active-p)
  