# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1038600456 0
# Node ID 65f924c09e6dd6db83e0d2500d52d81cc2ce748f
# Parent  8aaba207e44b82b9d2018fffa275de87a307da79
(Frequire): Don't call LOADHIST_ATTACH if feature was
already provided.

diff -r 8aaba207e44b -r 65f924c09e6d src/fns.c
--- a/src/fns.c	Fri Nov 29 18:15:21 2002 +0000
+++ b/src/fns.c	Fri Nov 29 20:07:36 2002 +0000
@@ -3245,14 +3245,14 @@
   CHECK_SYMBOL (feature);
 
   tem = Fmemq (feature, Vfeatures);
-
-  LOADHIST_ATTACH (Fcons (Qrequire, feature));
   
   if (NILP (tem))
     {
       int count = SPECPDL_INDEX ();
       int nesting = 0;
 
+      LOADHIST_ATTACH (Fcons (Qrequire, feature));
+
       /* This is to make sure that loadup.el gives a clear picture
 	 of what files are preloaded and when.  */
       if (! NILP (Vpurify_flag))