Commit cbbd2cd3 authored by Thien-Thi Nguyen's avatar Thien-Thi Nguyen
Browse files

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

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