/[emacs]/emacs/lisp/pcvs-defs.el
ViewVC logotype

Diff of /emacs/lisp/pcvs-defs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26