Parent Directory | Revision Log | Patch
revision 1.17 by pj, Thu Dec 20 18:42:44 2001 UTC | revision 1.18 by monnier, Sat Jun 22 20:24:42 2002 UTC | |
---|---|---|
# | Line 40 | Line 40 |
40 | (defvar cvs-version | (defvar cvs-version |
41 | (ignore-errors | (ignore-errors |
42 | (with-temp-buffer | (with-temp-buffer |
43 | (call-process "cvs" nil t nil "-v") | (call-process cvs-program nil t nil "-v") |
44 | (goto-char (point-min)) | (goto-char (point-min)) |
45 | (when (re-search-forward "(CVS) \\([0-9]+\\)\\.\\([0-9]+\\)" nil t) | (when (re-search-forward "(CVS) \\([0-9]+\\)\\.\\([0-9]+\\)" nil t) |
46 | (cons (string-to-number (match-string 1)) | (cons (string-to-number (match-string 1)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |