Commit df4da7f4 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(vc-svn-registered): Use it to avoid popping up a spurious

frame in case of errors.
parent 11c89a07
2005-12-13 Stefan Monnier <monnier@iro.umontreal.ca>
* vc.el (vc-do-command): Add a new value t for okstatus.
* vc-svn.el (vc-svn-registered): Use it to avoid popping up a spurious
frame in case of errors.
2005-12-13 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
 
* menu-bar.el (menu-bar-showhide-fringe-menu): Moved "On the Right"
* menu-bar.el (menu-bar-showhide-fringe-menu): Move "On the Right"
so it comes after "On the Left" in the menu.
 
2005-12-12 Luc Teirlinck <teirllm@auburn.edu>
......@@ -41,7 +48,7 @@
 
2005-12-12 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
 
* tooltip.el (tooltip-y-offset): Changed default to 20.
* tooltip.el (tooltip-y-offset): Change default to 20.
 
2005-12-12 Richard M. Stallman <rms@gnu.org>
 
......
......@@ -114,20 +114,19 @@ This is only meaningful if you don't use the implicit checkout model
(file-name-directory file)))
(with-temp-buffer
(cd (file-name-directory file))
(let ((status
(condition-case nil
;; Save configuration since vc-do-command calls pop-to-buffer on
;; error (such as visiting a Subversion-controlled file that you
;; don't have permission to edit). This causes later problems
;; during registration.
(save-window-excursion
(vc-svn-command t 0 file "status" "-v"))
;; 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))
;; Ignore all errors.
(vc-svn-command t t file "status" "-v")
;; 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))))
(when (eq 0 status)
(vc-svn-parse-status t)
(eq 'SVN (vc-file-getprop file 'vc-backend)))))
(eq 'SVN (vc-file-getprop file 'vc-backend)))))))
(defun vc-svn-state (file &optional localp)
"SVN-specific version of `vc-state'."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment