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 ((*inhibit-read-only* t))
                         (erase-buffer))
                       (insert-string (current-point) minibuf-buffer-prev-string)
                       (move-point (current-point) minibuf-buffer-prev-point))))))))
        (editor-abort (c)
                      (error c)))))
  
negative.code:       str)))
  
  (defun prompt-for-line (prompt initial comp-f existing-p history-name)
    (when (and (not *enable-recursive-minibuffers*) (< 0 *minibuf-read-line-depth*))
      (editor-error "ERROR: recursive use of minibuffer"))
    (let ((*minibuffer-calls-window* (current-window))
          (*minibuf-read-line-history* (let ((table (gethash history-name *minibuf-read-line-history-table*)))
  