Esempi in C++ (Cpp) per free_opaque_ptr

Esempio n. 1

File: gui-x.c Progetto: hroptatyr/sxemacs

Lisp_Object widget_value_unwind(Lisp_Object closure)
{
	widget_value *wv = (widget_value *) get_opaque_ptr(closure);
	free_opaque_ptr(closure);
	if (wv)
		free_widget_value_tree(wv);
	return Qnil;
}

Esempio n. 2

File: dired.c Progetto: kenny-thomas/xemacs

static Lisp_Object
close_directory_unwind (Lisp_Object unwind_obj)
{
  DIR *d = (DIR *)get_opaque_ptr (unwind_obj);
  qxe_closedir (d);
  free_opaque_ptr (unwind_obj);
  return Qnil;
}