     (setq svn-status-propedit-file-list file-info-list)
     (setq svn-status-pre-propedit-window-configuration (current-window-configuration))
     (pop-to-buffer commit-buffer)
+    ;; If the buffer has been narrowed, `svn-prop-edit-done' will use
+    ;; only the accessible part.  So we need not erase the rest here.
     (delete-region (point-min) (point-max))
     (setq default-directory dir)
     (insert prop-value)

                            (buffer-substring (point-min) (- (point-max) 1))
                          "")))
    (svn-status-pop-to-commit-buffer)
    (delete-region (point-min) (point-max))
    (insert log-message)
    (goto-char (point-min))

  "Set a property on a given file list."
  (save-excursion
    (set-buffer (get-buffer-create "*svn-property-edit*"))
    ;; If the buffer has been narrowed, `svn-prop-edit-do-it' will use
    ;; only the accessible part.  So we need not erase the rest here.
    (delete-region (point-min) (point-max))
    (insert prop-value))
  (setq svn-status-propedit-file-list (svn-status-marked-files))
