diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-05-05 06:38:04 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-05-05 06:38:04 +0000 |
| commit | 11a36f646ec2f2e9a479e1d1830de01feda92c2e (patch) | |
| tree | ad5e77a59a1eef93da84dde769089863ccbe2e2d /lisp/vc-rcs.el | |
| parent | 8653eee82efbe2b3b14f671f3f991c356c2a5065 (diff) | |
| download | emacs-11a36f646ec2f2e9a479e1d1830de01feda92c2e.tar.gz emacs-11a36f646ec2f2e9a479e1d1830de01feda92c2e.tar.bz2 emacs-11a36f646ec2f2e9a479e1d1830de01feda92c2e.zip | |
(vc-rcs-fetch-master-state): Fix inf-loop.
Diffstat (limited to 'lisp/vc-rcs.el')
| -rw-r--r-- | lisp/vc-rcs.el | 3 |
1 files changed, 2 insertions, 1 deletions
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 |