From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 30 Sep 1997 07:33:35 +0000 (+0000)
Subject: (vc-find-cvs-master): Added missing `throw' for
X-Git-Tag: emacs-20.3~3065
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=274c59c95c6eb90a3eed5adba9c213a8a0e5d9c0;p=emacs.git

(vc-find-cvs-master): Added missing `throw' for
the case when TIMESTAMP is arbitrary text.
---

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index c1452e63c05..ce002a68ed8 100644
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -850,7 +850,8 @@ For CVS, the full name of CVS/Entries is returned."
 		;; We found it.  Store away version number now that we 
 		;; are anyhow so close to finding it.
 		(vc-file-setprop file 'vc-workfile-version (match-string 1))
-                (vc-file-setprop file 'vc-checkout-time 0))
+		(vc-file-setprop file 'vc-checkout-time 0)
+		(throw 'found (cons (concat dirname "CVS/Entries") 'CVS)))
 	       (t nil)))
 	  (kill-buffer buffer)))))