(vc-sccs-registered): Handle the autoload cookie so that the

definition is found by `find-function-search-for-symbol' and etags.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d20ad6927b9b46d0bf7a10fc38308b714dbac335..6c4c68b73c8e0d00e2e11515e98ec84bc9adda32 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 2002-11-12   Markus Rost  <rost@math.ohio-state.edu>
 
+       * vc-rcs.el (vc-rcs-registered): Handle the autoload cookie so
+       that the definition is found by `find-function-search-for-symbol'
+       and etags.
+
+       * vc-sccs.el (vc-sccs-registered): Ditto.
+
        * emulation/edt.el (defgroup edt): Arrange that definition starts
        at beginning of line.
 

diff --git a/lisp/vc-sccs.el b/lisp/vc-sccs.el
index eddc990a4f4b345048fa4d0c859bccd1e212850a..c5f2d660a790a6bfd0391371f1512b49938c4019 100644 (file)
--- a/lisp/vc-sccs.el
+++ b/lisp/vc-sccs.el
@@ -5,7 +5,7 @@
 ;; Author:     FSF (see vc.el for full credits)
 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
 
-;; $Id: vc-sccs.el,v 1.16 2002/10/08 15:35:03 monnier Exp $
+;; $Id: vc-sccs.el,v 1.17 2002/10/08 20:24:21 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -88,8 +88,9 @@ For a description of possible values, see `vc-check-master-templates'."
 ;;; State-querying functions
 ;;;
 
-;;;###autoload
-(progn (defun vc-sccs-registered (f) (vc-default-registered 'SCCS f)))
+;;; The definition should be at beginning of line (for Help and etags).
+;;;###autoload(defun vc-sccs-registered (f) (vc-default-registered 'SCCS f))
+(defun vc-sccs-registered (f) (vc-default-registered 'SCCS f))
 
 (defun vc-sccs-state (file)
   "SCCS-specific function to compute the version control state."