diff src/lisp.h @ 3304:73051095a712

[xemacs-hg @ 2006-03-26 14:33:37 by crestani] 2006-03-26 Marcus Crestani <crestani@xemacs.org> * alloc.c (make_uninit_string): Use set_lispstringp_direct. * lisp.h (set_lispstringp_direct): New.
author crestani
date Sun, 26 Mar 2006 14:33:39 +0000
parents 168191f9515f
children 2f13ae1532db
line wrap: on
line diff
--- a/src/lisp.h	Sun Mar 26 14:05:30 2006 +0000
+++ b/src/lisp.h	Sun Mar 26 14:33:39 2006 +0000
@@ -2475,6 +2475,7 @@
 
 /* Operations on Lisp_String *'s; only ones left */
 #ifdef NEW_GC
+#define set_lispstringp_direct(s) ((s)->indirect = 0)
 #define set_lispstringp_indirect(s) ((s)->indirect = 1)
 #define set_lispstringp_length(s, len) XSET_STRING_DATA_SIZE (s, len)
 #define set_lispstringp_data(s, ptr) XSET_STRING_DATA_DATA (s, ptr)