                  (buffer-string))))
           (find-file file-name-with-revision)
           (setq buffer-read-only nil)
-          (delete-region (point-min) (point-max))
+          (erase-buffer)  ;Widen, because we'll save the whole buffer.
           (insert content)
           (save-buffer)))
       (setq file-names (cdr file-names)))

    (setq svn-status-propedit-file-list file-info-list)
    (setq svn-status-pre-propedit-window-configuration (current-window-configuration))
    (pop-to-buffer commit-buffer)
    (delete-region (point-min) (point-max))
    (setq default-directory dir)
    (insert prop-value)

(defun svn-status-save-state ()
  (interactive)
  (let ((buf (find-file (concat (svn-status-base-dir) "++psvn.state"))))
    (erase-buffer)        ;Widen, because we'll save the whole buffer.
    (setq svn-status-options
          (list
           (list "svn-trac-project-root" svn-trac-project-root)
