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 |