# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1233417067 0
# Node ID 6bc8fe0c390a21a4877701d500b6e143d8a41470
# Parent  60bf3fa883a820b0bc4d70c68c68aaf82a6b06df
(vc-svn-dir-status): Disable the vc-stay-local-p
logic, it makes the makes the normal case too slow.

diff -r 60bf3fa883a8 -r 6bc8fe0c390a lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Jan 31 14:34:05 2009 +0000
+++ b/lisp/ChangeLog	Sat Jan 31 15:51:07 2009 +0000
@@ -1,3 +1,8 @@
+2009-01-31  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* vc-svn.el (vc-svn-dir-status): Disable the vc-stay-local-p
+	logic, it makes the makes the normal case too slow.
+
 2009-01-31  Eli Zaretskii  <eliz@gnu.org>
 
 	* mail/unrmail.el (unrmail): Set coding-system of the old Rmail
diff -r 60bf3fa883a8 -r 6bc8fe0c390a lisp/vc-svn.el
--- a/lisp/vc-svn.el	Sat Jan 31 14:34:05 2009 +0000
+++ b/lisp/vc-svn.el	Sat Jan 31 15:51:07 2009 +0000
@@ -185,8 +185,12 @@
 CALLBACK is called as (CALLBACK RESULT BUFFER), where
 RESULT is a list of conses (FILE . STATE) for directory DIR."
   ;; FIXME should this rather be all the files in dir?
-  (let* ((local (vc-stay-local-p dir))
-	 (remote (or (not local) (eq local 'only-file))))
+  ;; FIXME: the vc-stay-local-p logic below is disabled, it ends up
+  ;; calling synchronously (vc-svn-registered DIR) => calling svn status -v DIR
+  ;; which is VERY SLOW for big trees and it makes emacs
+  ;; completely unresponsive during that time.
+  (let* ((local (and nil (vc-stay-local-p dir)))
+	 (remote (or t (not local) (eq local 'only-file))))
     (vc-svn-command (current-buffer) 'async nil "status"
 		    (if remote "-u"))
   (vc-exec-after