(vc-svn-registered): Catch all errors.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1439ff2285a..d7a015043f2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2005-11-13  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+        * vc-svn.el (vc-svn-registered): Catch all errors.
+
         * cus-dep.el (custom-make-dependencies): Typo.
 
 2005-11-13  Michael Albinus  <michael.albinus@gmx.de>
diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el
index de34fa847e2..8480d61c843 100644
--- a/lisp/vc-svn.el
+++ b/lisp/vc-svn.el
@@ -116,8 +116,11 @@ This is only meaningful if you don't use the implicit checkout model
       (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)))))