Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
68732608
Commit
68732608
authored
Apr 17, 1993
by
Richard M. Stallman
Browse files
(provide, require): Put appropriately-marked
conses in the current-globals list.
parent
ae321d28
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
1 deletion
+7
-1
src/fns.c
src/fns.c
+7
-1
No files found.
src/fns.c
View file @
68732608
...
...
@@ -31,7 +31,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
#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 @@ DEFUN ("provide", Fprovide, Sprovide, 1, 1, 0,
tem
=
Fmemq
(
feature
,
Vfeatures
);
if
(
NILP
(
tem
))
Vfeatures
=
Fcons
(
feature
,
Vfeatures
);
LOADHIST_ATTACH
(
Fcons
(
Qprovide
,
feature
));
return
feature
;
}
...
...
@@ -1287,6 +1288,7 @@ If FILENAME is omitted, the printname of FEATURE is used as the file name.")
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 @@ syms_of_fns ()
{
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
\
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment