# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1223527948 0
# Node ID 5472a993dc3a723fd0f21189e71bcd14edd32334
# Parent  7e4ece224094981398589385dd0e789791b6fed3
(vc-cvs-dir-stay-local): New variable.
(vc-cvs-dir-status): Use it.

diff -r 7e4ece224094 -r 5472a993dc3a lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Oct 08 22:59:02 2008 +0000
+++ b/lisp/ChangeLog	Thu Oct 09 04:52:28 2008 +0000
@@ -1,3 +1,8 @@
+2008-10-09  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* vc-cvs.el (vc-cvs-dir-stay-local): New variable.
+	(vc-cvs-dir-status): Use it.
+
 2008-10-08  Chong Yidong  <cyd@stupidchicken.com>
 
 	* json.el (json-skip-whitespace): Fix last change.
diff -r 7e4ece224094 -r 5472a993dc3a lisp/vc-cvs.el
--- a/lisp/vc-cvs.el	Wed Oct 08 22:59:02 2008 +0000
+++ b/lisp/vc-cvs.el	Thu Oct 09 04:52:28 2008 +0000
@@ -125,6 +125,14 @@
   :version "21.1"
   :group 'vc)
 
+(defcustom vc-cvs-dir-stay-local nil
+  "*Non-nil means use local operations when possible for remote repositories.
+This avoids slow queries over the network and instead uses heuristics
+and past information to determine the current status of files for `vc-dir'."
+  :type 'boolean
+  :version "23.1"
+  :group 'vc)
+
 (defcustom vc-cvs-sticky-date-format-string "%c"
   "*Format string for mode-line display of sticky date.
 Format is according to `format-time-string'.  Only used if
@@ -953,7 +961,7 @@
 (defun vc-cvs-dir-status (dir update-function)
   "Create a list of conses (file . state) for DIR."
   ;; FIXME check all files in DIR instead?
-  (if (vc-stay-local-p dir)
+  (if vc-cvs-dir-stay-local
       (vc-cvs-dir-status-heuristic dir update-function)
     (vc-cvs-command (current-buffer) 'async dir "-f" "status")
     ;; Alternative implementation: use the "update" command instead of