Mercurial > emacs

comparison lisp/vc-rcs.el @ 100183:0cc235691369

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-rcs-diff-switches): Doc fix. Add t as option.
author Glenn Morris <rgm@gnu.org>
date Wed, 03 Dec 2008 07:39:20 +0000
parents d42aff5ca541
children 30afce094fe2
comparison
equal deleted inserted replaced
100182:880b72ca5f06 100183:0cc235691369
1 ;;; vc-rcs.el --- support for RCS version-control 1 ;;; vc-rcs.el --- support for RCS version-control
2 2
3 ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 3 ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
4 ;; 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. 4 ;; 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
5 ;; Free Software Foundation, Inc.
5 6
6 ;; Author: FSF (see vc.el for full credits) 7 ;; Author: FSF (see vc.el for full credits)
7 ;; Maintainer: Andre Spiegel <spiegel@gnu.org> 8 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
8
9 ;; $Id$
10 9
11 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
12 11
13 ;; 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
14 ;; 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
56 string)) 55 string))
57 :version "21.1" 56 :version "21.1"
58 :group 'vc) 57 :group 'vc)
59 58
60 (defcustom vc-rcs-diff-switches nil 59 (defcustom vc-rcs-diff-switches nil
61 "A string or list of strings specifying extra switches for rcsdiff under VC." 60 "String or list of strings specifying switches for RCS diff under VC.
62 :type '(choice (const :tag "None" nil) 61 If nil, use the value of `vc-diff-switches'. If t, use no switches."
62 :type '(choice (const :tag "Unspecified" nil)
63 (const :tag "None" t)
63 (string :tag "Argument String") 64 (string :tag "Argument String")
64 (repeat :tag "Argument List" 65 (repeat :tag "Argument List" :value ("") string))
65 :value ("")
66 string))
67 :version "21.1" 66 :version "21.1"
68 :group 'vc) 67 :group 'vc)
69 68
70 (defcustom vc-rcs-header (or (cdr (assoc 'RCS vc-header-alist)) '("\$Id\$")) 69 (defcustom vc-rcs-header (or (cdr (assoc 'RCS vc-header-alist)) '("\$Id\$"))
71 "Header keywords to be inserted by `vc-insert-headers'." 70 "Header keywords to be inserted by `vc-insert-headers'."
264 (defun vc-rcs-create-repo () 263 (defun vc-rcs-create-repo ()
265 "Create a new RCS repository." 264 "Create a new RCS repository."
266 ;; RCS is totally file-oriented, so all we have to do is make the directory 265 ;; RCS is totally file-oriented, so all we have to do is make the directory
267 (make-directory "RCS")) 266 (make-directory "RCS"))
268 267
268 ;; FIXME doc is wrong re switches.
269 (defun vc-rcs-register (files &optional rev comment) 269 (defun vc-rcs-register (files &optional rev comment)
270 "Register FILES into the RCS version-control system. 270 "Register FILES into the RCS version-control system.
271 REV is the optional revision number for the files. COMMENT can be used 271 REV is the optional revision number for the files. COMMENT can be used
272 to provide an initial description for each FILES. 272 to provide an initial description for each FILES.
273 273