emacs-diffs
[Top][All Lists]
Advanced

[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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]