/[emacs]/emacs/lisp/vc.el
ViewVC logotype

Diff of /emacs/lisp/vc.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.335 by spiegel, Mon Jul 22 18:52:04 2002 UTC revision 1.336 by spiegel, Wed Sep 4 20:47:08 2002 UTC
# Line 1071  NOT-URGENT means it is ok to continue if Line 1071  NOT-URGENT means it is ok to continue if
1071          (unless not-urgent          (unless not-urgent
1072            (error "Aborted")))))            (error "Aborted")))))
1073    
 (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))))  
   
1074  (defun vc-default-latest-on-branch-p (backend file)  (defun vc-default-latest-on-branch-p (backend file)
1075    "Return non-nil if FILE is the latest on its branch.    "Return non-nil if FILE is the latest on its branch.
1076  This default implementation always returns non-nil, which means that  This default implementation always returns non-nil, which means that

Legend:
Removed from v.1.335  
changed lines
  Added in v.1.336

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26