From 1508b91a6c2b6b696849e80d80a7bc8f5fcee266 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 14 Nov 2005 04:33:03 +0000 Subject: [PATCH] (vc-svn-registered): Catch all errors. --- lisp/ChangeLog | 2 ++ lisp/vc-svn.el | 7 +++++-- 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 + * vc-svn.el (vc-svn-registered): Catch all errors. + * cus-dep.el (custom-make-dependencies): Typo. 2005-11-13 Michael Albinus 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))))) -- 2.11.4.GIT