diff options
| author | Karl Heuer | 1997-09-30 07:33:35 +0000 |
|---|---|---|
| committer | Karl Heuer | 1997-09-30 07:33:35 +0000 |
| commit | 274c59c95c6eb90a3eed5adba9c213a8a0e5d9c0 (patch) | |
| tree | 154d4a58ba6a78215b8d77d1b30c7ad5a5204c39 /lisp | |
| parent | 5d2e94381bc29a753fce03a362625c19e3a0d83d (diff) | |
| download | emacs-274c59c95c6eb90a3eed5adba9c213a8a0e5d9c0.tar.gz emacs-274c59c95c6eb90a3eed5adba9c213a8a0e5d9c0.zip | |
(vc-find-cvs-master): Added missing `throw' for
the case when TIMESTAMP is arbitrary text.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/vc-hooks.el | 3 |
1 files changed, 2 insertions, 1 deletions
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." | |||
| 850 | ;; We found it. Store away version number now that we | 850 | ;; We found it. Store away version number now that we |
| 851 | ;; are anyhow so close to finding it. | 851 | ;; are anyhow so close to finding it. |
| 852 | (vc-file-setprop file 'vc-workfile-version (match-string 1)) | 852 | (vc-file-setprop file 'vc-workfile-version (match-string 1)) |
| 853 | (vc-file-setprop file 'vc-checkout-time 0)) | 853 | (vc-file-setprop file 'vc-checkout-time 0) |
| 854 | (throw 'found (cons (concat dirname "CVS/Entries") 'CVS))) | ||
| 854 | (t nil))) | 855 | (t nil))) |
| 855 | (kill-buffer buffer))))) | 856 | (kill-buffer buffer))))) |
| 856 | 857 | ||