# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1037218778 0
# Node ID 64107c7851aa6591f4967e005a3e8562d1888fd6
# Parent  b853608fb697327732c69eaf6db614edfdd16ce8
(cvs-mode-run): Don't pass "." if not needed.

diff -r b853608fb697 -r 64107c7851aa lisp/pcvs.el
--- a/lisp/pcvs.el	Wed Nov 13 20:15:44 2002 +0000
+++ b/lisp/pcvs.el	Wed Nov 13 20:19:38 2002 +0000
@@ -14,7 +14,7 @@
 ;;	(Jari Aalto+mail.emacs) jari.aalto@poboxes.com
 ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu
 ;; Keywords: CVS, version control, release management
-;; Revision: $Id: pcvs.el,v 1.42 2002/10/01 18:48:35 monnier Exp $
+;; Revision: $Id: pcvs.el,v 1.43 2002/10/26 22:27:15 kfstorm Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -1745,6 +1745,12 @@
     ;; Save the relevant buffers
     (save-some-buffers nil (lambda () (cvs-is-within-p fis def-dir))))
   (unless (listp flags) (error "flags should be a list of strings"))
+  ;; Some w32 versions of CVS don't like an explicit . too much.
+  (when (and (car fis) (null (cdr fis))
+	     (eq (cvs-fileinfo->type (car fis)) 'DIRCHANGE)
+	     ;; (equal (cvs-fileinfo->file (car fis)) ".")
+	     (equal (cvs-fileinfo->dir (car fis)) ""))
+    (setq fis nil))
   (let* ((cvs-buf (current-buffer))
 	 (single-dir (or (not (listp cvs-execute-single-dir))
 			 (member cmd cvs-execute-single-dir)))