/[emacs]/emacs/src/lread.c
ViewVC logotype

Diff of /emacs/src/lread.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.270 by monnier, Tue Nov 6 18:48:03 2001 UTC revision 1.271 by pj, Wed Nov 7 06:22:32 2001 UTC
# Line 497  read_filtered_event (no_switch_frame, as Line 497  read_filtered_event (no_switch_frame, as
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))
# Line 519  is used for reading a character.") Line 519  is used for reading a character.")
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))
# Line 533  is used for reading a character.") Line 533  is used for reading a character.")
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))
# Line 549  is used for reading a character.") Line 549  is used for reading a character.")
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));
# Line 608  record_load_unwind (old) Line 608  record_load_unwind (old)
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;
# Line 1291  readevalloop (readcharfun, stream, sourc Line 1291  readevalloop (readcharfun, stream, sourc
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;
# Line 1336  This function preserves the position of Line 1336  This function preserves the position of
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;
# Line 1406  This function does not move point.") Line 1377  This function does not move point.")
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 ();
# Line 1440  STREAM or the value of `standard-input' Line 1411  STREAM or the value of `standard-input'
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;
# Line 2926  make_symbol (str) Line 2897  make_symbol (str)
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;
# Line 2972  it defaults to the value of `obarray'.") Line 2943  it defaults to the value of `obarray'.")
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;
# Line 3002  it defaults to the value of `obarray'.") Line 2973  it defaults to the value of `obarray'.")
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;
# Line 3164  mapatoms_1 (sym, function) Line 3135  mapatoms_1 (sym, function)
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;
# Line 3246  defalias (sname, string) Line 3217  defalias (sname, string)
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;
# Line 3560  syms_of_lread () Line 3531  syms_of_lread ()
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.  */
# Line 3590  This list should not include the empty s Line 3561  This list should not include the empty s
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.  */

Legend:
Removed from v.1.270  
changed lines
  Added in v.1.271

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26