[Emacs-diffs] Changes to emacs/lisp/vc-rcs.el

[Andre Spiegel]

Index: emacs/lisp/vc-rcs.el
diff -c emacs/lisp/vc-rcs.el:1.24 emacs/lisp/vc-rcs.el:1.25
*** emacs/lisp/vc-rcs.el:1.24   Mon Mar 18 12:17:38 2002
--- emacs/lisp/vc-rcs.el        Fri Jul 19 09:27:44 2002
***************
*** 5,11 ****
  ;; Author:     FSF (see vc.el for full credits)
  ;; Maintainer: Andre Spiegel <address@hidden>
  
! ;; $Id: vc-rcs.el,v 1.24 2002/03/18 17:17:38 spiegel Exp $
  
  ;; This file is part of GNU Emacs.
  
--- 5,11 ----
  ;; Author:     FSF (see vc.el for full credits)
  ;; Maintainer: Andre Spiegel <address@hidden>
  
! ;; $Id: vc-rcs.el,v 1.25 2002/07/19 13:27:44 spiegel Exp $
  
  ;; This file is part of GNU Emacs.
  
***************
*** 605,611 ****
  `vc-checkout-model' to their correct values, based on the master
  file."
    (with-temp-buffer
!     (vc-insert-file (vc-name file) "^[0-9]")
      (let ((workfile-is-latest nil)
          (default-branch (vc-parse-buffer "^branch[ \t\n]+\\([^;]*\\);" 1)))
        (vc-file-setprop file 'vc-rcs-default-branch default-branch)
--- 605,614 ----
  `vc-checkout-model' to their correct values, based on the master
  file."
    (with-temp-buffer
!     (if (or (not (vc-insert-file (vc-name file) "^[0-9]"))
!             (progn (goto-char (point-min))
!                    (not (looking-at "^head[ \t\n]+[^;]+;$"))))
!         (error "File %s is not an RCS master file" (vc-name file)))
      (let ((workfile-is-latest nil)
          (default-branch (vc-parse-buffer "^branch[ \t\n]+\\([^;]*\\);" 1)))
        (vc-file-setprop file 'vc-rcs-default-branch default-branch)