    (when (boundp 'temp-directory) temp-directory)                     ;xemacs
    "/tmp/"))
 (defvar svn-temp-suffix (make-temp-name "."))
+(defvar svn-status-temp-file-to-remove nil)
 (defvar svn-status-temp-arg-file (concat svn-status-temp-dir "svn.arg" svn-temp-suffix))
 
 ;;; faces

A and B must be line-info's"
  (string-lessp (concat (svn-status-line-info->full-path a) "/")
                (concat (svn-status-line-info->full-path b) "/")))

(defun svn-status-remove-control-M ()
  "Remove ^M at end of line in the whole buffer."

                  (svn-status-show-process-buffer-internal t)
                  (message "svn blame finished"))
                 ((eq svn-process-cmd 'commit)
                  (svn-status-remove-temp-file-maybe)
                  (svn-status-show-process-buffer-internal t)
                  (svn-status-update)
                  (message "svn commit finished"))
