xemacs-beta: src/lread.c comparison

comparison src/lread.c @ 20:859a2309aef8 r19-15b93

Import from CVS: tag r19-15b93

author	cvs
date	Mon, 13 Aug 2007 08:50:05 +0200
parents	0293115a14e9
children	e04119814345

comparison

equal deleted inserted replaced

-:ac1f612d5250
+:859a2309aef8
 Vfile_domain = val;
 return Qnil;
 }
 #endif /* I18N3 */
-DEFUN ("load-internal", Fload_internal, Sload_internal, 1, 4, 0 /*
+DEFUN ("load-internal", Fload_internal, 1, 4, 0, /*
 Execute a file of Lisp code named FILE.
 First try FILE with `.elc' appended, then try with `.el',
 then try FILE unmodified.
 This function searches the directories in `load-path'.
 If optional second arg NOERROR is non-nil,
 Print messages at start and end of loading unless
 optional third arg NOMESSAGE is non-nil (ignored in -batch mode).
 If optional fourth arg NOSUFFIX is non-nil, don't try adding
 suffixes `.elc' or `.el' to the specified name FILE.
 Return t if file exists.
-*/ )
+*/
-(file, no_error, nomessage, nosuffix)
+(file, no_error, nomessage, nosuffix))
-Lisp_Object file, no_error, nomessage, nosuffix;
 {
 /* This function can GC */
 int fd = -1;
 int speccount = specpdl_depth ();
 int source_only = 0;
 #endif /* VMS */
 	  );
 }
 #endif /* 0 */
-DEFUN ("locate-file", Flocate_file, Slocate_file, 2, 4, 0 /*
+DEFUN ("locate-file", Flocate_file, 2, 4, 0, /*
 Search for FILENAME through PATH-LIST, expanded by one of the optional
 SUFFIXES (string of suffixes separated by \":\"s), checking for access
 MODE (0|1|2|4 = exists|executable|writeable|readable), default readable.
 `locate-file' keeps hash tables of the directories it searches through,
 in order to speed things up.  It tries valiantly to not get confused in
 the face of a changing and unpredictable environment, but can occasionally
 get tripped up.  In this case, you will have to call
 `locate-file-clear-hashing' to get it back on track.  See that function
 for details.
-*/ )
+*/
-(filename, path_list, suffixes, mode)
+(filename, path_list, suffixes, mode))
-Lisp_Object filename, path_list, suffixes, mode;
 {
 /* This function can GC */
 Lisp_Object tp;
 CHECK_STRING (filename);
 UNGCPRO;
 return val;
 }
-DEFUN ("locate-file-clear-hashing", Flocate_file_clear_hashing,
+DEFUN ("locate-file-clear-hashing", Flocate_file_clear_hashing, 1, 1, 0, /*
-Slocate_file_clear_hashing, 1, 1, 0 /*
 Clear the hash records for the specified list of directories.
 `locate-file' uses a hashing scheme to speed lookup, and will correctly
 track the following environmental changes:
 -- changes of any sort to the list of directories to be searched.
 -- byte-compilation of a .el file into a .elc file.
 `locate-file' will primarily get confused if you add a file that shadows
 (i.e. has the same name as) another file further down in the directory list.
 In this case, you must call `locate-file-clear-hashing'.
-*/ )
+*/
-(path)
+(path))
-Lisp_Object path;
 {
 Lisp_Object pathtail;
 for (pathtail = path; !NILP (pathtail); pathtail = Fcdr (pathtail))
 {
 unbind_to (speccount, Qnil);
 }
 #ifndef standalone
-DEFUN ("eval-buffer", Feval_buffer, Seval_buffer, 0, 2, "bBuffer: " /*
+DEFUN ("eval-buffer", Feval_buffer, 0, 2, "bBuffer: ", /*
 Execute BUFFER as Lisp code.
 Programs can pass two arguments, BUFFER and PRINTFLAG.
 BUFFER is the buffer to evaluate (nil means use current buffer).
 PRINTFLAG controls printing of output:
 nil means discard it; anything else is stream for print.
 If there is no error, point does not move.  If there is an error,
 point remains at the end of the last character read from the buffer.
 Execute BUFFER as Lisp code.
-*/ )
+*/
-(bufname, printflag)
+(bufname, printflag))
-Lisp_Object bufname, printflag;
 {
 /* This function can GC */
 int speccount = specpdl_depth ();
 Lisp_Object tem, buf;
 {
 code omitted;
 }
 #endif
-DEFUN ("eval-region", Feval_region, Seval_region, 2, 3, "r" /*
+DEFUN ("eval-region", Feval_region, 2, 3, "r", /*
 Execute the region as Lisp code.
 When called from programs, expects two arguments,
 giving starting and ending indices in the current buffer
 of the text to be executed.
 Programs can pass third argument PRINTFLAG which controls output:
 point remains at the end of the last character read from the buffer.
 Note:  Before evaling the region, this function narrows the buffer to it.
 If the code being eval'd should happen to trigger a redisplay you may
 see some text temporarily disappear because of this.
-*/ )
+*/
-(b, e, printflag)
+(b, e, printflag))
-Lisp_Object b, e, printflag;
 {
 /* This function can GC */
 int speccount = specpdl_depth ();
 Lisp_Object tem;
 Lisp_Object cbuf = Fcurrent_buffer ();
 return unbind_to (speccount, Qnil);
 }
 #endif /* standalone */
-DEFUN ("read", Fread, Sread, 0, 1, 0 /*
+DEFUN ("read", Fread, 0, 1, 0, /*
 Read one Lisp expression as text from STREAM, return as Lisp object.
 If STREAM is nil, use the value of `standard-input' (which see).
 STREAM or the value of `standard-input' may be:
 a buffer (read from point and advance it)
 a marker (read from where it points and advance it)
 a function (call it with no arguments for each character,
 call it with a char as argument to push a char back)
 a string (takes text from string, starting at the beginning)
 t (read text line using minibuffer and use it).
-*/ )
+*/
-(stream)
+(stream))
-Lisp_Object stream;
 {
 if (NILP (stream))
 stream = Vstandard_input;
 if (EQ (stream, Qt))
 stream = Qread_char;
 return Fcar (Fread_from_string (stream, Qnil, Qnil));
 return read0 (stream);
 }
-DEFUN ("read-from-string", Fread_from_string, Sread_from_string, 1, 3, 0 /*
+DEFUN ("read-from-string", Fread_from_string, 1, 3, 0, /*
 Read one Lisp expression which is represented as text by STRING.
 Returns a cons: (OBJECT-READ . FINAL-STRING-INDEX).
 START and END optionally delimit a substring of STRING from which to read;
 they default to 0 and (length STRING) respectively.
-*/ )
+*/
-(string, start, end)
+(string, start, end))
-Lisp_Object string, start, end;
 {
 Bytecount startval, endval;
 Lisp_Object tem;
 Lisp_Object lispstream = Qnil;
 struct gcpro gcpro1;
 }
 void
 syms_of_lread (void)
 {
-defsubr (&Sread);
+DEFSUBR (Fread);
-defsubr (&Sread_from_string);
+DEFSUBR (Fread_from_string);
-defsubr (&Sload_internal);
+DEFSUBR (Fload_internal);
-defsubr (&Slocate_file);
+DEFSUBR (Flocate_file);
-defsubr (&Slocate_file_clear_hashing);
+DEFSUBR (Flocate_file_clear_hashing);
-defsubr (&Seval_buffer);
+DEFSUBR (Feval_buffer);
-defsubr (&Seval_region);
+DEFSUBR (Feval_region);
 #ifdef standalone
-defsubr (&Sread_char);
+DEFSUBR (Fread_char);
 #endif
 defsymbol (&Qstandard_input, "standard-input");
 defsymbol (&Qread_char, "read-char");
 defsymbol (&Qcurrent_load_list, "current-load-list");

Mercurial > hg > xemacs-beta

comparison src/lread.c @ 20:859a2309aef8 r19-15b93