Mercurial > hg > xemacs-beta

comparison src/dialog-x.c @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 9ee227acff29
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
43 { 43 {
44 /* !!#### This function has not been Mule-ized */ 44 /* !!#### This function has not been Mule-ized */
45 widget_value *wv; 45 widget_value *wv;
46 int got_some; 46 int got_some;
47 wv = xmalloc_widget_value (); 47 wv = xmalloc_widget_value ();
48 wv->name = "value"; 48 wv->name = (char *) "value";
49 got_some = lw_get_some_values (id, wv); 49 got_some = lw_get_some_values (id, wv);
50 if (got_some) 50 if (got_some)
51 { 51 {
52 Lisp_Object text_field_callback; 52 Lisp_Object text_field_callback;
53 char *text_field_value = wv->value; 53 char *text_field_value = wv->value;
143 /* Also make sure that we free the partially-created widget_value 143 /* Also make sure that we free the partially-created widget_value
144 tree on Lisp error. */ 144 tree on Lisp error. */
145 145
146 wv_closure = make_opaque_ptr (kids); 146 wv_closure = make_opaque_ptr (kids);
147 record_unwind_protect (widget_value_unwind, wv_closure); 147 record_unwind_protect (widget_value_unwind, wv_closure);
148 prev->name = "message"; 148 prev->name = (char *) "message";
149 prev->value = xstrdup (name); 149 prev->value = xstrdup (name);
150 prev->enabled = 1; 150 prev->enabled = 1;
151 151
152 for (; !NILP (desc); desc = Fcdr (desc)) 152 for (; !NILP (desc); desc = Fcdr (desc))
153 { 153 {