Mercurial > emacs

comparison lisp/pcvs-parse.el @ 82361:be079227e4e1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cvs-parse-table): Handle additional instance of optional quotes around files in NEED-UPDATE . REMOVED case.
author Juanma Barranquero <lekktu@gmail.com>
date Mon, 13 Aug 2007 10:41:40 +0000
parents 9355f9b7bbff
children 855c06f0c064 aaccdab0ee26
comparison
equal deleted inserted replaced
82360:cb141f698420 82361:be079227e4e1
282 (cvs-parsed-fileinfo '(NEED-UPDATE . NEW-DIR) dir t))) 282 (cvs-parsed-fileinfo '(NEED-UPDATE . NEW-DIR) dir t)))
283 283
284 ;; File removed, since it is removed (by third party) in repository. 284 ;; File removed, since it is removed (by third party) in repository.
285 (and 285 (and
286 (cvs-or 286 (cvs-or
287 ;; some cvs versions output quotes around these files
288 (cvs-match "warning: `\\(.*\\)' is not (any longer) pertinent$" (file 1))
287 (cvs-match "warning: \\(.*\\) is not (any longer) pertinent$" (file 1)) 289 (cvs-match "warning: \\(.*\\) is not (any longer) pertinent$" (file 1))
288 (cvs-match "`\\(.*\\)' is no longer in the repository$" (file 1)) 290 (cvs-match "`\\(.*\\)' is no longer in the repository$" (file 1))
289 (cvs-match "\\(.*\\) is no longer in the repository$" (file 1))) 291 (cvs-match "\\(.*\\) is no longer in the repository$" (file 1)))
290 (cvs-parsed-fileinfo 292 (cvs-parsed-fileinfo
291 (if dont-change-disc '(NEED-UPDATE . REMOVED) 'DEAD) file)) 293 (if dont-change-disc '(NEED-UPDATE . REMOVED) 'DEAD) file))