     (setq svn-status-mode-line-process-status "")
     (svn-status-update-mode-line)
     (cond ((string= event "finished\n")
+           (when svn-status-wash-control-M-in-process-buffers
+             (svn-status-remove-control-M))
            (cond ((eq svn-process-cmd 'status)
                   ;;(message "svn status finished")
                   (svn-process-sentinel-fixup-path-seperators)

                ;; `call-process' ignores `process-connection-type' and
                ;; never opens a pseudoterminal.
                (apply 'call-process svn-exe nil proc-buf nil arglist))
              (setq svn-status-mode-line-process-status "")
              (svn-status-update-mode-line)
              (when svn-pre-run-mode-line-process

        (delete-other-windows)))
    (pop-to-buffer svn-process-buffer-name)
    (svn-process-mode)
    (when scroll-to-top
      (goto-char (point-min)))
    (pop-to-buffer cur-buff)))
