Mercurial > emacs

comparison lisp/pcvs.el @ 48285:64107c7851aa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 d892c6e810f9
children 86325beb168c
comparison
equal deleted inserted replaced
48284:b853608fb697 48285:64107c7851aa
12 ;; (Stefan Monnier) monnier@cs.yale.edu 12 ;; (Stefan Monnier) monnier@cs.yale.edu
13 ;; (Greg Klanderman) greg@alphatech.com 13 ;; (Greg Klanderman) greg@alphatech.com
14 ;; (Jari Aalto+mail.emacs) jari.aalto@poboxes.com 14 ;; (Jari Aalto+mail.emacs) jari.aalto@poboxes.com
15 ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu 15 ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu
16 ;; Keywords: CVS, version control, release management 16 ;; Keywords: CVS, version control, release management
17 ;; Revision: $Id: pcvs.el,v 1.42 2002/10/01 18:48:35 monnier Exp $ 17 ;; Revision: $Id: pcvs.el,v 1.43 2002/10/26 22:27:15 kfstorm Exp $
18 18
19 ;; This file is part of GNU Emacs. 19 ;; This file is part of GNU Emacs.
20 20
21 ;; GNU Emacs is free software; you can redistribute it and/or modify 21 ;; GNU Emacs is free software; you can redistribute it and/or modify
22 ;; it under the terms of the GNU General Public License as published by 22 ;; it under the terms of the GNU General Public License as published by
1743 parsing if applicable). It will be prepended with `progn' is necessary." 1743 parsing if applicable). It will be prepended with `progn' is necessary."
1744 (let ((def-dir default-directory)) 1744 (let ((def-dir default-directory))
1745 ;; Save the relevant buffers 1745 ;; Save the relevant buffers
1746 (save-some-buffers nil (lambda () (cvs-is-within-p fis def-dir)))) 1746 (save-some-buffers nil (lambda () (cvs-is-within-p fis def-dir))))
1747 (unless (listp flags) (error "flags should be a list of strings")) 1747 (unless (listp flags) (error "flags should be a list of strings"))
1748 ;; Some w32 versions of CVS don't like an explicit . too much.
1749 (when (and (car fis) (null (cdr fis))
1750 (eq (cvs-fileinfo->type (car fis)) 'DIRCHANGE)
1751 ;; (equal (cvs-fileinfo->file (car fis)) ".")
1752 (equal (cvs-fileinfo->dir (car fis)) ""))
1753 (setq fis nil))
1748 (let* ((cvs-buf (current-buffer)) 1754 (let* ((cvs-buf (current-buffer))
1749 (single-dir (or (not (listp cvs-execute-single-dir)) 1755 (single-dir (or (not (listp cvs-execute-single-dir))
1750 (member cmd cvs-execute-single-dir))) 1756 (member cmd cvs-execute-single-dir)))
1751 (parse (member cmd cvs-parse-known-commands)) 1757 (parse (member cmd cvs-parse-known-commands))
1752 (args (append cvsargs (list cmd) flags)) 1758 (args (append cvsargs (list cmd) flags))