procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(vc-svn-previous-version, vc-svn-next-version): New funcs.

Browse source
This commit is contained in:
Thien-Thi Nguyen 2006-02-06 15:58:38 +00:00
parent c9586d40aa
commit cbbd2cd318
2 changed files with 22 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,4 +1,8 @@
2006-02-06 Lars Hansen <larsh@soem.dk>
2006-02-06 Thien-Thi Nguyen <ttn@gnu.org>
* vc-svn.el (vc-svn-previous-version, vc-svn-next-version): New funcs.
2006-02-06 Lars Hansen <larsh@soem.dk>
* generic-x.el (etc-fstab-generic-mode): Add file system types
cifs and usbdevfs. Allow special chars in file names.

17
lisp/vc-svn.el
View file

@ -176,6 +176,23 @@ This is only meaningful if you don't use the implicit checkout model
((eq svn-state 'needs-patch) "(patch)")
((eq svn-state 'needs-merge) "(merge)"))))
(defun vc-svn-previous-version (file rev)
(let ((newrev (1- (string-to-number rev))))
(when (< 0 newrev)
(number-to-string newrev))))
(defun vc-svn-next-version (file rev)
(let ((newrev (1+ (string-to-number rev))))
;; The "workfile version" is an uneasy conceptual fit under Subversion;
;; we use it as the upper bound until a better idea comes along. If the
;; workfile version W coincides with the tree's latest revision R, then
;; this check prevents a "no such revision: R+1" error. Otherwise, it
;; inhibits showing of W+1 through R, which could be considered anywhere
;; from gracious to impolite.
(unless (< (string-to-number (vc-file-getprop file 'vc-workfile-version))
newrev)
(number-to-string newrev))))
;;;
;;; State-changing functions