changeset 47227:e7b1564342e2

(vc-workfile-unchanged-p, vc-default-workfile-unchanged-p): Moved to vc-hooks.el.
author André Spiegel <spiegel@gnu.org>
date Wed, 04 Sep 2002 20:47:08 +0000
parents 31f2c4b2c82f
children 0adc8142b529
files lisp/vc.el
diffstat 1 files changed, 1 insertions(+), 16 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/vc.el	Wed Sep 04 20:45:34 2002 +0000
+++ b/lisp/vc.el	Wed Sep 04 20:47:08 2002 +0000
@@ -6,7 +6,7 @@
 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
 ;; Keywords: tools
 
-;; $Id: vc.el,v 1.334 2002/07/19 13:20:02 spiegel Exp $
+;; $Id: vc.el,v 1.335 2002/07/22 18:52:04 spiegel Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -1071,21 +1071,6 @@
 	(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.
 This default implementation always returns non-nil, which means that