[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/vc-rcs.el
From: |
Andre Spiegel |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/vc-rcs.el |
Date: |
Sat, 20 Jul 2002 13:29:58 -0400 |
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)