From 7bd302ebcb9562d98abc1c6c63f42967fc46007e Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 29 Sep 2012 16:21:57 -0700 Subject: [PATCH] Remove duplication of vc-sccs-registered definition * lisp/vc/vc-sccs.el (vc-sccs-registered): Use the progn trick to get the full definition in loaddefs, rather than duplicating it. Cf vc-rcs-registered. --- lisp/ChangeLog | 3 +++ lisp/vc/vc-sccs.el | 13 ++++++------- 2 files changed, 9 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 072fb1bd1f4..f567369b46b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2012-09-29 Glenn Morris + * vc/vc-sccs.el (vc-sccs-registered): Use the progn trick to get + the full definition in loaddefs, rather than duplicating it. + * help-macro.el (three-step-help): No need to autoload defcustom. * progmodes/inf-lisp.el (inferior-lisp-filter-regexp) diff --git a/lisp/vc/vc-sccs.el b/lisp/vc/vc-sccs.el index 82f30b509ff..026aab1c412 100644 --- a/lisp/vc/vc-sccs.el +++ b/lisp/vc/vc-sccs.el @@ -107,13 +107,12 @@ For a description of possible values, see `vc-check-master-templates'." ;;; State-querying functions ;;; -;; The autoload cookie below places vc-sccs-registered directly into -;; loaddefs.el, so that vc-sccs.el does not need to be loaded for -;; every file that is visited. The definition is repeated below -;; so that Help and etags can find it. - -;;;###autoload (defun vc-sccs-registered(f) (vc-default-registered 'SCCS f)) -(defun vc-sccs-registered (f) (vc-default-registered 'SCCS f)) +;; The autoload cookie below places vc-rcs-registered directly into +;; loaddefs.el, so that vc-rcs.el does not need to be loaded for +;; every file that is visited. +;;;###autoload +(progn +(defun vc-sccs-registered (f) (vc-default-registered 'SCCS f))) (defun vc-sccs-state (file) "SCCS-specific function to compute the version control state." -- 2.39.2