Mercurial > emacs

comparison lisp/vc-svn.el @ 66852:820fa0af32c1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-svn-registered): Catch all errors.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 14 Nov 2005 04:33:03 +0000
parents 41bb365f41c4
children 76b136e1750a
comparison
equal deleted inserted replaced
66851:89a5e481928a 66852:820fa0af32c1
114 (file-name-directory file))) 114 (file-name-directory file)))
115 (with-temp-buffer 115 (with-temp-buffer
116 (cd (file-name-directory file)) 116 (cd (file-name-directory file))
117 (condition-case nil 117 (condition-case nil
118 (vc-svn-command t 0 file "status" "-v") 118 (vc-svn-command t 0 file "status" "-v")
119 ;; We can't find an `svn' executable. We could also deregister SVN. 119 ;; Some problem happened. E.g. We can't find an `svn' executable.
120 (file-error nil)) 120 ;; We used to only catch `file-error' but when the process is run on
121 ;; a remote host via Tramp, the error is only reported via the
122 ;; exit status which is turned into an `error' by vc-do-command.
123 (error nil))
121 (vc-svn-parse-status t) 124 (vc-svn-parse-status t)
122 (eq 'SVN (vc-file-getprop file 'vc-backend))))) 125 (eq 'SVN (vc-file-getprop file 'vc-backend)))))
123 126
124 (defun vc-svn-state (file &optional localp) 127 (defun vc-svn-state (file &optional localp)
125 "SVN-specific version of `vc-state'." 128 "SVN-specific version of `vc-state'."