       (setq file-name (car file-names))
       (setq file-name-with-revision (concat file-name ".~" revision "~"))
       (add-to-list 'svn-status-get-specific-revision-file-info
-                   (cons file-name file-name-with-revision) t)
+                   (cons file-name file-name-with-revision))
       (save-excursion
         (find-file file-name-with-revision)
         (setq buffer-read-only nil)

        (insert-buffer-substring "*svn-process*")
        (save-buffer))
      (setq file-names (cdr file-names)))
    (message "svn-status-get-specific-revision-file-info: %S"
             svn-status-get-specific-revision-file-info)))


          (svn-status-property-edit
           (list (svn-status-find-info-for-file-name dir)) "svn:ignore"
           ext-list)
          (svn-prop-edit-do-it nil)))
      (setq d-list (cdr d-list)))))

(defun svn-status-property-edit-svn-ignore ()
