comparison src/dialog-x.c @ 14:9ee227acff29 r19-15b90

Import from CVS: tag r19-15b90
author cvs
date Mon, 13 Aug 2007 08:48:42 +0200
parents ac2d302a0011
children 859a2309aef8
comparison
equal deleted inserted replaced
13:13c6d0aaafe5 14:9ee227acff29
123 int count = specpdl_depth (); 123 int count = specpdl_depth ();
124 Lisp_Object wv_closure; 124 Lisp_Object wv_closure;
125 125
126 CHECK_CONS (desc); 126 CHECK_CONS (desc);
127 CHECK_STRING (XCAR (desc)); 127 CHECK_STRING (XCAR (desc));
128 name = (char *) string_data (XSTRING (LISP_GETTEXT (XCAR (desc)))); 128 name = (char *) XSTRING_DATA (LISP_GETTEXT (XCAR (desc)));
129 desc = XCDR (desc); 129 desc = XCDR (desc);
130 if (!CONSP (desc)) 130 if (!CONSP (desc))
131 error ("dialog boxes must have some buttons"); 131 error ("dialog boxes must have some buttons");
132 132
133 /* Inhibit GC during this conversion. The reasons for this are 133 /* Inhibit GC during this conversion. The reasons for this are