Mercurial > hg > xemacs-beta

comparison src/frame-x.c @ 2286:04bc9d2f42c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-20 19:18:55 by james] Mark all unused parameters as unused. Also eliminate some unneeded local variables.
author james
date Mon, 20 Sep 2004 19:20:08 +0000
parents 61855263cb07
children ecf1ebac70d8
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
581 581
582 return Qunbound; 582 return Qunbound;
583 } 583 }
584 584
585 static int 585 static int
586 x_internal_frame_property_p (struct frame *f, Lisp_Object property) 586 x_internal_frame_property_p (struct frame *UNUSED (f), Lisp_Object property)
587 { 587 {
588 return EQ (property, Qleft) 588 return EQ (property, Qleft)
589 || EQ (property, Qtop) 589 || EQ (property, Qtop)
590 || EQ (property, Qborder_width) 590 || EQ (property, Qborder_width)
591 || EQ (property, Qinternal_border_width) 591 || EQ (property, Qinternal_border_width)
1470 /* This sends a synthetic mouse-motion event to the frame, if the mouse 1470 /* This sends a synthetic mouse-motion event to the frame, if the mouse
1471 is over the frame. This ensures that the cursor gets set properly 1471 is over the frame. This ensures that the cursor gets set properly
1472 before the user moves the mouse for the first time. */ 1472 before the user moves the mouse for the first time. */
1473 1473
1474 static void 1474 static void
1475 x_send_synthetic_mouse_event (struct frame *f) 1475 x_send_synthetic_mouse_event (struct frame *UNUSED (f))
1476 { 1476 {
1477 /* #### write this function. */ 1477 /* #### write this function. */
1478 } 1478 }
1479 1479
1480 static int 1480 static int
1757 *topbreadth += wid->core.height + 2*wid->core.border_width; 1757 *topbreadth += wid->core.height + 2*wid->core.border_width;
1758 } 1758 }
1759 } 1759 }
1760 1760
1761 static void 1761 static void
1762 x_layout_widgets (Widget w, XtPointer client_data, XtPointer call_data) 1762 x_layout_widgets (Widget UNUSED (w), XtPointer client_data,
1763 XtPointer call_data)
1763 { 1764 {
1764 struct frame *f = (struct frame *) client_data; 1765 struct frame *f = (struct frame *) client_data;
1765 EmacsManagerResizeStruct *emst = (EmacsManagerResizeStruct *) call_data; 1766 EmacsManagerResizeStruct *emst = (EmacsManagerResizeStruct *) call_data;
1766 Dimension width = emst->width; 1767 Dimension width = emst->width;
1767 Dimension height = emst->height; 1768 Dimension height = emst->height;
1797 height - text_y - 2*textbord, 1798 height - text_y - 2*textbord,
1798 textbord); 1799 textbord);
1799 } 1800 }
1800 1801
1801 static void 1802 static void
1802 x_do_query_geometry (Widget w, XtPointer client_data, XtPointer call_data) 1803 x_do_query_geometry (Widget UNUSED (w), XtPointer client_data,
1804 XtPointer call_data)
1803 { 1805 {
1804 struct frame *f = (struct frame *) client_data; 1806 struct frame *f = (struct frame *) client_data;
1805 EmacsManagerQueryGeometryStruct *emst = 1807 EmacsManagerQueryGeometryStruct *emst =
1806 (EmacsManagerQueryGeometryStruct *) call_data; 1808 (EmacsManagerQueryGeometryStruct *) call_data;
1807 Widget text = FRAME_X_TEXT_WIDGET (f); 1809 Widget text = FRAME_X_TEXT_WIDGET (f);
2133 /* Lisp functions */ 2135 /* Lisp functions */
2134 /************************************************************************/ 2136 /************************************************************************/
2135 2137
2136 static void 2138 static void
2137 x_init_frame_1 (struct frame *f, Lisp_Object props, 2139 x_init_frame_1 (struct frame *f, Lisp_Object props,
2138 int frame_name_is_defaulted) 2140 int UNUSED (frame_name_is_defaulted))
2139 { 2141 {
2140 /* This function can GC */ 2142 /* This function can GC */
2141 Lisp_Object device = FRAME_DEVICE (f); 2143 Lisp_Object device = FRAME_DEVICE (f);
2142 Lisp_Object lisp_window_id = Fplist_get (props, Qwindow_id, Qnil); 2144 Lisp_Object lisp_window_id = Fplist_get (props, Qwindow_id, Qnil);
2143 Lisp_Object popup = Fplist_get (props, Qpopup, Qnil); 2145 Lisp_Object popup = Fplist_get (props, Qpopup, Qnil);
2167 allocate_x_frame_struct (f); 2169 allocate_x_frame_struct (f);
2168 x_create_widgets (f, lisp_window_id, popup); 2170 x_create_widgets (f, lisp_window_id, popup);
2169 } 2171 }
2170 2172
2171 static void 2173 static void
2172 x_init_frame_2 (struct frame *f, Lisp_Object props) 2174 x_init_frame_2 (struct frame *f, Lisp_Object UNUSED (props))
2173 { 2175 {
2174 /* Set up the values of the widget/frame. A case could be made for putting 2176 /* Set up the values of the widget/frame. A case could be made for putting
2175 this inside of the widget's initialize method. */ 2177 this inside of the widget's initialize method. */
2176 2178
2177 update_frame_face_values (f); 2179 update_frame_face_values (f);