comparison src/frame.c @ 109501:c02e8765755d

Remove unused static functions. * alloc.c (free_float) * font.c [ENABLE_CHECKING] (font_match_xlfd, font_check_xlfd_parse) * frame.c (delete_frame_handler) * ralloc.c (reorder_bloc) * w32menu.c (menubar_id_to_frame, add_left_right_boundary)

109500:3a9a140f18bb

      return count > 1;
    }
  return 1;
}

/* Error handler for `delete-frame-functions'. */
static Lisp_Object
delete_frame_handler (Lisp_Object arg)
{
  add_to_log ("Error during `delete-frame': %s", arg, Qnil);
  return Qnil;
}

extern Lisp_Object Qrun_hook_with_args;

/* Delete FRAME.  When FORCE equals Qnoelisp, delete FRAME
  unconditionally.  x_connection_closed and delete_terminal use
  this.  Any other value of FORCE implements the semantics

Lisp_Object
delete_frame (Lisp_Object frame, Lisp_Object force)
     /* If we use `register' here, gcc-4.0.2 on amd64 using
	-DUSE_LISP_UNION_TYPE complains further down that we're getting the
	address of `force'.  Go figure.  */
                              
{
  struct frame *f;
  struct frame *sf = SELECTED_FRAME ();
  struct kboard *kb;

109501:c02e8765755d

      return count > 1;
    }
  return 1;
}

extern Lisp_Object Qrun_hook_with_args;

/* Delete FRAME.  When FORCE equals Qnoelisp, delete FRAME
  unconditionally.  x_connection_closed and delete_terminal use
  this.  Any other value of FORCE implements the semantics

Lisp_Object
delete_frame (Lisp_Object frame, Lisp_Object force)
     /* If we use `register' here, gcc-4.0.2 on amd64 using
	-DUSE_LISP_UNION_TYPE complains further down that we're getting the
	address of `force'.  Go figure.  */

{
  struct frame *f;
  struct frame *sf = SELECTED_FRAME ();
  struct kboard *kb;