Mercurial > hg > xemacs-beta
diff src/lread.c @ 185:3d6bfa290dbd r20-3b19
Import from CVS: tag r20-3b19
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:55:28 +0200 |
parents | bfd6434d15b3 |
children | a2f645c6b9f8 |
line wrap: on
line diff
--- a/src/lread.c Mon Aug 13 09:54:24 2007 +0200 +++ b/src/lread.c Mon Aug 13 09:55:28 2007 +0200 @@ -146,7 +146,7 @@ static int load_byte_code_version; /* An array describing all known built-in structure types */ -static Structure_type_dynarr *the_structure_type_dynarr; +static structure_type_dynarr *the_structure_type_dynarr; #if 0 /* FSFmacs defun hack */ /* When nonzero, read conses in pure space */ @@ -830,7 +830,7 @@ 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 +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, @@ -1909,7 +1909,7 @@ static Lisp_Object read_bit_vector (Lisp_Object readcharfun) { - unsigned_char_dynarr *dyn = Dynarr_new (unsigned char); + unsigned_char_dynarr *dyn = Dynarr_new (unsigned_char); Emchar c; while (1) @@ -1940,7 +1940,7 @@ struct structure_type st; st.type = type; - st.keywords = Dynarr_new (struct structure_keyword_entry); + st.keywords = Dynarr_new (structure_keyword_entry); st.validate = validate; st.instantiate = instantiate; Dynarr_add (the_structure_type_dynarr, st); @@ -2625,7 +2625,7 @@ static void * read_list_conser (Lisp_Object readcharfun, void *state, Charcount len) { - struct read_list_state *s = state; + struct read_list_state *s = (struct read_list_state *) state; Lisp_Object elt; elt = read1 (readcharfun); @@ -2823,7 +2823,7 @@ GCPRO2 (s.head, s.tail); sequence_reader (readcharfun, terminator, &s, read_list_conser); - + UNGCPRO; tem = s.head; len = XINT (Flength (tem)); @@ -2930,7 +2930,7 @@ #if 0 #ifndef WINDOWSNT /* When Emacs is invoked over network shares on NT, PATH_LOADSEARCH is - almost never correct, thereby causing a warning to be printed out that + almost never correct, thereby causing a warning to be printed out that confuses users. Since PATH_LOADSEARCH is always overriden by the EMACSLOADPATH environment variable below, disable the warning on NT. */ @@ -3013,7 +3013,7 @@ void structure_type_create (void) { - the_structure_type_dynarr = Dynarr_new (struct structure_type); + the_structure_type_dynarr = Dynarr_new (structure_type); } void @@ -3034,7 +3034,7 @@ *List of directories to search for files to load. Each element is a string (directory name) or nil (try default directory). -Note that the elements of this list *may not* begin with \"~\", so you must +Note that the elements of this list *may not* begin with "~", so you must call `expand-file-name' on them before adding them to this list. Initialized based on EMACSLOADPATH environment variable, if any, @@ -3169,7 +3169,7 @@ #ifdef LISP_BACKQUOTES old_backquote_flag = new_backquote_flag = 0; #endif - + #ifdef I18N3 Vfile_domain = Qnil; #endif