Mercurial > emacs

comparison lisp/vc.el @ 36395:20a768ca0cf8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-default-workfile-unchanged-p, vc-default-latest-on-branch-p): Add missing BACKEND argument.
author André Spiegel <spiegel@gnu.org>
date Mon, 26 Feb 2001 13:45:06 +0000
parents 037d66685778
children 66e9d0506b71
comparison
equal deleted inserted replaced
36394:a03841f1cfa3 36395:20a768ca0cf8
3 ;; Copyright (C) 1992,93,94,95,96,97,98,2000,2001 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992,93,94,95,96,97,98,2000,2001 Free Software Foundation, Inc.
4 4
5 ;; Author: FSF (see below for full credits) 5 ;; Author: FSF (see below for full credits)
6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org> 6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
7 7
8 ;; $Id: vc.el,v 1.295 2001/02/01 15:08:49 spiegel Exp $ 8 ;; $Id: vc.el,v 1.296 2001/02/01 17:41:06 fx Exp $
9 9
10 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
11 11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by 13 ;; it under the terms of the GNU General Public License as published by
1023 (equal checkout-time lastmod) 1023 (equal checkout-time lastmod)
1024 (let ((unchanged (vc-call workfile-unchanged-p file))) 1024 (let ((unchanged (vc-call workfile-unchanged-p file)))
1025 (vc-file-setprop file 'vc-checkout-time (if unchanged lastmod 0)) 1025 (vc-file-setprop file 'vc-checkout-time (if unchanged lastmod 0))
1026 unchanged)))) 1026 unchanged))))
1027 1027
1028 (defun vc-default-workfile-unchanged-p (file) 1028 (defun vc-default-workfile-unchanged-p (backend file)
1029 "Default check whether FILE is unchanged: diff against master version." 1029 "Default check whether FILE is unchanged: diff against master version."
1030 (zerop (vc-call diff file (vc-workfile-version file)))) 1030 (zerop (vc-call diff file (vc-workfile-version file))))
1031 1031
1032 (defun vc-default-latest-on-branch-p (file) 1032 (defun vc-default-latest-on-branch-p (backend file)
1033 "Default check whether the current workfile version of FILE is the 1033 "Default check whether the current workfile version of FILE is the
1034 latest on its branch." 1034 latest on its branch."
1035 t) 1035 t)
1036 1036
1037 (defun vc-recompute-state (file) 1037 (defun vc-recompute-state (file)