Commit 882e82db authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent 0c1b4ae2
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.
......
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment