497 |
} |
} |
498 |
|
|
499 |
DEFUN ("read-char", Fread_char, Sread_char, 0, 2, 0, |
DEFUN ("read-char", Fread_char, Sread_char, 0, 2, 0, |
500 |
"Read a character from the command input (keyboard or macro).\n\ |
doc: /* Read a character from the command input (keyboard or macro). |
501 |
It is returned as a number.\n\ |
It is returned as a number. |
502 |
If the user generates an event which is not a character (i.e. a mouse\n\ |
If the user generates an event which is not a character (i.e. a mouse |
503 |
click or function key event), `read-char' signals an error. As an\n\ |
click or function key event), `read-char' signals an error. As an |
504 |
exception, switch-frame events are put off until non-ASCII events can\n\ |
exception, switch-frame events are put off until non-ASCII events can |
505 |
be read.\n\ |
be read. |
506 |
If you want to read non-character events, or ignore them, call\n\ |
If you want to read non-character events, or ignore them, call |
507 |
`read-event' or `read-char-exclusive' instead.\n\ |
`read-event' or `read-char-exclusive' instead. |
508 |
\n\ |
|
509 |
If the optional argument PROMPT is non-nil, display that as a prompt.\n\ |
If the optional argument PROMPT is non-nil, display that as a prompt. |
510 |
If the optional argument INHERIT-INPUT-METHOD is non-nil and some\n\ |
If the optional argument INHERIT-INPUT-METHOD is non-nil and some |
511 |
input method is turned on in the current buffer, that input method\n\ |
input method is turned on in the current buffer, that input method |
512 |
is used for reading a character.") |
is used for reading a character. */) |
513 |
(prompt, inherit_input_method) |
(prompt, inherit_input_method) |
514 |
Lisp_Object prompt, inherit_input_method; |
Lisp_Object prompt, inherit_input_method; |
515 |
{ |
{ |
516 |
if (! NILP (prompt)) |
if (! NILP (prompt)) |
519 |
} |
} |
520 |
|
|
521 |
DEFUN ("read-event", Fread_event, Sread_event, 0, 2, 0, |
DEFUN ("read-event", Fread_event, Sread_event, 0, 2, 0, |
522 |
"Read an event object from the input stream.\n\ |
doc: /* Read an event object from the input stream. |
523 |
If the optional argument PROMPT is non-nil, display that as a prompt.\n\ |
If the optional argument PROMPT is non-nil, display that as a prompt. |
524 |
If the optional argument INHERIT-INPUT-METHOD is non-nil and some\n\ |
If the optional argument INHERIT-INPUT-METHOD is non-nil and some |
525 |
input method is turned on in the current buffer, that input method\n\ |
input method is turned on in the current buffer, that input method |
526 |
is used for reading a character.") |
is used for reading a character. */) |
527 |
(prompt, inherit_input_method) |
(prompt, inherit_input_method) |
528 |
Lisp_Object prompt, inherit_input_method; |
Lisp_Object prompt, inherit_input_method; |
529 |
{ |
{ |
530 |
if (! NILP (prompt)) |
if (! NILP (prompt)) |
533 |
} |
} |
534 |
|
|
535 |
DEFUN ("read-char-exclusive", Fread_char_exclusive, Sread_char_exclusive, 0, 2, 0, |
DEFUN ("read-char-exclusive", Fread_char_exclusive, Sread_char_exclusive, 0, 2, 0, |
536 |
"Read a character from the command input (keyboard or macro).\n\ |
doc: /* Read a character from the command input (keyboard or macro). |
537 |
It is returned as a number. Non-character events are ignored.\n\ |
It is returned as a number. Non-character events are ignored. |
538 |
\n\ |
|
539 |
If the optional argument PROMPT is non-nil, display that as a prompt.\n\ |
If the optional argument PROMPT is non-nil, display that as a prompt. |
540 |
If the optional argument INHERIT-INPUT-METHOD is non-nil and some\n\ |
If the optional argument INHERIT-INPUT-METHOD is non-nil and some |
541 |
input method is turned on in the current buffer, that input method\n\ |
input method is turned on in the current buffer, that input method |
542 |
is used for reading a character.") |
is used for reading a character. */) |
543 |
(prompt, inherit_input_method) |
(prompt, inherit_input_method) |
544 |
Lisp_Object prompt, inherit_input_method; |
Lisp_Object prompt, inherit_input_method; |
545 |
{ |
{ |
546 |
if (! NILP (prompt)) |
if (! NILP (prompt)) |
549 |
} |
} |
550 |
|
|
551 |
DEFUN ("get-file-char", Fget_file_char, Sget_file_char, 0, 0, 0, |
DEFUN ("get-file-char", Fget_file_char, Sget_file_char, 0, 0, 0, |
552 |
"Don't use this yourself.") |
doc: /* Don't use this yourself. */) |
553 |
() |
() |
554 |
{ |
{ |
555 |
register Lisp_Object val; |
register Lisp_Object val; |
556 |
XSETINT (val, getc (instream)); |
XSETINT (val, getc (instream)); |
608 |
|
|
609 |
|
|
610 |
DEFUN ("load", Fload, Sload, 1, 5, 0, |
DEFUN ("load", Fload, Sload, 1, 5, 0, |
611 |
"Execute a file of Lisp code named FILE.\n\ |
doc: /* Execute a file of Lisp code named FILE. |
612 |
First try FILE with `.elc' appended, then try with `.el',\n\ |
First try FILE with `.elc' appended, then try with `.el', |
613 |
then try FILE unmodified. Environment variable references in FILE\n\ |
then try FILE unmodified. Environment variable references in FILE |
614 |
are replaced with their values by calling `substitute-in-file-name'.\n\ |
are replaced with their values by calling `substitute-in-file-name'. |
615 |
This function searches the directories in `load-path'.\n\ |
This function searches the directories in `load-path'. |
616 |
If optional second arg NOERROR is non-nil,\n\ |
If optional second arg NOERROR is non-nil, |
617 |
report no error if FILE doesn't exist.\n\ |
report no error if FILE doesn't exist. |
618 |
Print messages at start and end of loading unless\n\ |
Print messages at start and end of loading unless |
619 |
optional third arg NOMESSAGE is non-nil.\n\ |
optional third arg NOMESSAGE is non-nil. |
620 |
If optional fourth arg NOSUFFIX is non-nil, don't try adding\n\ |
If optional fourth arg NOSUFFIX is non-nil, don't try adding |
621 |
suffixes `.elc' or `.el' to the specified name FILE.\n\ |
suffixes `.elc' or `.el' to the specified name FILE. |
622 |
If optional fifth arg MUST-SUFFIX is non-nil, insist on\n\ |
If optional fifth arg MUST-SUFFIX is non-nil, insist on |
623 |
the suffix `.elc' or `.el'; don't accept just FILE unless\n\ |
the suffix `.elc' or `.el'; don't accept just FILE unless |
624 |
it ends in one of those suffixes or includes a directory name.\n\ |
it ends in one of those suffixes or includes a directory name. |
625 |
Return t if file exists.") |
Return t if file exists. */) |
626 |
(file, noerror, nomessage, nosuffix, must_suffix) |
(file, noerror, nomessage, nosuffix, must_suffix) |
627 |
Lisp_Object file, noerror, nomessage, nosuffix, must_suffix; |
Lisp_Object file, noerror, nomessage, nosuffix, must_suffix; |
628 |
{ |
{ |
629 |
register FILE *stream; |
register FILE *stream; |
1291 |
} |
} |
1292 |
|
|
1293 |
DEFUN ("eval-buffer", Feval_buffer, Seval_buffer, 0, 5, "", |
DEFUN ("eval-buffer", Feval_buffer, Seval_buffer, 0, 5, "", |
1294 |
"Execute the current buffer as Lisp code.\n\ |
doc: /* Execute the current buffer as Lisp code. |
1295 |
Programs can pass two arguments, BUFFER and PRINTFLAG.\n\ |
Programs can pass two arguments, BUFFER and PRINTFLAG. |
1296 |
BUFFER is the buffer to evaluate (nil means use current buffer).\n\ |
BUFFER is the buffer to evaluate (nil means use current buffer). |
1297 |
PRINTFLAG controls printing of output:\n\ |
PRINTFLAG controls printing of output: |
1298 |
nil means discard it; anything else is stream for print.\n\ |
nil means discard it; anything else is stream for print. |
1299 |
\n\ |
|
1300 |
If the optional third argument FILENAME is non-nil,\n\ |
If the optional third argument FILENAME is non-nil, |
1301 |
it specifies the file name to use for `load-history'.\n\ |
it specifies the file name to use for `load-history'. |
1302 |
The optional fourth argument UNIBYTE specifies `load-convert-to-unibyte'\n\ |
The optional fourth argument UNIBYTE specifies `load-convert-to-unibyte' |
1303 |
for this invocation.\n\ |
for this invocation. |
1304 |
\n\ |
|
1305 |
The optional fifth argument DO-ALLOW-PRINT, if not-nil, specifies that\n\ |
The optional fifth argument DO-ALLOW-PRINT, if not-nil, specifies that |
1306 |
`print' and related functions should work normally even if PRINTFLAG is nil.\n\ |
`print' and related functions should work normally even if PRINTFLAG is nil. |
1307 |
\n\ |
|
1308 |
This function preserves the position of point.") |
This function preserves the position of point. */) |
1309 |
(buffer, printflag, filename, unibyte, do_allow_print) |
(buffer, printflag, filename, unibyte, do_allow_print) |
1310 |
Lisp_Object buffer, printflag, filename, unibyte, do_allow_print; |
Lisp_Object buffer, printflag, filename, unibyte, do_allow_print; |
1311 |
{ |
{ |
1312 |
int count = specpdl_ptr - specpdl; |
int count = specpdl_ptr - specpdl; |
1336 |
return Qnil; |
return Qnil; |
1337 |
} |
} |
1338 |
|
|
|
#if 0 |
|
|
XDEFUN ("eval-current-buffer", Feval_current_buffer, Seval_current_buffer, 0, 1, "", |
|
|
"Execute the current buffer as Lisp code.\n\ |
|
|
Programs can pass argument PRINTFLAG which controls printing of output:\n\ |
|
|
nil means discard it; anything else is stream for print.\n\ |
|
|
\n\ |
|
|
If there is no error, point does not move. If there is an error,\n\ |
|
|
point remains at the end of the last character read from the buffer.") |
|
|
(printflag) |
|
|
Lisp_Object printflag; |
|
|
{ |
|
|
int count = specpdl_ptr - specpdl; |
|
|
Lisp_Object tem, cbuf; |
|
|
|
|
|
cbuf = Fcurrent_buffer () |
|
|
|
|
|
if (NILP (printflag)) |
|
|
tem = Qsymbolp; |
|
|
else |
|
|
tem = printflag; |
|
|
specbind (Qstandard_output, tem); |
|
|
record_unwind_protect (save_excursion_restore, save_excursion_save ()); |
|
|
SET_PT (BEGV); |
|
|
readevalloop (cbuf, 0, XBUFFER (cbuf)->filename, Feval, |
|
|
!NILP (printflag), Qnil, Qnil); |
|
|
return unbind_to (count, Qnil); |
|
|
} |
|
|
#endif |
|
|
|
|
1339 |
DEFUN ("eval-region", Feval_region, Seval_region, 2, 4, "r", |
DEFUN ("eval-region", Feval_region, Seval_region, 2, 4, "r", |
1340 |
"Execute the region as Lisp code.\n\ |
doc: /* Execute the region as Lisp code. |
1341 |
When called from programs, expects two arguments,\n\ |
When called from programs, expects two arguments, |
1342 |
giving starting and ending indices in the current buffer\n\ |
giving starting and ending indices in the current buffer |
1343 |
of the text to be executed.\n\ |
of the text to be executed. |
1344 |
Programs can pass third argument PRINTFLAG which controls output:\n\ |
Programs can pass third argument PRINTFLAG which controls output: |
1345 |
nil means discard it; anything else is stream for printing it.\n\ |
nil means discard it; anything else is stream for printing it. |
1346 |
Also the fourth argument READ-FUNCTION, if non-nil, is used\n\ |
Also the fourth argument READ-FUNCTION, if non-nil, is used |
1347 |
instead of `read' to read each expression. It gets one argument\n\ |
instead of `read' to read each expression. It gets one argument |
1348 |
which is the input stream for reading characters.\n\ |
which is the input stream for reading characters. |
1349 |
\n\ |
|
1350 |
This function does not move point.") |
This function does not move point. */) |
1351 |
(start, end, printflag, read_function) |
(start, end, printflag, read_function) |
1352 |
Lisp_Object start, end, printflag, read_function; |
Lisp_Object start, end, printflag, read_function; |
1353 |
{ |
{ |
1354 |
int count = specpdl_ptr - specpdl; |
int count = specpdl_ptr - specpdl; |
1377 |
|
|
1378 |
|
|
1379 |
DEFUN ("read", Fread, Sread, 0, 1, 0, |
DEFUN ("read", Fread, Sread, 0, 1, 0, |
1380 |
"Read one Lisp expression as text from STREAM, return as Lisp object.\n\ |
doc: /* Read one Lisp expression as text from STREAM, return as Lisp object. |
1381 |
If STREAM is nil, use the value of `standard-input' (which see).\n\ |
If STREAM is nil, use the value of `standard-input' (which see). |
1382 |
STREAM or the value of `standard-input' may be:\n\ |
STREAM or the value of `standard-input' may be: |
1383 |
a buffer (read from point and advance it)\n\ |
a buffer (read from point and advance it) |
1384 |
a marker (read from where it points and advance it)\n\ |
a marker (read from where it points and advance it) |
1385 |
a function (call it with no arguments for each character,\n\ |
a function (call it with no arguments for each character, |
1386 |
call it with a char as argument to push a char back)\n\ |
call it with a char as argument to push a char back) |
1387 |
a string (takes text from string, starting at the beginning)\n\ |
a string (takes text from string, starting at the beginning) |
1388 |
t (read text line using minibuffer and use it, or read from\n\ |
t (read text line using minibuffer and use it, or read from |
1389 |
standard input in batch mode).") |
standard input in batch mode). */) |
1390 |
(stream) |
(stream) |
1391 |
Lisp_Object stream; |
Lisp_Object stream; |
1392 |
{ |
{ |
1393 |
extern Lisp_Object Fread_minibuffer (); |
extern Lisp_Object Fread_minibuffer (); |
1411 |
} |
} |
1412 |
|
|
1413 |
DEFUN ("read-from-string", Fread_from_string, Sread_from_string, 1, 3, 0, |
DEFUN ("read-from-string", Fread_from_string, Sread_from_string, 1, 3, 0, |
1414 |
"Read one Lisp expression which is represented as text by STRING.\n\ |
doc: /* Read one Lisp expression which is represented as text by STRING. |
1415 |
Returns a cons: (OBJECT-READ . FINAL-STRING-INDEX).\n\ |
Returns a cons: (OBJECT-READ . FINAL-STRING-INDEX). |
1416 |
START and END optionally delimit a substring of STRING from which to read;\n\ |
START and END optionally delimit a substring of STRING from which to read; |
1417 |
they default to 0 and (length STRING) respectively.") |
they default to 0 and (length STRING) respectively. */) |
1418 |
(string, start, end) |
(string, start, end) |
1419 |
Lisp_Object string, start, end; |
Lisp_Object string, start, end; |
1420 |
{ |
{ |
1421 |
int startval, endval; |
int startval, endval; |
2897 |
} |
} |
2898 |
|
|
2899 |
DEFUN ("intern", Fintern, Sintern, 1, 2, 0, |
DEFUN ("intern", Fintern, Sintern, 1, 2, 0, |
2900 |
"Return the canonical symbol whose name is STRING.\n\ |
doc: /* Return the canonical symbol whose name is STRING. |
2901 |
If there is none, one is created by this function and returned.\n\ |
If there is none, one is created by this function and returned. |
2902 |
A second optional argument specifies the obarray to use;\n\ |
A second optional argument specifies the obarray to use; |
2903 |
it defaults to the value of `obarray'.") |
it defaults to the value of `obarray'. */) |
2904 |
(string, obarray) |
(string, obarray) |
2905 |
Lisp_Object string, obarray; |
Lisp_Object string, obarray; |
2906 |
{ |
{ |
2907 |
register Lisp_Object tem, sym, *ptr; |
register Lisp_Object tem, sym, *ptr; |
2943 |
} |
} |
2944 |
|
|
2945 |
DEFUN ("intern-soft", Fintern_soft, Sintern_soft, 1, 2, 0, |
DEFUN ("intern-soft", Fintern_soft, Sintern_soft, 1, 2, 0, |
2946 |
"Return the canonical symbol named NAME, or nil if none exists.\n\ |
doc: /* Return the canonical symbol named NAME, or nil if none exists. |
2947 |
NAME may be a string or a symbol. If it is a symbol, that exact\n\ |
NAME may be a string or a symbol. If it is a symbol, that exact |
2948 |
symbol is searched for.\n\ |
symbol is searched for. |
2949 |
A second optional argument specifies the obarray to use;\n\ |
A second optional argument specifies the obarray to use; |
2950 |
it defaults to the value of `obarray'.") |
it defaults to the value of `obarray'. */) |
2951 |
(name, obarray) |
(name, obarray) |
2952 |
Lisp_Object name, obarray; |
Lisp_Object name, obarray; |
2953 |
{ |
{ |
2954 |
register Lisp_Object tem; |
register Lisp_Object tem; |
2973 |
} |
} |
2974 |
|
|
2975 |
DEFUN ("unintern", Funintern, Sunintern, 1, 2, 0, |
DEFUN ("unintern", Funintern, Sunintern, 1, 2, 0, |
2976 |
"Delete the symbol named NAME, if any, from OBARRAY.\n\ |
doc: /* Delete the symbol named NAME, if any, from OBARRAY. |
2977 |
The value is t if a symbol was found and deleted, nil otherwise.\n\ |
The value is t if a symbol was found and deleted, nil otherwise. |
2978 |
NAME may be a string or a symbol. If it is a symbol, that symbol\n\ |
NAME may be a string or a symbol. If it is a symbol, that symbol |
2979 |
is deleted, if it belongs to OBARRAY--no other symbol is deleted.\n\ |
is deleted, if it belongs to OBARRAY--no other symbol is deleted. |
2980 |
OBARRAY defaults to the value of the variable `obarray'.") |
OBARRAY defaults to the value of the variable `obarray'. */) |
2981 |
(name, obarray) |
(name, obarray) |
2982 |
Lisp_Object name, obarray; |
Lisp_Object name, obarray; |
2983 |
{ |
{ |
2984 |
register Lisp_Object string, tem; |
register Lisp_Object string, tem; |
3135 |
} |
} |
3136 |
|
|
3137 |
DEFUN ("mapatoms", Fmapatoms, Smapatoms, 1, 2, 0, |
DEFUN ("mapatoms", Fmapatoms, Smapatoms, 1, 2, 0, |
3138 |
"Call FUNCTION on every symbol in OBARRAY.\n\ |
doc: /* Call FUNCTION on every symbol in OBARRAY. |
3139 |
OBARRAY defaults to the value of `obarray'.") |
OBARRAY defaults to the value of `obarray'. */) |
3140 |
(function, obarray) |
(function, obarray) |
3141 |
Lisp_Object function, obarray; |
Lisp_Object function, obarray; |
3142 |
{ |
{ |
3143 |
if (NILP (obarray)) obarray = Vobarray; |
if (NILP (obarray)) obarray = Vobarray; |
3217 |
|
|
3218 |
/* Define an "integer variable"; a symbol whose value is forwarded |
/* Define an "integer variable"; a symbol whose value is forwarded |
3219 |
to a C variable of type int. Sample call: */ |
to a C variable of type int. Sample call: */ |
3220 |
/* DEFVAR_INT ("indent-tabs-mode", &indent_tabs_mode, "Documentation"); */ |
/* DEFVAR_INT ("indent-tabs-mode", &indent_tabs_mode, "Documentation"); */ |
3221 |
void |
void |
3222 |
defvar_int (namestring, address) |
defvar_int (namestring, address) |
3223 |
char *namestring; |
char *namestring; |
3531 |
defsubr (&Smapatoms); |
defsubr (&Smapatoms); |
3532 |
|
|
3533 |
DEFVAR_LISP ("obarray", &Vobarray, |
DEFVAR_LISP ("obarray", &Vobarray, |
3534 |
"Symbol table for use by `intern' and `read'.\n\ |
doc: /* Symbol table for use by `intern' and `read'. |
3535 |
It is a vector whose length ought to be prime for best results.\n\ |
It is a vector whose length ought to be prime for best results. |
3536 |
The vector's contents don't make sense if examined from Lisp programs;\n\ |
The vector's contents don't make sense if examined from Lisp programs; |
3537 |
to find all the symbols in an obarray, use `mapatoms'."); |
to find all the symbols in an obarray, use `mapatoms'. */); |
3538 |
|
|
3539 |
DEFVAR_LISP ("values", &Vvalues, |
DEFVAR_LISP ("values", &Vvalues, |
3540 |
"List of values of all expressions which were read, evaluated and printed.\n\ |
doc: /* List of values of all expressions which were read, evaluated and printed. |
3541 |
Order is reverse chronological."); |
Order is reverse chronological. */); |
3542 |
|
|
3543 |
DEFVAR_LISP ("standard-input", &Vstandard_input, |
DEFVAR_LISP ("standard-input", &Vstandard_input, |
3544 |
"Stream for read to get input from.\n\ |
doc: /* Stream for read to get input from. |
3545 |
See documentation of `read' for possible values."); |
See documentation of `read' for possible values. */); |
3546 |
Vstandard_input = Qt; |
Vstandard_input = Qt; |
3547 |
|
|
3548 |
DEFVAR_LISP ("load-path", &Vload_path, |
DEFVAR_LISP ("load-path", &Vload_path, |
3549 |
"*List of directories to search for files to load.\n\ |
doc: /* *List of directories to search for files to load. |
3550 |
Each element is a string (directory name) or nil (try default directory).\n\ |
Each element is a string (directory name) or nil (try default directory). |
3551 |
Initialized based on EMACSLOADPATH environment variable, if any,\n\ |
Initialized based on EMACSLOADPATH environment variable, if any, |
3552 |
otherwise to default specified by file `epaths.h' when Emacs was built."); |
otherwise to default specified by file `epaths.h' when Emacs was built. */); |
3553 |
|
|
3554 |
DEFVAR_LISP ("load-suffixes", &Vload_suffixes, |
DEFVAR_LISP ("load-suffixes", &Vload_suffixes, |
3555 |
"*List of suffixes to try for files to load.\n\ |
doc: /* *List of suffixes to try for files to load. |
3556 |
This list should not include the empty string."); |
This list should not include the empty string. */); |
3557 |
Vload_suffixes = Fcons (build_string (".elc"), |
Vload_suffixes = Fcons (build_string (".elc"), |
3558 |
Fcons (build_string (".el"), Qnil)); |
Fcons (build_string (".el"), Qnil)); |
3559 |
/* We don't use empty_string because it's not initialized yet. */ |
/* We don't use empty_string because it's not initialized yet. */ |
3561 |
staticpro (&default_suffixes); |
staticpro (&default_suffixes); |
3562 |
|
|
3563 |
DEFVAR_BOOL ("load-in-progress", &load_in_progress, |
DEFVAR_BOOL ("load-in-progress", &load_in_progress, |
3564 |
"Non-nil iff inside of `load'."); |
doc: /* Non-nil iff inside of `load'. */); |
3565 |
|
|
3566 |
DEFVAR_LISP ("after-load-alist", &Vafter_load_alist, |
DEFVAR_LISP ("after-load-alist", &Vafter_load_alist, |
3567 |
"An alist of expressions to be evalled when particular files are loaded.\n\ |
doc: /* An alist of expressions to be evalled when particular files are loaded. |
3568 |
Each element looks like (FILENAME FORMS...).\n\ |
Each element looks like (FILENAME FORMS...). |
3569 |
When `load' is run and the file-name argument is FILENAME,\n\ |
When `load' is run and the file-name argument is FILENAME, |
3570 |
the FORMS in the corresponding element are executed at the end of loading.\n\n\ |
the FORMS in the corresponding element are executed at the end of loading. |
3571 |
FILENAME must match exactly! Normally FILENAME is the name of a library,\n\ |
|
3572 |
with no directory specified, since that is how `load' is normally called.\n\ |
FILENAME must match exactly! Normally FILENAME is the name of a library, |
3573 |
An error in FORMS does not undo the load,\n\ |
with no directory specified, since that is how `load' is normally called. |
3574 |
but does prevent execution of the rest of the FORMS.\n\ |
An error in FORMS does not undo the load, |
3575 |
FILENAME can also be a symbol (a feature) and FORMS are then executed\n\ |
but does prevent execution of the rest of the FORMS. |
3576 |
when the corresponding call to `provide' is made."); |
FILENAME can also be a symbol (a feature) and FORMS are then executed |
3577 |
|
when the corresponding call to `provide' is made. */); |
3578 |
Vafter_load_alist = Qnil; |
Vafter_load_alist = Qnil; |
3579 |
|
|
3580 |
DEFVAR_LISP ("load-history", &Vload_history, |
DEFVAR_LISP ("load-history", &Vload_history, |
3581 |
"Alist mapping source file names to symbols and features.\n\ |
doc: /* Alist mapping source file names to symbols and features. |
3582 |
Each alist element is a list that starts with a file name,\n\ |
Each alist element is a list that starts with a file name, |
3583 |
except for one element (optional) that starts with nil and describes\n\ |
except for one element (optional) that starts with nil and describes |
3584 |
definitions evaluated from buffers not visiting files.\n\ |
definitions evaluated from buffers not visiting files. |
3585 |
The remaining elements of each list are symbols defined as functions\n\ |
The remaining elements of each list are symbols defined as functions |
3586 |
or variables, and cons cells `(provide . FEATURE)', `(require . FEATURE)',\n\ |
or variables, and cons cells `(provide . FEATURE)', `(require . FEATURE)', |
3587 |
and `(autoload . SYMBOL)'."); |
and `(autoload . SYMBOL)'. */); |
3588 |
Vload_history = Qnil; |
Vload_history = Qnil; |
3589 |
|
|
3590 |
DEFVAR_LISP ("load-file-name", &Vload_file_name, |
DEFVAR_LISP ("load-file-name", &Vload_file_name, |
3591 |
"Full name of file being loaded by `load'."); |
doc: /* Full name of file being loaded by `load'. */); |
3592 |
Vload_file_name = Qnil; |
Vload_file_name = Qnil; |
3593 |
|
|
3594 |
DEFVAR_LISP ("user-init-file", &Vuser_init_file, |
DEFVAR_LISP ("user-init-file", &Vuser_init_file, |
3595 |
"File name, including directory, of user's initialization file.\n\ |
doc: /* File name, including directory, of user's initialization file. |
3596 |
If the file loaded had extension `.elc' and there was a corresponding `.el'\n\ |
If the file loaded had extension `.elc' and there was a corresponding `.el' |
3597 |
file, this variable contains the name of the .el file, suitable for use\n\ |
file, this variable contains the name of the .el file, suitable for use |
3598 |
by functions like `custom-save-all' which edit the init file."); |
by functions like `custom-save-all' which edit the init file. */); |
3599 |
Vuser_init_file = Qnil; |
Vuser_init_file = Qnil; |
3600 |
|
|
3601 |
DEFVAR_LISP ("current-load-list", &Vcurrent_load_list, |
DEFVAR_LISP ("current-load-list", &Vcurrent_load_list, |
3602 |
"Used for internal purposes by `load'."); |
doc: /* Used for internal purposes by `load'. */); |
3603 |
Vcurrent_load_list = Qnil; |
Vcurrent_load_list = Qnil; |
3604 |
|
|
3605 |
DEFVAR_LISP ("load-read-function", &Vload_read_function, |
DEFVAR_LISP ("load-read-function", &Vload_read_function, |
3606 |
"Function used by `load' and `eval-region' for reading expressions.\n\ |
doc: /* Function used by `load' and `eval-region' for reading expressions. |
3607 |
The default is nil, which means use the function `read'."); |
The default is nil, which means use the function `read'. */); |
3608 |
Vload_read_function = Qnil; |
Vload_read_function = Qnil; |
3609 |
|
|
3610 |
DEFVAR_LISP ("load-source-file-function", &Vload_source_file_function, |
DEFVAR_LISP ("load-source-file-function", &Vload_source_file_function, |
3611 |
"Function called in `load' for loading an Emacs lisp source file.\n\ |
doc: /* Function called in `load' for loading an Emacs lisp source file. |
3612 |
This function is for doing code conversion before reading the source file.\n\ |
This function is for doing code conversion before reading the source file. |
3613 |
If nil, loading is done without any code conversion.\n\ |
If nil, loading is done without any code conversion. |
3614 |
Arguments are FULLNAME, FILE, NOERROR, NOMESSAGE, where\n\ |
Arguments are FULLNAME, FILE, NOERROR, NOMESSAGE, where |
3615 |
FULLNAME is the full name of FILE.\n\ |
FULLNAME is the full name of FILE. |
3616 |
See `load' for the meaning of the remaining arguments."); |
See `load' for the meaning of the remaining arguments. */); |
3617 |
Vload_source_file_function = Qnil; |
Vload_source_file_function = Qnil; |
3618 |
|
|
3619 |
DEFVAR_BOOL ("load-force-doc-strings", &load_force_doc_strings, |
DEFVAR_BOOL ("load-force-doc-strings", &load_force_doc_strings, |
3620 |
"Non-nil means `load' should force-load all dynamic doc strings.\n\ |
doc: /* Non-nil means `load' should force-load all dynamic doc strings. |
3621 |
This is useful when the file being loaded is a temporary copy."); |
This is useful when the file being loaded is a temporary copy. */); |
3622 |
load_force_doc_strings = 0; |
load_force_doc_strings = 0; |
3623 |
|
|
3624 |
DEFVAR_BOOL ("load-convert-to-unibyte", &load_convert_to_unibyte, |
DEFVAR_BOOL ("load-convert-to-unibyte", &load_convert_to_unibyte, |
3625 |
"Non-nil means `read' converts strings to unibyte whenever possible.\n\ |
doc: /* Non-nil means `read' converts strings to unibyte whenever possible. |
3626 |
This is normally bound by `load' and `eval-buffer' to control `read',\n\ |
This is normally bound by `load' and `eval-buffer' to control `read', |
3627 |
and is not meant for users to change."); |
and is not meant for users to change. */); |
3628 |
load_convert_to_unibyte = 0; |
load_convert_to_unibyte = 0; |
3629 |
|
|
3630 |
DEFVAR_LISP ("source-directory", &Vsource_directory, |
DEFVAR_LISP ("source-directory", &Vsource_directory, |
3631 |
"Directory in which Emacs sources were found when Emacs was built.\n\ |
doc: /* Directory in which Emacs sources were found when Emacs was built. |
3632 |
You cannot count on them to still be there!"); |
You cannot count on them to still be there! */); |
3633 |
Vsource_directory |
Vsource_directory |
3634 |
= Fexpand_file_name (build_string ("../"), |
= Fexpand_file_name (build_string ("../"), |
3635 |
Fcar (decode_env_path (0, PATH_DUMPLOADSEARCH))); |
Fcar (decode_env_path (0, PATH_DUMPLOADSEARCH))); |
3636 |
|
|
3637 |
DEFVAR_LISP ("preloaded-file-list", &Vpreloaded_file_list, |
DEFVAR_LISP ("preloaded-file-list", &Vpreloaded_file_list, |
3638 |
"List of files that were preloaded (when dumping Emacs)."); |
doc: /* List of files that were preloaded (when dumping Emacs). */); |
3639 |
Vpreloaded_file_list = Qnil; |
Vpreloaded_file_list = Qnil; |
3640 |
|
|
3641 |
DEFVAR_LISP ("byte-boolean-vars", &Vbyte_boolean_vars, |
DEFVAR_LISP ("byte-boolean-vars", &Vbyte_boolean_vars, |
3642 |
"List of all DEFVAR_BOOL variables, used by the byte code optimizer."); |
doc: /* List of all DEFVAR_BOOL variables, used by the byte code optimizer. */); |
3643 |
Vbyte_boolean_vars = Qnil; |
Vbyte_boolean_vars = Qnil; |
3644 |
|
|
3645 |
DEFVAR_BOOL ("load-dangerous-libraries", &load_dangerous_libraries, |
DEFVAR_BOOL ("load-dangerous-libraries", &load_dangerous_libraries, |
3646 |
"Non-nil means load dangerous compiled Lisp files.\n\ |
doc: /* Non-nil means load dangerous compiled Lisp files. |
3647 |
Some versions of XEmacs use different byte codes than Emacs. These\n\ |
Some versions of XEmacs use different byte codes than Emacs. These |
3648 |
incompatible byte codes can make Emacs crash when it tries to execute\n\ |
incompatible byte codes can make Emacs crash when it tries to execute |
3649 |
them."); |
them. */); |
3650 |
load_dangerous_libraries = 0; |
load_dangerous_libraries = 0; |
3651 |
|
|
3652 |
DEFVAR_LISP ("bytecomp-version-regexp", &Vbytecomp_version_regexp, |
DEFVAR_LISP ("bytecomp-version-regexp", &Vbytecomp_version_regexp, |
3653 |
"Regular expression matching safe to load compiled Lisp files.\n\ |
doc: /* Regular expression matching safe to load compiled Lisp files. |
3654 |
When Emacs loads a compiled Lisp file, it reads the first 512 bytes\n\ |
When Emacs loads a compiled Lisp file, it reads the first 512 bytes |
3655 |
from the file, and matches them against this regular expression.\n\ |
from the file, and matches them against this regular expression. |
3656 |
When the regular expression matches, the file is considered to be safe\n\ |
When the regular expression matches, the file is considered to be safe |
3657 |
to load. See also `load-dangerous-libraries'."); |
to load. See also `load-dangerous-libraries'. */); |
3658 |
Vbytecomp_version_regexp |
Vbytecomp_version_regexp |
3659 |
= build_string ("^;;;.\\(in Emacs version\\|bytecomp version FSF\\)"); |
= build_string ("^;;;.\\(in Emacs version\\|bytecomp version FSF\\)"); |
3660 |
|
|
3661 |
DEFVAR_LISP ("recursive-load-depth-limit", &Vrecursive_load_depth_limit, |
DEFVAR_LISP ("recursive-load-depth-limit", &Vrecursive_load_depth_limit, |
3662 |
"Limit for depth of recursive loads.\n\ |
doc: /* Limit for depth of recursive loads. |
3663 |
Value should be either an integer > 0 specifying the limit, or nil for\n\ |
Value should be either an integer > 0 specifying the limit, or nil for |
3664 |
no limit."); |
no limit. */); |
3665 |
Vrecursive_load_depth_limit = make_number (50); |
Vrecursive_load_depth_limit = make_number (50); |
3666 |
|
|
3667 |
/* Vsource_directory was initialized in init_lread. */ |
/* Vsource_directory was initialized in init_lread. */ |