Mercurial > emacs
comparison lisp/pcvs-parse.el @ 50957:4f526428ef19
(cvs-parse-table): `New directory' messages include the full path.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Mon, 12 May 2003 18:14:51 +0000 |
parents | fa1c848a9779 |
children | b51c3d855e30 |
comparison
equal
deleted
inserted
replaced
50956:510251277445 | 50957:4f526428ef19 |
---|---|
1 ;;; pcvs-parse.el --- the CVS output parser | 1 ;;; pcvs-parse.el --- the CVS output parser |
2 | 2 |
3 ;; Copyright (C) 1991,92,93,94,95,96,97,98,99,2000,2002 | 3 ;; Copyright (C) 1991,92,93,94,95,96,97,98,99,2000,02,2003 |
4 ;; Free Software Foundation, Inc. | 4 ;; Free Software Foundation, Inc. |
5 | 5 |
6 ;; Author: Stefan Monnier <monnier@cs.yale.edu> | 6 ;; Author: Stefan Monnier <monnier@cs.yale.edu> |
7 ;; Keywords: pcl-cvs | 7 ;; Keywords: pcl-cvs |
8 | 8 |
264 | 264 |
265 ;; [-n update] A new (or pruned) directory appeared but isn't traversed | 265 ;; [-n update] A new (or pruned) directory appeared but isn't traversed |
266 (and | 266 (and |
267 (cvs-match "New directory `\\(.*\\)' -- ignored$" (dir 1)) | 267 (cvs-match "New directory `\\(.*\\)' -- ignored$" (dir 1)) |
268 ;; (cvs-parsed-fileinfo 'MESSAGE " " (file-name-as-directory dir)) | 268 ;; (cvs-parsed-fileinfo 'MESSAGE " " (file-name-as-directory dir)) |
269 (cvs-parsed-fileinfo '(NEED-UPDATE . NEW-DIR) dir)) | 269 (cvs-parsed-fileinfo '(NEED-UPDATE . NEW-DIR) dir t)) |
270 | 270 |
271 ;; File removed, since it is removed (by third party) in repository. | 271 ;; File removed, since it is removed (by third party) in repository. |
272 (and | 272 (and |
273 (cvs-or | 273 (cvs-or |
274 (cvs-match "warning: \\(.*\\) is not (any longer) pertinent$" (file 1)) | 274 (cvs-match "warning: \\(.*\\) is not (any longer) pertinent$" (file 1)) |