         (delete-other-windows)))
     (pop-to-buffer svn-process-buffer-name)
     (svn-process-mode)
-    (when svn-status-wash-control-M-in-process-buffers
-      (svn-status-remove-control-M))
     (when scroll-to-top
       (goto-char (point-min)))
     (pop-to-buffer cur-buff)))

    (setq svn-status-mode-line-process-status "")
    (svn-status-update-mode-line)
    (cond ((string= event "finished\n")
           (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))
                (when svn-status-wash-control-M-in-process-buffers
                  (svn-status-remove-control-M))
              (setq svn-status-mode-line-process-status "")
              (svn-status-update-mode-line)
              (when svn-pre-run-mode-line-process
