diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-03 13:34:34 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-03 13:34:34 +0000 |
| commit | 882e82db4d8521110941ea9bb30dc9d70c1919d6 (patch) | |
| tree | 28b40eaddce42e563df3a8f3a9ca62b0638dfae0 /lisp | |
| parent | 0c1b4ae2375275b5cb7be7e0003bc3c5e86495a4 (diff) | |
| download | emacs-882e82db4d8521110941ea9bb30dc9d70c1919d6.tar.gz emacs-882e82db4d8521110941ea9bb30dc9d70c1919d6.tar.bz2 emacs-882e82db4d8521110941ea9bb30dc9d70c1919d6.zip | |
(vc-bzr-previous-revision, vc-bzr-next-revision): New funs.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/vc-bzr.el | 10 |
2 files changed, 14 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 38d8f10f87b..2f11907944e 100644 --- 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 686dd1db65e..c2a67091ec3 100644 --- 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. |