38 |
"*Name or full path of the cvs executable.") |
"*Name or full path of the cvs executable.") |
39 |
|
|
40 |
(defvar cvs-version |
(defvar cvs-version |
41 |
|
;; With the divergence of the CVSNT codebase and version numbers, this is |
42 |
|
;; not really good any more. |
43 |
(ignore-errors |
(ignore-errors |
44 |
(with-temp-buffer |
(with-temp-buffer |
45 |
(call-process cvs-program nil t nil "-v") |
(call-process cvs-program nil t nil "-v") |
46 |
(goto-char (point-min)) |
(goto-char (point-min)) |
47 |
(when (re-search-forward "(CVS) \\([0-9]+\\)\\.\\([0-9]+\\)" nil t) |
(when (re-search-forward "(CVS\\(NT\\)?) \\([0-9]+\\)\\.\\([0-9]+\\)" |
48 |
|
nil t) |
49 |
(cons (string-to-number (match-string 1)) |
(cons (string-to-number (match-string 1)) |
50 |
(string-to-number (match-string 2)))))) |
(string-to-number (match-string 2)))))) |
51 |
"*Version of `cvs' installed on your system. |
"*Version of `cvs' installed on your system. |
493 |
;; cvs-1.10 and above can take file arguments in other directories |
;; cvs-1.10 and above can take file arguments in other directories |
494 |
;; while others need to be executed once per directory |
;; while others need to be executed once per directory |
495 |
(defvar cvs-execute-single-dir |
(defvar cvs-execute-single-dir |
496 |
(if (and (consp cvs-version) |
(if (or (null cvs-version) |
497 |
(or (>= (cdr cvs-version) 10) (> (car cvs-version) 1))) |
(or (>= (cdr cvs-version) 10) (> (car cvs-version) 1))) |
498 |
|
;; Supposedly some recent versions of CVS output some directory info |
499 |
|
;; as they recurse downthe tree, but it's not good enough in the case |
500 |
|
;; where we run "cvs status foo bar/foo". |
501 |
'("status") |
'("status") |
502 |
t) |
t) |
503 |
"Whether cvs commands should be executed a directory at a time. |
"Whether cvs commands should be executed a directory at a time. |
512 |
a case the sanity check made by pcl-cvs fails and you will have to manually |
a case the sanity check made by pcl-cvs fails and you will have to manually |
513 |
set this variable to t (until the cvs server is upgraded). |
set this variable to t (until the cvs server is upgraded). |
514 |
When the above problem occurs, pcl-cvs should (hopefully) catch cvs' error |
When the above problem occurs, pcl-cvs should (hopefully) catch cvs' error |
515 |
message and replace it with a message tell you to change this variable.") |
message and replace it with a message telling you to change this variable.") |
516 |
|
|
517 |
;; |
;; |
518 |
(provide 'pcvs-defs) |
(provide 'pcvs-defs) |