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

[Andre Spiegel]

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 ----