Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 02:47:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Stefan Monnier 2008-04-03 13:34:34 +00:00
parent 0c1b4ae237
commit 882e82db4d
2 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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.

10
lisp/vc-bzr.el
View file

@ -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.