Mercurial > emacs
comparison lisp/vc-hooks.el @ 41956:48dc7989392b
(vc-default-make-version-backups-p): Doc fix.
author | Pavel Janík <Pavel@Janik.cz> |
---|---|
date | Tue, 11 Dec 2001 07:35:18 +0000 |
parents | 19448ae09fc0 |
children | ddb97861a688 |
comparison
equal
deleted
inserted
replaced
41955:241e553840f9 | 41956:48dc7989392b |
---|---|
3 ;; Copyright (C) 1992,93,94,95,96,98,99,2000 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1992,93,94,95,96,98,99,2000 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: FSF (see vc.el for full credits) | 5 ;; Author: FSF (see vc.el for full credits) |
6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org> | 6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org> |
7 | 7 |
8 ;; $Id: vc-hooks.el,v 1.134 2001/09/24 16:36:14 monnier Exp $ | 8 ;; $Id: vc-hooks.el,v 1.135 2001/11/09 14:58:21 spiegel 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 |
461 (vc-next-action verbose) | 461 (vc-next-action verbose) |
462 (toggle-read-only))) | 462 (toggle-read-only))) |
463 (define-key global-map "\C-x\C-q" 'vc-toggle-read-only) | 463 (define-key global-map "\C-x\C-q" 'vc-toggle-read-only) |
464 | 464 |
465 (defun vc-default-make-version-backups-p (backend file) | 465 (defun vc-default-make-version-backups-p (backend file) |
466 "Return non-nil if unmodified repository versions should | 466 "Return non-nil if unmodified repository versions should be backed up locally. |
467 be backed up locally. The default is to switch off this feature." | 467 The default is to switch off this feature." |
468 nil) | 468 nil) |
469 | 469 |
470 (defun vc-version-backup-file-name (file &optional rev manual regexp) | 470 (defun vc-version-backup-file-name (file &optional rev manual regexp) |
471 "Return a backup file name for REV or the current version of FILE. | 471 "Return a backup file name for REV or the current version of FILE. |
472 If MANUAL is non-nil it means that a name for backups created by | 472 If MANUAL is non-nil it means that a name for backups created by |