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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1439ff2285a545a2a8288d182eed4527ef15ce2b..d7a015043f203fe333d8960989dbccd3714893eb 100644 (file)
--- 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 de34fa847e250479fe9b8a35548996062211e883..8480d61c843b376ea00e1b6c32144b203a0ae29c 100644 (file)
--- 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)))))