131 |
(condition-case nil |
(condition-case nil |
132 |
(vc-svn-command t 0 file "status" "-v") |
(vc-svn-command t 0 file "status" "-v") |
133 |
;; We can't find an `svn' executable. We could also deregister SVN. |
;; We can't find an `svn' executable. We could also deregister SVN. |
134 |
(file-error nil) |
(file-error nil)) |
135 |
(vc-svn-parse-status t) |
(vc-svn-parse-status t) |
136 |
(eq 'SVN (vc-file-getprop file 'vc-backend))))) |
(eq 'SVN (vc-file-getprop file 'vc-backend))))) |
137 |
|
|
454 |
(diff-switches-list (vc-diff-switches-list 'SVN))) |
(diff-switches-list (vc-diff-switches-list 'SVN))) |
455 |
(apply 'vc-svn-command "*vc-diff*" 1 nil "diff" |
(apply 'vc-svn-command "*vc-diff*" 1 nil "diff" |
456 |
(append |
(append |
457 |
(when oldvers |
(when rev1 |
458 |
(list "-r" |
(list "-r" |
459 |
(if rev2 (concat rev1 ":" rev2) rev1))) |
(if rev2 (concat rev1 ":" rev2) rev1))) |
460 |
(when diff-switches-list |
(when diff-switches-list |