/[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.34 by ttn, Sat Aug 6 22:13:43 2005 UTC revision 1.35 by monnier, Wed Sep 14 16:18:04 2005 UTC
# Line 38  Line 38 
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.
# Line 490  It is expected to call the function.") Line 493  It is expected to call the function.")
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.
# Line 506  Sadly, even with a new cvs executable, i Line 512  Sadly, even with a new cvs executable, i
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)

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

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