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

        (when (y-or-n-p (format "Ignore %S for %s? " ext-list dir))
          (svn-status-property-edit
           (list (svn-status-find-info-for-file-name dir)) "svn:ignore" ext-list)
          (svn-prop-edit-done)))
      (setq d-list (cdr d-list)))))

(defun svn-status-property-ignore-file-extension ()

      (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))
      (save-excursion
        (find-file file-name-with-revision)
        (setq buffer-read-only nil)
