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