Mercurial > emacs

changeset 2546:c8cd694d70eb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(provide, require): Put appropriately-marked conses in the current-globals list.
author Richard M. Stallman <rms@gnu.org>
date Sat, 17 Apr 1993 01:27:53 +0000
parents d666732c5f41
children c73c68a87cd5
files src/fns.c
diffstat 1 files changed, 7 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/fns.c	Sat Apr 17 01:27:37 1993 +0000
+++ b/src/fns.c	Sat Apr 17 01:27:53 1993 +0000
@@ -31,7 +31,7 @@
 #include "buffer.h"
 #include "keyboard.h"
 
-Lisp_Object Qstring_lessp;
+Lisp_Object Qstring_lessp, Qprovide, Qrequire;
 
 static Lisp_Object internal_equal ();
 
@@ -1273,6 +1273,7 @@
   tem = Fmemq (feature, Vfeatures);
   if (NILP (tem))
     Vfeatures = Fcons (feature, Vfeatures);
+  LOADHIST_ATTACH (Fcons (Qprovide, feature));
   return feature;
 }
 
@@ -1287,6 +1288,7 @@
   register Lisp_Object tem;
   CHECK_SYMBOL (feature, 0);
   tem = Fmemq (feature, Vfeatures);
+  LOADHIST_ATTACH (Fcons (Qrequire, feature));
   if (NILP (tem))
     {
       int count = specpdl_ptr - specpdl;
@@ -1314,6 +1316,10 @@
 {
   Qstring_lessp = intern ("string-lessp");
   staticpro (&Qstring_lessp);
+  Qprovide = intern ("provide");
+  staticpro (&Qprovide);
+  Qrequire = intern ("require");
+  staticpro (&Qrequire);
 
   DEFVAR_LISP ("features", &Vfeatures,
     "A list of symbols which are the features of the executing emacs.\n\