Mercurial > emacs
comparison lisp/vc-bzr.el @ 93602:702b99dd7604
(vc-bzr-previous-revision, vc-bzr-next-revision): New funs.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 03 Apr 2008 13:34:34 +0000 |
| parents | c505d070db06 |
| children | 2b3d42806dcc |
comparison
equal
deleted
inserted
replaced
| 93601:7ec6308bd95a | 93602:702b99dd7604 |
|---|---|
| 354 (vc-bzr-command "init" nil 0 nil)) | 354 (vc-bzr-command "init" nil 0 nil)) |
| 355 | 355 |
| 356 (defun vc-bzr-init-revision (&optional file) | 356 (defun vc-bzr-init-revision (&optional file) |
| 357 "Always return nil, as Bzr cannot register explicit versions." | 357 "Always return nil, as Bzr cannot register explicit versions." |
| 358 nil) | 358 nil) |
| 359 | |
| 360 (defun vc-bzr-previous-revision (file rev) | |
| 361 (if (string-match "\\`[0-9]+\\'" rev) | |
| 362 (number-to-string (1- (string-to-number rev))) | |
| 363 (concat "before:" rev))) | |
| 364 | |
| 365 (defun vc-bzr-next-revision (file rev) | |
| 366 (if (string-match "\\`[0-9]+\\'" rev) | |
| 367 (number-to-string (1+ (string-to-number rev))) | |
| 368 (error "Don't know how to compute the next revision of %s" rev))) | |
| 359 | 369 |
| 360 (defun vc-bzr-register (files &optional rev comment) | 370 (defun vc-bzr-register (files &optional rev comment) |
| 361 "Register FILE under bzr. | 371 "Register FILE under bzr. |
| 362 Signal an error unless REV is nil. | 372 Signal an error unless REV is nil. |
| 363 COMMENT is ignored." | 373 COMMENT is ignored." |