Mercurial > emacs
comparison lisp/vc-rcs.el @ 48282:0cae7bc9a8b8
(vc-rcs-registered): Improve comment.
author | André Spiegel <spiegel@gnu.org> |
---|---|
date | Wed, 13 Nov 2002 12:38:20 +0000 |
parents | b05233e8524d |
children | a327c58de610 |
comparison
equal
deleted
inserted
replaced
48281:b8e04fa0ebdf | 48282:0cae7bc9a8b8 |
---|---|
3 ;; Copyright (C) 1992,93,94,95,96,97,98,99,2000,2001 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1992,93,94,95,96,97,98,99,2000,2001 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-rcs.el,v 1.29 2002/10/08 20:23:36 monnier Exp $ | 8 ;; $Id: vc-rcs.el,v 1.30 2002/11/12 19:46:47 rost 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 |
97 | 97 |
98 ;;; | 98 ;;; |
99 ;;; State-querying functions | 99 ;;; State-querying functions |
100 ;;; | 100 ;;; |
101 | 101 |
102 ;;; The definition should be at beginning of line (for Help and etags). | 102 ;;; The autoload cookie below places vc-rcs-registered directly into |
103 ;;;###autoload(defun vc-rcs-registered (f) (vc-default-registered 'RCS f)) | 103 ;;; loaddefs.el, so that vc-rcs.el does not need to be loaded for |
104 ;;; every file that is visited. The definition is repeated below | |
105 ;;; so that Help and etags can find it. | |
106 | |
107 ;;;###autoload (defun vc-rcs-registered (f) (vc-default-registered 'RCS f)) | |
104 (defun vc-rcs-registered (f) (vc-default-registered 'RCS f)) | 108 (defun vc-rcs-registered (f) (vc-default-registered 'RCS f)) |
105 | 109 |
106 (defun vc-rcs-state (file) | 110 (defun vc-rcs-state (file) |
107 "Implementation of `vc-state' for RCS." | 111 "Implementation of `vc-state' for RCS." |
108 (or (boundp 'vc-rcs-headers-result) | 112 (or (boundp 'vc-rcs-headers-result) |