Mercurial > emacs
changeset 48285:64107c7851aa
(cvs-mode-run): Don't pass "." if not needed.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 13 Nov 2002 20:19:38 +0000 |
| parents | b853608fb697 |
| children | a820dd4741e1 |
| files | lisp/pcvs.el |
| diffstat | 1 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)))