From: Stefan Monnier Date: Mon, 14 Nov 2005 04:33:03 +0000 (+0000) Subject: (vc-svn-registered): Catch all errors. X-Git-Tag: emacs-pretest-22.0.90~5918 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1508b91a6c2b6b696849e80d80a7bc8f5fcee266;p=emacs.git (vc-svn-registered): Catch all errors. --- 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)))))