(vc-bzr-previous-revision, vc-bzr-next-revision): New funs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 38d8f10f87b09ff4839cf6848020f296ee56629b..2f11907944e2005227fbbefa75dc0d0f1f08fb44 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-04-03  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * vc-bzr.el (vc-bzr-previous-revision, vc-bzr-next-revision): New funs.
+
 2008-04-03  Chong Yidong  <cyd@stupidchicken.com>
 
        * shell.el (shell-dynamic-complete-filename): New fun.

diff --git a/lisp/vc-bzr.el b/lisp/vc-bzr.el
index 686dd1db65ee806ee4e78a10d55410e619e14a6d..c2a67091ec33f5d6f27ed1c494f4a65ed85ef5f2 100644 (file)
--- a/lisp/vc-bzr.el
+++ b/lisp/vc-bzr.el
@@ -357,6 +357,16 @@ If any error occurred in running `bzr status', then return nil."
   "Always return nil, as Bzr cannot register explicit versions."
   nil)
 
+(defun vc-bzr-previous-revision (file rev)
+  (if (string-match "\\`[0-9]+\\'" rev)
+      (number-to-string (1- (string-to-number rev)))
+    (concat "before:" rev)))
+
+(defun vc-bzr-next-revision (file rev)
+  (if (string-match "\\`[0-9]+\\'" rev)
+      (number-to-string (1+ (string-to-number rev)))
+    (error "Don't know how to compute the next revision of %s" rev)))
+
 (defun vc-bzr-register (files &optional rev comment)
   "Register FILE under bzr.
 Signal an error unless REV is nil.