static Lisp_Object
clean_up_file_dialog (Lisp_Object arg)
{
- Widget dialog = (Widget) XSAVE_POINTER (arg);
+ Widget dialog = XSAVE_POINTER (arg, 0);
/* Clean up. */
block_input ();
XmStringFree (default_xmstring);
}
- record_unwind_protect (clean_up_file_dialog, make_save_value (dialog, 0));
+ record_unwind_protect (clean_up_file_dialog, make_save_pointer (dialog));
/* Process events until the user presses Cancel or OK. */
x_menu_set_in_use (1);