 
 (defun svn-prop-edit-done ()
   (interactive)
+  (svn-prop-edit-do-it t))
+
+(defun svn-prop-edit-do-it (async)
   (message "svn propset %s on %s"
            svn-status-propedit-property-name
            svn-status-propedit-file-list)

  (define-key svn-status-mode-map [?E] 'svn-status-ediff-with-revision)
  (setq svn-status-mode-mark-map (make-sparse-keymap))
  (define-key svn-status-mode-map "*" svn-status-mode-mark-map)
  (define-key svn-status-mode-mark-map "!" 'svn-status-unset-all-usermarks))

(when (not svn-status-mode-property-map)
  (setq svn-status-mode-property-map (make-sparse-keymap))
  (define-key svn-status-mode-property-map [?l] 'svn-status-property-list)

        (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-do-it nil)))	; synchronous
      (setq d-list (cdr d-list)))))

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