Commit a7cafade authored by Dave Love's avatar Dave Love
Browse files

Doc fixes.

(vc-sccs-register-switches, vc-sccs-master-templates): Add
:version.
parent 33c1b7a1
......@@ -7,6 +7,19 @@
2000-09-07 Dave Love <fx@gnu.org>
* vc-sccs.el: Doc fixes.
(vc-sccs-register-switches, vc-sccs-master-templates): Add
:version.
* vc-rcs.el: Doc fixes.
(vc-rcs-register-switches, vc-rcs-checkin-switches)
(vc-rcs-checkout-switches, vc-rcs-header)
(vc-rcs-master-templates): Add or change :version.
* vc-cvs.el: DOc fixes.
(vc-cvs-register-switches, vc-cvs-header, vc-cvs-use-edit)
(vc-cvs-stay-local): Add :version.
* menu-bar.el (menu-bar-options-menu): Fix the font-lock toggle.
2000-09-07 Kenichi Handa <handa@etl.go.jp>
......
......@@ -5,7 +5,7 @@
;; Author: FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <spiegel@gnu.org>
;; $Id: vc-sccs.el,v 1.1 2000/09/04 19:48:23 gerd Exp $
;; $Id: vc-sccs.el,v 1.2 2000/09/05 20:08:22 monnier Exp $
;; This file is part of GNU Emacs.
......@@ -29,14 +29,15 @@
;;; Code:
(defcustom vc-sccs-register-switches nil
"*A string or list of strings; extra switches for registering a file
in |SCCS. These are passed to the checkin program by
"*Extra switches for registering a file in SCCS.
A string or list of strings passed to the checkin program by
\\[vc-sccs-register]."
:type '(choice (const :tag "None" nil)
(string :tag "Argument String")
(repeat :tag "Argument List"
:value ("")
string))
:version "21.1"
:group 'vc)
(defcustom vc-sccs-header (or (cdr (assoc 'SCCS vc-header-alist)) '("%W%"))
......@@ -54,7 +55,7 @@ For a description of possible values, see `vc-check-master-templates'."
(repeat :tag "User-specified"
(choice string
function)))
:version "20.5"
:version "21.1"
:group 'vc)
(defconst vc-sccs-name-assoc-file "VC-names")
......@@ -255,8 +256,7 @@ WRITABLE non-nil means previous version should be locked."
(vc-do-command nil 0 "get" (vc-name file)))))
(defun vc-sccs-latest-on-branch-p (file)
"Return t iff the current workfile version of FILE is the latest on
its branch."
"Return t iff the current workfile version of FILE is latest on its branch."
;; Always return t; we do not support previous versions in the workfile
;; under SCCS.
t)
......@@ -323,9 +323,9 @@ expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile."
(vc-do-command nil 0 "get" (vc-name file)))))
(defun vc-sccs-checkout (file &optional writable rev workfile)
"Retrieve a copy of a saved version of an SCCS controlled FILE into
a WORKFILE. WRITABLE non-nil means that the file should be writable.
REV is the revision to check out into WORKFILE."
"Retrieve a copy of a saved version of SCCS controlled FILE into a WORKFILE.
WRITABLE non-nil means that the file should be writable. REV is the
revision to check out into WORKFILE."
(let ((filename (or workfile file))
(file-buffer (get-file-buffer file))
switches)
......@@ -381,7 +381,7 @@ REV is the revision to check out into WORKFILE."
(message "Checking out %s...done" filename)))
(defun vc-sccs-update-changelog (files)
(error "Sorry, generating ChangeLog entries is not implemented for SCCS."))
(error "Sorry, generating ChangeLog entries is not implemented for SCCS"))
(provide 'vc-sccs)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment