From xemacs-m  Tue Jul  8 10:38:35 1997
Received: from mecca.spd.louisville.edu (mecca.spd.louisville.edu [136.165.40.148])
	by xemacs.org (8.8.5/8.8.5) with SMTP id KAA15024
	for <xemacs-beta@xemacs.org>; Tue, 8 Jul 1997 10:38:34 -0500 (CDT)
Received: (from tjchol01@localhost) by mecca.spd.louisville.edu (950413.SGI.8.6.12/8.6.12) id PAA09618; Tue, 8 Jul 1997 15:38:54 GMT
Date: Tue, 8 Jul 1997 15:38:54 GMT
Message-Id: <199707081538.PAA09618@mecca.spd.louisville.edu>
From: Tomasz Cholewo <tjchol01@mecca.spd.louisville.edu>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
To: XEmacs-Beta Mailing List <xemacs-beta@xemacs.org>
Subject: [patch] vc-update-change-log requires add-log variables
X-Mailer: VM 6.32 under 20.3 "Athens" XEmacs  Lucid (beta10)

vc-update-change-log (C-x v a) fails when trying to access
`add-log-full-name' and `add-log-mailing-address' variables which are
defcustom'ed in add-log.el.

The following patch adds autoload cookies for these two variables in
add-log.

--- add-log.el.orig	Tue Jul  8 11:32:22 1997
+++ add-log.el	Tue Jul  8 11:31:59 1997
@@ -51,6 +51,7 @@
   :type 'boolean
   :group 'change-log)
 
+;;;###autoload
 (defcustom add-log-full-name nil
   "*Full name of user, for inclusion in ChangeLog daily headers.
 This defaults to the value returned by the `user-full-name' function."
@@ -58,6 +59,7 @@
 		 string)
   :group 'change-log)
 
+;;;###autoload
 (defcustom add-log-mailing-address nil
   "*Electronic mail address of user, for inclusion in ChangeLog daily headers.
 This defaults to the value of `user-mail-address'."


Another possible solution (but probably worse as vc does not need
anything else but these two variables from add-log) is to add a
'require' to vc.el:

--- vc.el.orig	Tue Jul  8 11:18:38 1997
+++ vc.el	Tue Jul  8 11:25:23 1997
@@ -1827,6 +1827,7 @@
 	  ;; `rcs2log' will find the relevant RCS or CVS files
 	  ;; relative to the curent directory if none supplied.
 	  nil)))
+  (require 'add-log)                    ; XEmacs change
   (let ((odefault default-directory)
 	(full-name (or add-log-full-name
 		       (user-full-name)

-- Tomasz Cholewo

