diff options
| author | André Spiegel | 2001-02-26 13:45:06 +0000 |
|---|---|---|
| committer | André Spiegel | 2001-02-26 13:45:06 +0000 |
| commit | 336203a282caaeb78e43b579695cc9a9be79e11a (patch) | |
| tree | a5cd5693402f8dbdb26cbe14752f85eeffb9f651 | |
| parent | c596c392c82ad7b99f6263e2ef9c7ef913addb77 (diff) | |
| download | emacs-336203a282caaeb78e43b579695cc9a9be79e11a.tar.gz emacs-336203a282caaeb78e43b579695cc9a9be79e11a.zip | |
(vc-default-workfile-unchanged-p, vc-default-latest-on-branch-p): Add
missing BACKEND argument.
| -rw-r--r-- | lisp/vc.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index df1c4454606..b8240e1fac8 100644 --- a/lisp/vc.el +++ b/lisp/vc.el | |||
| @@ -5,7 +5,7 @@ | |||
| 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 | ||
| @@ -1025,11 +1025,11 @@ NOT-URGENT means it is ok to continue if the user says not to save." | |||
| 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) |