[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/pcvs.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/pcvs.el |
Date: |
Tue, 18 Jun 2002 17:50:30 -0400 |
Index: emacs/lisp/pcvs.el
diff -c emacs/lisp/pcvs.el:1.35 emacs/lisp/pcvs.el:1.36
*** emacs/lisp/pcvs.el:1.35 Thu May 16 16:03:52 2002
--- emacs/lisp/pcvs.el Tue Jun 18 17:50:30 2002
***************
*** 13,19 ****
;; (Jari Aalto+mail.emacs) address@hidden
;; Maintainer: (Stefan Monnier) monnier+lists/cvs/address@hidden
;; Keywords: CVS, version control, release management
! ;; Revision: $Id: pcvs.el,v 1.35 2002/05/16 20:03:52 monnier Exp $
;; This file is part of GNU Emacs.
--- 13,19 ----
;; (Jari Aalto+mail.emacs) address@hidden
;; Maintainer: (Stefan Monnier) monnier+lists/cvs/address@hidden
;; Keywords: CVS, version control, release management
! ;; Revision: $Id: pcvs.el,v 1.36 2002/06/18 21:50:30 monnier Exp $
;; This file is part of GNU Emacs.
***************
*** 1633,1640 ****
(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)))
(defun cvs-is-within-p (fis dir)
"Non-nil is buffer is inside one of FIS (in DIR)."
--- 1633,1640 ----
(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) '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,2133 ****
(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))
(save-excursion
(let ((buffer (current-buffer))
(dir default-directory)
--- 2126,2137 ----
(defun cvs-vc-command-advice (command file flags)
(when (and (equal command "cvs")
! (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)
- [Emacs-diffs] Changes to emacs/lisp/pcvs.el,
Stefan Monnier <=