Mercurial > emacs
comparison lisp/vc-svn.el @ 93124:97c5b398eee4
* vc-hooks.el (vc-default-mode-line-string): Add case for added files.
* vc.el (vc-default-dired-state-info): Use just "modified".
* vc-cvs.el (vc-cvs-state-heuristic): Turn rev 0 into `added'.
(vc-cvs-mode-line-string): Make use of the better default.
(vc-cvs-parse-entry): Use the new `added'.
(vc-cvs-dired-state-info): Remove.
* vc-svn.el (vc-svn-dired-state-info): Remove.
* vc-hg.el (vc-hg-dired-state-info): Remove.
* vc-git.el (vc-git-dired-state-info): Remove.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Fri, 21 Mar 2008 17:53:04 +0000 |
parents | 4ffd887822d7 |
children | 8e46096e0cb3 |
comparison
equal
deleted
inserted
replaced
93123:38f18130d057 | 93124:97c5b398eee4 |
---|---|
202 ;; It looks like Subversion has no equivalent of CVSREAD. | 202 ;; It looks like Subversion has no equivalent of CVSREAD. |
203 'implicit) | 203 'implicit) |
204 | 204 |
205 ;; vc-svn-mode-line-string doesn't exist because the default implementation | 205 ;; vc-svn-mode-line-string doesn't exist because the default implementation |
206 ;; works just fine. | 206 ;; works just fine. |
207 | |
208 (defun vc-svn-dired-state-info (file) | |
209 "SVN-specific version of `vc-dired-state-info'." | |
210 (let ((svn-state (vc-state file))) | |
211 (cond ((eq svn-state 'edited) | |
212 (if (equal (vc-working-revision file) "0") | |
213 "(added)" "(modified)")) | |
214 (t | |
215 ;; fall back to the default VC representation | |
216 (vc-default-dired-state-info 'SVN file))))) | |
217 | |
218 | 207 |
219 (defun vc-svn-previous-revision (file rev) | 208 (defun vc-svn-previous-revision (file rev) |
220 (let ((newrev (1- (string-to-number rev)))) | 209 (let ((newrev (1- (string-to-number rev)))) |
221 (when (< 0 newrev) | 210 (when (< 0 newrev) |
222 (number-to-string newrev)))) | 211 (number-to-string newrev)))) |