diff options
| author | Stefan Monnier | 2004-09-07 04:48:04 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2004-09-07 04:48:04 +0000 |
| commit | fa63cb6d0b273629f893abef60ff7eb17100faf5 (patch) | |
| tree | ae224b15f97090ea69d2506a41d8272553080817 | |
| parent | 0452b6e74515f3251607833a67e0d21727f78b11 (diff) | |
| download | emacs-fa63cb6d0b273629f893abef60ff7eb17100faf5.tar.gz emacs-fa63cb6d0b273629f893abef60ff7eb17100faf5.zip | |
Doc fix.
| -rw-r--r-- | lisp/vc-rcs.el | 9 | ||||
| -rw-r--r-- | lisp/vc-sccs.el | 9 |
2 files changed, 10 insertions, 8 deletions
diff --git a/lisp/vc-rcs.el b/lisp/vc-rcs.el index ca2958756a4..0a161bb9288 100644 --- a/lisp/vc-rcs.el +++ b/lisp/vc-rcs.el | |||
| @@ -1,11 +1,12 @@ | |||
| 1 | ;;; vc-rcs.el --- support for RCS version-control | 1 | ;;; vc-rcs.el --- support for RCS version-control |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1992,93,94,95,96,97,98,99,2000,2001 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, |
| 4 | ;; 2000, 2001, 2004 Free Software Foundation, Inc. | ||
| 4 | 5 | ||
| 5 | ;; Author: FSF (see vc.el for full credits) | 6 | ;; Author: FSF (see vc.el for full credits) |
| 6 | ;; Maintainer: Andre Spiegel <spiegel@gnu.org> | 7 | ;; Maintainer: Andre Spiegel <spiegel@gnu.org> |
| 7 | 8 | ||
| 8 | ;; $Id: vc-rcs.el,v 1.39 2004/03/21 15:46:23 spiegel Exp $ | 9 | ;; $Id$ |
| 9 | 10 | ||
| 10 | ;; This file is part of GNU Emacs. | 11 | ;; This file is part of GNU Emacs. |
| 11 | 12 | ||
| @@ -208,7 +209,7 @@ When VERSION is given, perform check for that version." | |||
| 208 | (vc-file-getprop file 'vc-checkout-model))))) | 209 | (vc-file-getprop file 'vc-checkout-model))))) |
| 209 | 210 | ||
| 210 | (defun vc-rcs-workfile-unchanged-p (file) | 211 | (defun vc-rcs-workfile-unchanged-p (file) |
| 211 | "RCS-specific implementation of vc-workfile-unchanged-p." | 212 | "RCS-specific implementation of `vc-workfile-unchanged-p'." |
| 212 | ;; Try to use rcsdiff --brief. If rcsdiff does not understand that, | 213 | ;; Try to use rcsdiff --brief. If rcsdiff does not understand that, |
| 213 | ;; do a double take and remember the fact for the future | 214 | ;; do a double take and remember the fact for the future |
| 214 | (let* ((version (concat "-r" (vc-workfile-version file))) | 215 | (let* ((version (concat "-r" (vc-workfile-version file))) |
| @@ -786,5 +787,5 @@ variable `vc-rcs-release' is set to the returned value." | |||
| 786 | 787 | ||
| 787 | (provide 'vc-rcs) | 788 | (provide 'vc-rcs) |
| 788 | 789 | ||
| 789 | ;;; arch-tag: 759b4916-5b0d-431d-b647-b185b8c652cf | 790 | ;; arch-tag: 759b4916-5b0d-431d-b647-b185b8c652cf |
| 790 | ;;; vc-rcs.el ends here | 791 | ;;; vc-rcs.el ends here |
diff --git a/lisp/vc-sccs.el b/lisp/vc-sccs.el index 1649349e0bd..b691775f63b 100644 --- a/lisp/vc-sccs.el +++ b/lisp/vc-sccs.el | |||
| @@ -1,11 +1,12 @@ | |||
| 1 | ;;; vc-sccs.el --- support for SCCS version-control | 1 | ;;; vc-sccs.el --- support for SCCS version-control |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1992,93,94,95,96,97,98,99,2000,2001 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, |
| 4 | ;; 2000, 2001, 2004 Free Software Foundation, Inc. | ||
| 4 | 5 | ||
| 5 | ;; Author: FSF (see vc.el for full credits) | 6 | ;; Author: FSF (see vc.el for full credits) |
| 6 | ;; Maintainer: Andre Spiegel <spiegel@gnu.org> | 7 | ;; Maintainer: Andre Spiegel <spiegel@gnu.org> |
| 7 | 8 | ||
| 8 | ;; $Id: vc-sccs.el,v 1.24 2003/09/01 15:45:17 miles Exp $ | 9 | ;; $Id$ |
| 9 | 10 | ||
| 10 | ;; This file is part of GNU Emacs. | 11 | ;; This file is part of GNU Emacs. |
| 11 | 12 | ||
| @@ -150,7 +151,7 @@ For a description of possible values, see `vc-check-master-templates'." | |||
| 150 | 'locking) | 151 | 'locking) |
| 151 | 152 | ||
| 152 | (defun vc-sccs-workfile-unchanged-p (file) | 153 | (defun vc-sccs-workfile-unchanged-p (file) |
| 153 | "SCCS-specific implementation of vc-workfile-unchanged-p." | 154 | "SCCS-specific implementation of `vc-workfile-unchanged-p'." |
| 154 | (zerop (apply 'vc-do-command nil 1 "vcdiff" (vc-name file) | 155 | (zerop (apply 'vc-do-command nil 1 "vcdiff" (vc-name file) |
| 155 | (list "--brief" "-q" | 156 | (list "--brief" "-q" |
| 156 | (concat "-r" (vc-workfile-version file)))))) | 157 | (concat "-r" (vc-workfile-version file)))))) |
| @@ -397,5 +398,5 @@ If NAME is nil or a version number string it's just passed through." | |||
| 397 | 398 | ||
| 398 | (provide 'vc-sccs) | 399 | (provide 'vc-sccs) |
| 399 | 400 | ||
| 400 | ;;; arch-tag: d751dee3-d7b3-47e1-95e3-7ae98c052041 | 401 | ;; arch-tag: d751dee3-d7b3-47e1-95e3-7ae98c052041 |
| 401 | ;;; vc-sccs.el ends here | 402 | ;;; vc-sccs.el ends here |