Hi,
trying `tla-dvc-delta' in a *tla-log* buffer, I noticed that the
Optimization path, which is a call to `tla-get-changeset' instead of
call to `tla-delta', is not followed when the delta operation is
beetween consecutive changesets.
This patch solves the problem for me.
Please change the Subject header to a concise description of your patch.
Please describe your patch between the LOG-START and LOG-END markers:
<<LOG-START>>
* tla-dvc.el (tla-dvc-delta): Fix the optimization case for
consecutive revisions.
<<LOG-END>>
[VERSION] dvc-dev-bzr
Bazaar (bzr) 0.10.0
Emacs : GNU Emacs 22.0.50.8 (i686-pc-linux-gnu, GTK+ Version 2.8.20)
of 2006-10-13 on onosendai.org
--
Reclama i tuoi diritti digitali, elimina il DRM. Approfondisci su
http://www.no1984.org
Reclaim your digital rights, eliminate DRM. Learn more at
http://www.defectivebydesign.org/what_is_drm
=== modified file 'lisp/tla-dvc.el'
--- lisp/tla-dvc.el 2006-09-29 19:48:53 +0000
+++ lisp/tla-dvc.el 2006-10-14 19:23:37 +0000
@@ -103,10 +103,12 @@
(interactive (error "TODO: interactive not implemented"))
(if (and (eq (dvc-revision-get-type base) 'previous-revision)
(eq (dvc-revision-get-type modified) 'revision)
- (equal (car (dvc-revision-get-data base))
+ (equal (car (dvc-revision-get-data
+ (car (dvc-revision-get-data base))))
(car (dvc-revision-get-data modified))))
;; base is the ancestor of modified. Optimization possible
- (tla-get-changeset (car (dvc-revision-get-data base))
+ (tla-get-changeset (car (dvc-revision-get-data
+ (car (dvc-revision-get-data base))))
t)
(tla-delta (tla--name-construct (tla-revision-id-to-list base))
(tla--name-construct (tla-revision-id-to-list modified))
_______________________________________________
Dvc-dev mailing list
[email protected]
https://mail.gna.org/listinfo/dvc-dev
