Mercurial > emacs
changeset 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 | 89a5e481928a |
| children | b33c167de495 |
| files | lisp/ChangeLog lisp/vc-svn.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Nov 14 04:18:53 2005 +0000 +++ b/lisp/ChangeLog Mon Nov 14 04:33:03 2005 +0000 @@ -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>
--- 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)))))