mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Require vc.el at compile-time.

Browse source 
(vc-workfile-unchanged-p, vc-default-workfile-unchanged-p): Moved
here from vc.el.
This commit is contained in:
André Spiegel 2002-09-04 20:45:34 +00:00
parent d0e28141ba
commit e767004f7a
1 changed files with 17 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lisp/vc-hooks.el
View file

@ -5,7 +5,7 @@
;; Author: FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <spiegel@gnu.org>
;; $Id: vc-hooks.el,v 1.142 2002/07/29 02:40:40 rms Exp $
;; $Id: vc-hooks.el,v 1.143 2002/08/23 13:23:14 spiegel Exp $
;; This file is part of GNU Emacs.
@ -34,6 +34,7 @@
;;; Code:
(eval-when-compile
(require 'vc)
(require 'cl))
;; Customization Variables (the rest is in vc.el)
@ -382,6 +383,21 @@ It simply calls the real state computation function `vc-BACKEND-state'
and does not employ any heuristic at all."
(vc-call-backend backend 'state file))
(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-workfile-version (file)
"Return the version level of the current workfile FILE.
If FILE is not registered, this function always returns nil."
@ -390,8 +406,6 @@ If FILE is not registered, this function always returns nil."
(vc-file-setprop file 'vc-workfile-version
(vc-call workfile-version file)))))
;;; actual version-control code starts here
(defun vc-default-registered (backend file)
"Check if FILE is registered in BACKEND using vc-BACKEND-master-templates."
(let ((sym (vc-make-backend-sym backend 'master-templates)))