[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/vc-rcs.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/vc-rcs.el [lexbind] |
Date: |
Tue, 06 Jul 2004 06:57:33 -0400 |
Index: emacs/lisp/vc-rcs.el
diff -c emacs/lisp/vc-rcs.el:1.24.2.3 emacs/lisp/vc-rcs.el:1.24.2.4
*** emacs/lisp/vc-rcs.el:1.24.2.3 Thu Apr 1 04:29:02 2004
--- emacs/lisp/vc-rcs.el Tue Jul 6 10:26:54 2004
***************
*** 5,11 ****
;; Author: FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <address@hidden>
! ;; $Id: vc-rcs.el,v 1.24.2.3 2004/04/01 04:29:02 miles 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.24.2.4 2004/07/06 10:26:54 miles Exp $
;; This file is part of GNU Emacs.
***************
*** 198,207 ****
(defun vc-rcs-checkout-model (file)
"RCS-specific version of `vc-checkout-model'."
! (vc-rcs-consult-headers file)
! (or (vc-file-getprop file 'vc-checkout-model)
! (progn (vc-rcs-fetch-master-state file)
! (vc-file-getprop file 'vc-checkout-model))))
(defun vc-rcs-workfile-unchanged-p (file)
"RCS-specific implementation of vc-workfile-unchanged-p."
--- 198,211 ----
(defun vc-rcs-checkout-model (file)
"RCS-specific version of `vc-checkout-model'."
! (let (result)
! (when vc-consult-headers
! (vc-file-setprop file 'vc-checkout-model nil)
! (vc-rcs-consult-headers file)
! (setq result (vc-file-getprop file 'vc-checkout-model)))
! (or result
! (progn (vc-rcs-fetch-master-state file)
! (vc-file-getprop file 'vc-checkout-model)))))
(defun vc-rcs-workfile-unchanged-p (file)
"RCS-specific implementation of vc-workfile-unchanged-p."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/vc-rcs.el [lexbind],
Miles Bader <=