diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2008-10-09 04:52:28 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2008-10-09 04:52:28 +0000 |
| commit | 264175a802f7a4e4917d2a81dd7a98789c5dffb6 (patch) | |
| tree | 7309ef0b2eccfe7d4248615a14373e38b9645424 /lisp/vc-cvs.el | |
| parent | f3d295514c7d0e320a8b3b407369158fe0790d7f (diff) | |
| download | emacs-264175a802f7a4e4917d2a81dd7a98789c5dffb6.tar.gz | |
(vc-cvs-dir-stay-local): New variable.
(vc-cvs-dir-status): Use it.
Diffstat (limited to 'lisp/vc-cvs.el')
| -rw-r--r-- | lisp/vc-cvs.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el index 4913a23440d..bd6e755d128 100644 --- a/lisp/vc-cvs.el +++ b/lisp/vc-cvs.el @@ -125,6 +125,14 @@ by these regular expressions." :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 @@ state." (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 |