From xemacs-m  Tue Sep  9 20:48:19 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 UAA14979
	for <xemacs-beta@xemacs.org>; Tue, 9 Sep 1997 20:48:19 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.7/8.8.7) id SAA10649;
	Tue, 9 Sep 1997 18:53:41 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: Re: bug in auto-autoloads.el generation...
References: <199709051622.JAA04478@kramer.in.aventail.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: "William M. Perry"'s message of "Fri, 5 Sep 1997 09:22:53 -0700"
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII
Date: 09 Sep 1997 18:53:41 -0700
Message-ID: <m2n2lm3pei.fsf@altair.xemacs.org>
Lines: 39
X-Mailer: Gnus v5.4.65/XEmacs 20.3(beta20) - "Tirana"

William M Perry <wmperry@aventail.com> writes:

> Emacs/W3 now auto-generates its autoloads if you are compiling with
> XEmacs.  But there appears to be a problem with how the file is generated:

> At the top of the file:
> ;;; DO NOT MODIFY THIS FILE
> (if (featurep 'w3-autoloads-autoloads) (error "Already loaded"))

> and then at the bottom:
> (provide 'w3-autoloads)

> Nothing major, just slightly unexpected. :)

Oops, bogus code alert.

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

	* utils/autoload.el(fixup-autoload-buffer): One too many
	  -autoload suffixes.

Index: lisp/utils/autoload.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/utils/autoload.el,v
retrieving revision 1.15
diff -u -r1.15 autoload.el
--- autoload.el	1997/09/03 02:55:44	1.15
+++ autoload.el	1997/09/10 01:51:57
@@ -607,8 +607,8 @@
 	     (not (looking-at ";;; DO NOT MODIFY THIS FILE")))
 	(progn
 	  (insert ";;; DO NOT MODIFY THIS FILE\n")
-	  (insert "(if (featurep '" sym "-autoloads)")
-	  (insert " (error \"Already loaded\"))")
+	  (insert "(if (featurep '" sym ")")
+	  (insert " (error \"Already loaded\"))\n")
 	  (goto-char (point-max))
 	  (insert "\n(provide '" sym ")\n")))))
 

