anchor.diff:  
   (defun prompt-for-line (prompt initial comp-f existing-p history-name
                           &optional (syntax-table (current-syntax)))
  +  (when (= 0 *minibuf-read-line-depth*)
  +    (run-hooks *minibuffer-activate-hook*))
     (when (and (not *enable-recursive-minibuffers*) (< 0 *minibuf-read-line-depth*))
       (editor-error "ERROR: recursive use of minibuffer"))
     (let ((*minibuffer-calls-window* (current-window))
  
positive.code: (defvar *minibuffer-completion-function* nil)
  (defvar *minibuffer-file-complete-function* nil)
  
  (defclass minibuffer-window (window) ())
  
  (defun make-minibuffer-window (buffer)
  
negative.code:                                 (put-text-property start end :field t)))
                              (move-point (current-point) minibuf-buffer-prev-point)
                              (when (= 1 *minibuf-read-line-depth*)
                                (run-hooks *minibuffer-deactivate-hook*)
                                (%switch-to-buffer *echoarea-buffer* nil nil)
                                ))))))
                  (editor-abort (c)
  