[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/vc.el
From: |
Andre Spiegel |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/vc.el |
Date: |
Wed, 04 Sep 2002 16:47:08 -0400 |
Index: emacs/lisp/vc.el
diff -c emacs/lisp/vc.el:1.335 emacs/lisp/vc.el:1.336
*** emacs/lisp/vc.el:1.335 Mon Jul 22 14:52:04 2002
--- emacs/lisp/vc.el Wed Sep 4 16:47:08 2002
***************
*** 6,12 ****
;; Maintainer: Andre Spiegel <address@hidden>
;; Keywords: tools
! ;; $Id: vc.el,v 1.335 2002/07/22 18:52:04 spiegel Exp $
;; This file is part of GNU Emacs.
--- 6,12 ----
;; Maintainer: Andre Spiegel <address@hidden>
;; Keywords: tools
! ;; $Id: vc.el,v 1.336 2002/09/04 20:47:08 spiegel Exp $
;; This file is part of GNU Emacs.
***************
*** 1070,1090 ****
(save-buffer)
(unless not-urgent
(error "Aborted")))))
-
- (defun vc-workfile-unchanged-p (file)
- "Return non-nil if FILE has not changed since the last checkout."
- (let ((checkout-time (vc-file-getprop file 'vc-checkout-time))
- (lastmod (nth 5 (file-attributes file))))
- (if checkout-time
- (equal checkout-time lastmod)
- (let ((unchanged (vc-call workfile-unchanged-p file)))
- (vc-file-setprop file 'vc-checkout-time (if unchanged lastmod 0))
- unchanged))))
-
- (defun vc-default-workfile-unchanged-p (backend file)
- "Check if FILE is unchanged by diffing against the master version.
- Return non-nil if FILE is unchanged."
- (zerop (vc-call diff file (vc-workfile-version file))))
(defun vc-default-latest-on-branch-p (backend file)
"Return non-nil if FILE is the latest on its branch.
--- 1070,1075 ----
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/vc.el,
Andre Spiegel <=