                 (progn
                   ;;(message "running asynchron: %s %S" svn-exe arglist)
                   (setq svn-proc (apply 'start-process "svn" proc-buf svn-exe arglist))
-                  (set-process-sentinel svn-proc 'svn-process-sentinel))
+                  (set-process-sentinel svn-proc 'svn-process-sentinel)
+                  (when svn-status-use-process-filter
+                    (set-process-filter svn-proc 'svn-process-filter)))
               ;;(message "running synchron: %s %S" svn-exe arglist)
               (apply 'call-process svn-exe nil proc-buf nil arglist)
               (setq svn-status-mode-line-process-status "")

          (t
           (message "svn process had unknown event: %s" event))
          (svn-status-show-process-buffer-internal t))))

(defun svn-parse-rev-num (str)
  (if (and str (stringp str)

  (eq system-type 'windows-nt)
  "*Remove any trailing ^M from the *svn-process* buffer.")

;;; experimental features
(defvar svn-status-use-process-filter nil "Use the svn process filter for
asynchronous calls to svn.")

;;; Customize group
(defgroup psvn nil
  "Subversion interface for Emacs."
