116 |
(cd (file-name-directory file)) |
(cd (file-name-directory file)) |
117 |
(condition-case nil |
(condition-case nil |
118 |
(vc-svn-command t 0 file "status" "-v") |
(vc-svn-command t 0 file "status" "-v") |
119 |
;; We can't find an `svn' executable. We could also deregister SVN. |
;; Some problem happened. E.g. We can't find an `svn' executable. |
120 |
(file-error nil)) |
;; We used to only catch `file-error' but when the process is run on |
121 |
|
;; a remote host via Tramp, the error is only reported via the |
122 |
|
;; exit status which is turned into an `error' by vc-do-command. |
123 |
|
(error nil)) |
124 |
(vc-svn-parse-status t) |
(vc-svn-parse-status t) |
125 |
(eq 'SVN (vc-file-getprop file 'vc-backend))))) |
(eq 'SVN (vc-file-getprop file 'vc-backend))))) |
126 |
|
|