Mercurial > hg > xemacs-beta

comparison src/lisp.h @ 276:6330739388db r21-0b36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b36
author cvs
date Mon, 13 Aug 2007 10:30:37 +0200
parents c5d627a313b1
children 7df0dd720c89
comparison
equal deleted inserted replaced
275:a68ae4439f57 276:6330739388db
1309 x = wrong_type_argument (Qinteger_char_or_marker_p, x); \ 1309 x = wrong_type_argument (Qinteger_char_or_marker_p, x); \
1310 } while (0) 1310 } while (0)
1311 1311
1312 /*********** pure space ***********/ 1312 /*********** pure space ***********/
1313 1313
1314 #define CHECK_IMPURE(obj) \ 1314 #define CHECK_IMPURE(obj) \
1315 do { if (purified (obj)) pure_write_error (); } while (0) 1315 do { if (purified (obj)) pure_write_error (obj); } while (0)
1316 1316
1317 /*********** structures ***********/ 1317 /*********** structures ***********/
1318 1318
1319 typedef struct structure_keyword_entry structure_keyword_entry; 1319 typedef struct structure_keyword_entry structure_keyword_entry;
1320 struct structure_keyword_entry 1320 struct structure_keyword_entry
1891 int dynarr_overhead; 1891 int dynarr_overhead;
1892 int gap_overhead; 1892 int gap_overhead;
1893 }; 1893 };
1894 1894
1895 #endif /* MEMORY_USAGE_STATS */ 1895 #endif /* MEMORY_USAGE_STATS */
1896
1897 /* Some systems (e.g., NT) use a different path separator than Unix,
1898 in addition to a device separator. Default the path separator
1899 to '/', and don't test for a device separator in IS_ANY_SEP. */
1900
1901 #ifdef WINDOWSNT
1902 extern Lisp_Object Vdirectory_sep_char;
1903 #endif
1904 1896
1905 #ifndef DIRECTORY_SEP 1897 #ifndef DIRECTORY_SEP
1906 #define DIRECTORY_SEP '/' 1898 #define DIRECTORY_SEP '/'
1907 #endif 1899 #endif
1908 #ifndef IS_DIRECTORY_SEP 1900 #ifndef IS_DIRECTORY_SEP
2003 1995
2004 /* Defined in console.c */ 1996 /* Defined in console.c */
2005 void stuff_buffered_input (Lisp_Object); 1997 void stuff_buffered_input (Lisp_Object);
2006 1998
2007 /* Defined in data.c */ 1999 /* Defined in data.c */
2008 DECLARE_DOESNT_RETURN (pure_write_error (void)); 2000 DECLARE_DOESNT_RETURN (pure_write_error (Lisp_Object));
2009 DECLARE_DOESNT_RETURN (args_out_of_range (Lisp_Object, Lisp_Object)); 2001 DECLARE_DOESNT_RETURN (args_out_of_range (Lisp_Object, Lisp_Object));
2010 DECLARE_DOESNT_RETURN (args_out_of_range_3 (Lisp_Object, Lisp_Object, 2002 DECLARE_DOESNT_RETURN (args_out_of_range_3 (Lisp_Object, Lisp_Object,
2011 Lisp_Object)); 2003 Lisp_Object));
2012 Lisp_Object wrong_type_argument (Lisp_Object, Lisp_Object); 2004 Lisp_Object wrong_type_argument (Lisp_Object, Lisp_Object);
2013 DECLARE_DOESNT_RETURN (dead_wrong_type_argument (Lisp_Object, Lisp_Object)); 2005 DECLARE_DOESNT_RETURN (dead_wrong_type_argument (Lisp_Object, Lisp_Object));
2357 /* Same goes for this function. */ 2349 /* Same goes for this function. */
2358 void write_string_1 (CONST Bufbyte *, Bytecount, Lisp_Object); 2350 void write_string_1 (CONST Bufbyte *, Bytecount, Lisp_Object);
2359 void print_cons (Lisp_Object, Lisp_Object, int); 2351 void print_cons (Lisp_Object, Lisp_Object, int);
2360 void print_vector (Lisp_Object, Lisp_Object, int); 2352 void print_vector (Lisp_Object, Lisp_Object, int);
2361 void print_string (Lisp_Object, Lisp_Object, int); 2353 void print_string (Lisp_Object, Lisp_Object, int);
2354 void long_to_string (char *, long);
2362 void print_internal (Lisp_Object, Lisp_Object, int); 2355 void print_internal (Lisp_Object, Lisp_Object, int);
2363 void print_symbol (Lisp_Object, Lisp_Object, int); 2356 void print_symbol (Lisp_Object, Lisp_Object, int);
2364 void print_float (Lisp_Object, Lisp_Object, int); 2357 void print_float (Lisp_Object, Lisp_Object, int);
2365 void print_compiled_function (Lisp_Object, Lisp_Object, int); 2358 void print_compiled_function (Lisp_Object, Lisp_Object, int);
2366 extern int print_escape_newlines; 2359 extern int print_escape_newlines;