From: Markus Rost <rost@math.uni-bielefeld.de>
Date: Tue, 12 Nov 2002 19:51:20 +0000 (+0000)
Subject: (vc-sccs-registered): Handle the autoload cookie so that the
X-Git-Tag: ttn-vms-21-2-B4~12503
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=af65391bb9d38555f30d9a61fd773f6449367d43;p=emacs.git

(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 d20ad6927b9..6c4c68b73c8 100644
--- 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 eddc990a4f4..c5f2d660a79 100644
--- 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."