From xemacs-m  Thu Aug 28 22:25:33 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id WAA15084
	for <xemacs-beta@xemacs.org>; Thu, 28 Aug 1997 22:25:32 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.7/8.8.7) id UAA16039;
	Thu, 28 Aug 1997 20:30:38 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: Re: cvs changelog commit buglet
References: <E0wyJ1D-0003xX-00@neal.ctd.comsat.com>
X-Face: `'%\i;ySOu]g?NlziJSk_$&@]KP`}~PEQPjZ5;nxSaDW_o$4+4%Ab]%Ifw3ZR;7TIT3,O,'
 @2{L;]ox6kc;$_5kU'n**9vFg-]eV~GbxSVCx|(s%uR[],*:^WKmC`B}(;|k9/m]gwt?&`t;^rfCJg
 khHH>pP1W\)xM0U@!FNDD72{3fDP$PkBhx^7Z?-WxH6DbFN:QOnT`llzW}VGdYv;n9lzljQvKTIBhQ
 YuV
X-Attribution: sb
From: SL Baur <steve@xemacs.org>
In-Reply-To: Neal Becker's message of "Tue, 12 Aug 1997 11:37:59 -0400"
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII
Date: 28 Aug 1997 20:30:37 -0700
Message-ID: <m290xl64yp.fsf@altair.xemacs.org>
Lines: 32
X-Mailer: Gnus v5.4.65/XEmacs 20.3(beta19) - "Kiev"

Neal Becker <neal@ctd.comsat.com> writes:

> Signaling: (void-variable user-full-name)
>   cvs-changelog-ours-p()

I'm not completely sure what the intended semantics of `user-full-name'
(variable and function) are supposed to be.  The following is a defensive
patch that cures the symptom in this instance.

1997-08-28  SL Baur  <steve@altair.xemacs.org>

	* pcl-cvs.el (cvs-changelog-ours-p): correct for drift in
	`user-full-name' semantics.

Index: lisp/pcl-cvs/pcl-cvs.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/pcl-cvs/pcl-cvs.el,v
retrieving revision 1.4
diff -u -r1.4 pcl-cvs.el
--- pcl-cvs.el	1997/05/09 03:28:08	1.4
+++ pcl-cvs.el	1997/08/29 03:27:03
@@ -3313,7 +3313,9 @@
 		      (regexp-quote (if (and (boundp 'add-log-full-name)
                                              add-log-full-name)
                                         add-log-full-name
-                                      user-full-name))
+                                      (or (and (boundp 'user-full-name)
+					       user-full-name)
+					  (user-full-name))))
                       "  <"
 		      (regexp-quote (if (and (boundp 'add-log-mailing-address)
 					     add-log-mailing-address)

