diff lisp/vc-svn.el @ 66852:820fa0af32c1

(vc-svn-registered): Catch all errors.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 14 Nov 2005 04:33:03 +0000
parents 41bb365f41c4
children 76b136e1750a
line wrap: on
line diff
--- a/lisp/vc-svn.el	Mon Nov 14 04:18:53 2005 +0000
+++ b/lisp/vc-svn.el	Mon Nov 14 04:33:03 2005 +0000
@@ -116,8 +116,11 @@
       (cd (file-name-directory file))
       (condition-case nil
 	  (vc-svn-command t 0 file "status" "-v")
-	;; We can't find an `svn' executable.  We could also deregister SVN.
-	(file-error nil))
+	;; Some problem happened.  E.g. We can't find an `svn' executable.
+        ;; We used to only catch `file-error' but when the process is run on
+        ;; a remote host via Tramp, the error is only reported via the
+        ;; exit status which is turned into an `error' by vc-do-command.
+	(error nil))
       (vc-svn-parse-status t)
       (eq 'SVN (vc-file-getprop file 'vc-backend)))))