/[emacs]/emacs/lisp/pcvs-parse.el
ViewVC logotype

Diff of /emacs/lisp/pcvs-parse.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.19.2.2 by miles, Fri Aug 27 07:00:26 2004 UTC revision 1.19.2.3 by miles, Thu Oct 14 08:50:01 2004 UTC
# Line 511  The remaining KEYS are passed directly t Line 511  The remaining KEYS are passed directly t
511         (cvs-match "new revision: \\([0-9.]*\\); previous revision: .*$"         (cvs-match "new revision: \\([0-9.]*\\); previous revision: .*$"
512                    (subtype 'COMMITTED) (base-rev 1)))                    (subtype 'COMMITTED) (base-rev 1)))
513        (cvs-or (cvs-match "done$") t)        (cvs-or (cvs-match "done$") t)
514          ;; In cvs-1.12.9 commit messages have been changed and became
515          ;; ambiguous.  More specifically, the `path' above is not given.
516          ;; We assume here that in future releases the corresponding info will
517          ;; be put into `file'.
518        (progn        (progn
519          ;; Try to remove the temp files used by VC.          ;; Try to remove the temp files used by VC.
520          (vc-delete-automatic-version-backups (expand-file-name path))          (vc-delete-automatic-version-backups (expand-file-name (or path file)))
521          ;; it's important here not to rely on the default directory management          ;; it's important here not to rely on the default directory management
522          ;; because `cvs commit' might begin by a series of Examining messages          ;; because `cvs commit' might begin by a series of Examining messages
523          ;; so the processing of the actual checkin messages might begin with          ;; so the processing of the actual checkin messages might begin with
524          ;; a `current-dir' set to something different from ""          ;; a `current-dir' set to something different from ""
525          (cvs-parsed-fileinfo (cons 'UP-TO-DATE subtype)          (cvs-parsed-fileinfo (cons 'UP-TO-DATE subtype)
526                               (or path file) (if path 'trust)                               (or path file) 'trust
527                               :base-rev base-rev)))                               :base-rev base-rev)))
528    
529       ;; useless message added before the actual addition: ignored       ;; useless message added before the actual addition: ignored

Legend:
Removed from v.1.19.2.2  
changed lines
  Added in v.1.19.2.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26