From: Stefan Monnier Date: Mon, 5 May 2008 06:38:04 +0000 (+0000) Subject: (vc-rcs-fetch-master-state): Fix inf-loop. X-Git-Tag: emacs-pretest-23.0.90~5814 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=11a36f646ec2f2e9a479e1d1830de01feda92c2e;p=emacs.git (vc-rcs-fetch-master-state): Fix inf-loop. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0b4bbaa8fda..eea22d639d7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-05-05 Stefan Monnier + + * vc-rcs.el (vc-rcs-fetch-master-state): Fix inf-loop. + 2008-05-05 Tom Tromey * smerge-mode.el (smerge-start-session): Don't call smerge-next if diff --git a/lisp/vc-rcs.el b/lisp/vc-rcs.el index 84cd589d4b7..3d9fe2be463 100644 --- a/lisp/vc-rcs.el +++ b/lisp/vc-rcs.el @@ -893,7 +893,8 @@ file." ;; locked by the calling user ((and (stringp locking-user) (string= locking-user (vc-user-login-name file))) - (if (or (eq (vc-rcs-checkout-model (list file)) 'locking) + ;; Don't call `vc-rcs-checkout-model' to avoid inf-looping. + (if (or (eq (vc-file-getprop file 'vc-checkout-model) 'locking) workfile-is-latest (vc-rcs-latest-on-branch-p file working-revision)) 'edited