mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

(cvs-parse-table): Be a bit more lenient.

Browse Source 
(cvs-parse-status): Handle the "used to have a conflict" marker.
This commit is contained in:
Stefan Monnier 2002-03-17 20:48:14 +00:00
parent fd13a3cc89
commit 1f3d429d73
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/pcvs-parse.el
View File

@ -4,7 +4,7 @@
;; Author: Stefan Monnier <monnier@cs.yale.edu>
;; Keywords: pcl-cvs
;; Revision: $Id: pcvs-parse.el,v 1.9 2001/09/22 20:22:34 monnier Exp $
;; Revision: $Id: pcvs-parse.el,v 1.10 2001/09/24 16:39:23 monnier Exp $
;; This file is part of GNU Emacs.
@ -251,7 +251,8 @@ The remaining KEYS are passed directly to `cvs-create-fileinfo'."
;; A special cvs message
(and
(cvs-match "cvs[.ex]* [a-z]+: ")
(let ((case-fold-search t))
(cvs-match "cvs[.a-z]* [a-z]+: "))
(cvs-or
;; CVS is descending a subdirectory
@ -435,6 +436,7 @@ The remaining KEYS are passed directly to `cvs-create-fileinfo'."
(type (if nofile 'MISSING 'NEED-UPDATE)))
(cvs-match "Up-to-date$"
(type (if nofile '(UP-TO-DATE . REMOVED) 'UP-TO-DATE)))
(cvs-match "File had conflicts on merge$" (type 'MODIFIED))
(cvs-match ".*[Cc]onflict.*$" (type 'CONFLICT))
(cvs-match "Locally Added$" (type 'ADDED))
(cvs-match "Locally Removed$" (type 'REMOVED))