mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(cvs-vc-command-advice): Handle the case where args

Browse Source 
are passed to `cvs' before the command name.
(cvs-fileinfo-kill): Mark old FIs as up-to-date rather than dead.
This commit is contained in:
Stefan Monnier 2002-06-18 21:50:30 +00:00
parent db1f981d26
commit db750be704
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/pcvs.el
View File

@ -13,7 +13,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.34 2002/04/03 16:56:36 kai Exp $
;; Revision: $Id: pcvs.el,v 1.35 2002/05/16 20:03:52 monnier Exp $
;; This file is part of GNU Emacs.
@ -1633,8 +1633,8 @@ Signal an error if there is no backup file."
(if (eq (cvs-fileinfo->type fi) 'DIRCHANGE)
(dolist (fi (ewoc-collect c 'cvs-dir-member-p
(cvs-fileinfo->dir fi)))
(setf (cvs-fileinfo->type fi) 'DEAD))
(setf (cvs-fileinfo->type fi) 'DEAD)))
(setf (cvs-fileinfo->type fi) 'UP-TO-DATE))
(setf (cvs-fileinfo->type fi) 'UP-TO-DATE)))
(defun cvs-is-within-p (fis dir)
"Non-nil is buffer is inside one of FIS (in DIR)."
@ -2126,8 +2126,12 @@ The exact behavior is determined also by `cvs-dired-use-hook'."
(defun cvs-vc-command-advice (command file flags)
(when (and (equal command "cvs")
;; don't parse output we don't understand.
(member (car flags) cvs-parse-known-commands))
(progn
(while (and (stringp (car flags))
(string-match "\\`-" (car flags)))
(pop flags))
;; don't parse output we don't understand.
(member (car flags) cvs-parse-known-commands)))
(save-excursion
(let ((buffer (current-buffer))
(dir default-directory)