anchor.diff:        str)))
   
   (defun prompt-for-line (prompt initial comp-f existing-p history-name)
  -  (when (< 0 *minibuf-read-line-depth*)
  -    ;; 再帰的にミニバッファを使うと、深さを一つ戻すときにそのミニバッファのテキストプロパティも戻す必要があって
  -    ;; それがうまくできていないから、とりあえず再帰的なミニバッファの仕様を禁止している
  +  (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*)))
  
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:                      (let ((*inhibit-read-only* t))
                         (erase-buffer))
                       (insert-string (current-point) minibuf-buffer-prev-string)
                       (when prev-prompt-length
                         (with-point ((start (current-point))
                                      (end (current-point)))
                           (line-start start)
                           (line-offset end 0 prev-prompt-length)
                           (put-text-property start end :attribute *minibuffer-prompt-attribute*)
                           (put-text-property start end :read-only t)
                           (put-text-property start end :field t)))
                       (move-point (current-point) minibuf-buffer-prev-point))))))))
        (editor-abort (c)
                      (error c)))))
  