diff --git a/macosx/tkMacOSXXStubs.c b/macosx/tkMacOSXXStubs.c
index cb4267b89..0a9a39d54 100644
--- a/macosx/tkMacOSXXStubs.c
+++ b/macosx/tkMacOSXXStubs.c
@@ -867,12 +867,9 @@ XSetIconName(
 
 Bool
 XFilterEvent(
-    XEvent *event,
-    Window window)
+    TCL_UNUSED(XEvent *),
+    TCL_UNUSED(Window))
 {
-    (void)event;
-    (void)window;
-
     return 0;
 }
 
diff --git a/win/stubs.c b/win/stubs.c
index 93a086ef3..2cd4d34e2 100644
--- a/win/stubs.c
+++ b/win/stubs.c
@@ -6,10 +6,8 @@
 
 int
 _XInitImageFuncPtrs(
-    XImage *image)
+    TCL_UNUSED(XImage *))
 {
-    (void)image;
-
     return Success;
 }
 
@@ -19,25 +17,18 @@ _XInitImageFuncPtrs(
 
 void
 XSetWMClientMachine(
-    Display *display,
-    Window w,
-    XTextProperty *text_prop)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Window),
+    TCL_UNUSED(XTextProperty *))
 {
-	(void)display;
-	(void)w;
-	(void)text_prop;
 }
 
 Status
 XStringListToTextProperty(
-    char **list,
-    int count,
-    XTextProperty *text_prop_return)
+    TCL_UNUSED(char **),
+    TCL_UNUSED(int),
+    TCL_UNUSED(XTextProperty *))
 {
-    (void)list;
-    (void)count;
-    (void)text_prop_return;
-
     return Success;
 }
 
@@ -47,485 +38,333 @@ XStringListToTextProperty(
 
 int
 XChangeProperty(
-    Display *display,
-    Window w,
-    Atom property,
-    Atom type,
-    int format,
-    int mode,
-    _Xconst unsigned char *data,
-    int nelements)
-{
-    (void)display;
-    (void)w;
-    (void)property;
-    (void)type;
-    (void)format;
-    (void)mode;
-    (void)data;
-    (void)nelements;
-
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Window),
+    TCL_UNUSED(Atom),
+    TCL_UNUSED(Atom),
+    TCL_UNUSED(int),
+    TCL_UNUSED(int),
+    TCL_UNUSED(_Xconst unsigned char *),
+    TCL_UNUSED(int))
+{
     return Success;
 }
 
 XIC
-XCreateIC(XIM xim, ...)
+XCreateIC(TCL_UNUSED(XIM), ...)
 {
-    (void)xim;
     return NULL;
 }
 
 int
 XDeleteProperty(
-    Display *display,
-    Window w,
-    Atom property)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Window),
+    TCL_UNUSED(Atom))
 {
-    (void)display;
-    (void)w;
-    (void)property;
-
     return Success;
 }
 
 Bool
 XFilterEvent(
-    XEvent *event,
-    Window window)
+    TCL_UNUSED(XEvent *),
+    TCL_UNUSED(Window))
 {
-    (void)event;
-    (void)window;
-
     return 0;
 }
 
 int
 XForceScreenSaver(
-    Display *display,
-    int mode)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(int))
 {
-    (void)display;
-    (void)mode;
-
     return Success;
 }
 
 int
 XFreeCursor(
-    Display *display,
-    Cursor cursor)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Cursor))
 {
-    (void)display;
-    (void)cursor;
-
     return Success;
 }
 
 GContext
 XGContextFromGC(
-    GC gc)
+    TCL_UNUSED(GC))
 {
-    (void)gc;
-
     return (GContext) NULL;
 }
 
 char *
 XGetAtomName(
-    Display *display,
-    Atom atom)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Atom))
 {
-    (void)display;
-    (void)atom;
-
     return NULL;
 }
 
 int
 XGetWindowAttributes(
-    Display *display,
-    Window w,
-    XWindowAttributes *window_attributes_return)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Window),
+    TCL_UNUSED(XWindowAttributes *))
 {
-    (void)display;
-    (void)w;
-    (void)window_attributes_return;
-
     return Success;
 }
 
 Status
 XGetWMColormapWindows(
-    Display *display,
-    Window w,
-    Window **windows_return,
-    int *count_return)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Window),
+    TCL_UNUSED(Window **),
+    TCL_UNUSED(int *))
 {
-    (void)display;
-    (void)w;
-    (void)windows_return;
-    (void)count_return;
-
     return Success;
 }
 
 int
 XIconifyWindow(
-    Display *display,
-    Window w,
-    int screen_number)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Window),
+    TCL_UNUSED(int))
 {
-    (void)display;
-    (void)w;
-    (void)screen_number;
-
     return Success;
 }
 
 XHostAddress *
 XListHosts(
-    Display *display,
-    int *nhosts_return,
-    Bool *state_return)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(int *),
+    TCL_UNUSED(Bool *))
 {
-    (void)display;
-    (void)nhosts_return;
-    (void)state_return;
-
     return NULL;
 }
 
 int
 XLookupColor(
-    Display *display,
-    Colormap colormap,
-    _Xconst char *color_name,
-    XColor *exact_def_return,
-    XColor *screen_def_return)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Colormap),
+    TCL_UNUSED(_Xconst char *),
+    TCL_UNUSED(XColor *),
+    TCL_UNUSED(XColor *))
 {
-    (void)display;
-    (void)colormap;
-    (void)color_name;
-    (void)exact_def_return;
-    (void)screen_def_return;
-
     return Success;
 }
 
 int
 XNextEvent(
-    Display *display,
-    XEvent *event_return)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(XEvent *))
 {
-    (void)display;
-    (void)event_return;
-
     return Success;
 }
 
 int
 XPutBackEvent(
-    Display *display,
-    XEvent *event)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(XEvent *))
 {
-    (void)display;
-    (void)event;
-
     return Success;
 }
 
 int
 XQueryColors(
-    Display *display,
-    Colormap colormap,
-    XColor *defs_in_out,
-    int ncolors)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Colormap),
+    TCL_UNUSED(XColor *),
+    TCL_UNUSED(int))
 {
-    (void)display;
-    (void)colormap;
-    (void)defs_in_out;
-    (void)ncolors;
-
     return Success;
 }
 
 int
 XQueryTree(
-    Display *display,
-    Window w,
-    Window *root_return,
-    Window *parent_return,
-    Window **children_return,
-    unsigned int *nchildren_return)
-{
-    (void)display;
-    (void)w;
-    (void)root_return;
-    (void)parent_return;
-    (void)children_return;
-    (void)nchildren_return;
-
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Window),
+    TCL_UNUSED(Window *),
+    TCL_UNUSED(Window *),
+    TCL_UNUSED(Window **),
+    TCL_UNUSED(unsigned int *))
+{
     return Success;
 }
 
 int
 XRefreshKeyboardMapping(
-    XMappingEvent *event_map)
+    TCL_UNUSED(XMappingEvent *))
 {
-    (void)event_map;
-
     return Success;
 }
 
 Window
 XRootWindow(
-    Display *display,
-    int screen_number)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(int))
 {
-    (void)display;
-    (void)screen_number;
-
     return (Window) NULL;
 }
 
 int
 XSelectInput(
-    Display *display,
-    Window w,
-    long event_mask)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Window),
+    TCL_UNUSED(long))
 {
-    (void)display;
-    (void)w;
-    (void)event_mask;
-
     return Success;
 }
 
 int
 XSendEvent(
-    Display *display,
-    Window w,
-    Bool propagate,
-    long event_mask,
-    XEvent *event_send)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Window),
+    TCL_UNUSED(Bool),
+    TCL_UNUSED(long),
+    TCL_UNUSED(XEvent *))
 {
-    (void)display;
-    (void)w;
-    (void)propagate;
-    (void)event_mask;
-    (void)event_send;
-
     return Success;
 }
 
 int
 XSetCommand(
-    Display *display,
-    Window w,
-    char **argv,
-    int argc)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Window),
+    TCL_UNUSED(char **),
+    TCL_UNUSED(int))
 {
-    (void)display;
-    (void)w;
-    (void)argv;
-    (void)argc;
-
     return Success;
 }
 
 XErrorHandler
 XSetErrorHandler(
-    XErrorHandler handler)
+    TCL_UNUSED(XErrorHandler))
 {
-    (void)handler;
-
     return NULL;
 }
 
 int
 XSetIconName(
-    Display *display,
-    Window w,
-    _Xconst char *icon_name)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Window),
+    TCL_UNUSED(_Xconst char *))
 {
-    (void)display;
-    (void)w;
-    (void)icon_name;
-
     return Success;
 }
 
 int
 XSetWindowBackground(
-    Display *display,
-    Window w,
-    unsigned long background_pixel)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Window),
+    TCL_UNUSED(unsigned long))
 {
-    (void)display;
-    (void)w;
-    (void)background_pixel;
-
     return Success;
 }
 
 int
 XSetWindowBackgroundPixmap(
-    Display *display,
-    Window w,
-    Pixmap background_pixmap)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Window),
+    TCL_UNUSED(Pixmap))
 {
-    (void)display;
-    (void)w;
-    (void)background_pixmap;
-
     return Success;
 }
 
 int
 XSetWindowBorder(
-    Display *display,
-    Window w,
-    unsigned long border_pixel)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Window),
+    TCL_UNUSED(unsigned long))
 {
-    (void)display;
-    (void)w;
-    (void)border_pixel;
-
     return Success;
 }
 
 int
 XSetWindowBorderPixmap(
-    Display *display,
-    Window w,
-    Pixmap border_pixmap)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Window),
+    TCL_UNUSED(Pixmap))
 {
-    (void)display;
-    (void)w;
-    (void)border_pixmap;
-
     return Success;
 }
 
 int
 XSetWindowBorderWidth(
-    Display *display,
-    Window w,
-    unsigned int width)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Window),
+    TCL_UNUSED(unsigned int))
 {
-    (void)display;
-    (void)w;
-    (void)width;
-
     return Success;
 }
 
 int
 XSetWindowColormap(
-    Display *display,
-    Window w,
-    Colormap colormap)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Window),
+    TCL_UNUSED(Colormap))
 {
-    (void)display;
-    (void)w;
-    (void)colormap;
-
     return Success;
 }
 
 Bool
 XTranslateCoordinates(
-    Display *display,
-    Window src_w,
-    Window dest_w,
-    int src_x,
-    int src_y,
-    int *dest_x_return,
-    int *dest_y_return,
-    Window *child_return)
-{
-    (void)display;
-    (void)src_w;
-    (void)dest_w;
-    (void)src_x;
-    (void)src_y;
-    (void)dest_x_return;
-    (void)dest_y_return;
-    (void)child_return;
-
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Window),
+    TCL_UNUSED(Window),
+    TCL_UNUSED(int),
+    TCL_UNUSED(int),
+    TCL_UNUSED(int *),
+    TCL_UNUSED(int *),
+    TCL_UNUSED(Window *))
+{
     return 0;
 }
 
 int
 XWindowEvent(
-    Display *display,
-    Window w,
-    long event_mask,
-    XEvent *event_return)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Window),
+    TCL_UNUSED(long),
+    TCL_UNUSED(XEvent *))
 {
-    (void)display;
-    (void)w;
-    (void)event_mask;
-    (void)event_return;
-
     return Success;
 }
 
 int
 XWithdrawWindow(
-    Display *display,
-    Window w,
-    int screen_number)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Window),
+    TCL_UNUSED(int))
 {
-    (void)display;
-    (void)w;
-    (void)screen_number;
-
     return Success;
 }
 
 int
 XmbLookupString(
-    XIC ic,
-    XKeyPressedEvent *event,
-    char *buffer_return,
-    int bytes_buffer,
-    KeySym *keysym_return,
-    Status *status_return)
-{
-    (void)ic;
-    (void)event;
-    (void)buffer_return;
-    (void)bytes_buffer;
-    (void)keysym_return;
-    (void)status_return;
-
+    TCL_UNUSED(XIC),
+    TCL_UNUSED(XKeyPressedEvent *),
+    TCL_UNUSED(char *),
+    TCL_UNUSED(int),
+    TCL_UNUSED(KeySym *),
+    TCL_UNUSED(Status *))
+{
     return Success;
 }
 
 int
 XGetWindowProperty(
-    Display *display,
-    Window w,
-    Atom property,
-    long long_offset,
-    long long_length,
-    Bool del,
-    Atom req_type,
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Window),
+    TCL_UNUSED(Atom),
+    TCL_UNUSED(long),
+    TCL_UNUSED(long),
+    TCL_UNUSED(Bool),
+    TCL_UNUSED(Atom),
     Atom *actual_type_return,
     int *actual_format_return,
     unsigned long *nitems_return,
     unsigned long *bytes_after_return,
     unsigned char **prop_return)
 {
-    (void)display;
-    (void)w;
-    (void)property;
-    (void)long_offset;
-    (void)long_length;
-    (void)del;
-    (void)req_type;
-
     *actual_type_return = None;
     *actual_format_return = 0;
     *nitems_return = 0;
@@ -540,28 +379,22 @@ XGetWindowProperty(
 
 int
 XFlush(
-    Display *display)
+    TCL_UNUSED(Display *))
 {
-    (void)display;
-
     return 0;
 }
 
 int
 XGrabServer(
-    Display *display)
+    TCL_UNUSED(Display *))
 {
-    (void)display;
-
     return 0;
 }
 
 int
 XUngrabServer(
-    Display *display)
+    TCL_UNUSED(Display *))
 {
-    (void)display;
-
     return 0;
 }
 
@@ -569,7 +402,7 @@ int
 XFree(
     void *data)
 {
-	if ((data) != NULL) {
+	if (data != NULL) {
 		ckfree(data);
 	}
     return 0;
@@ -586,10 +419,8 @@ XNoOp(
 XAfterFunction
 XSynchronize(
     Display *display,
-    Bool onoff)
+    TCL_UNUSED(Bool))
 {
-    (void)onoff;
-
     LastKnownRequestProcessed(display)++;
     return NULL;
 }
@@ -597,10 +428,8 @@ XSynchronize(
 int
 XSync(
     Display *display,
-    Bool discard)
+    TCL_UNUSED(Bool))
 {
-    (void)discard;
-
     LastKnownRequestProcessed(display)++;
     return 0;
 }
@@ -614,13 +443,9 @@ XVisualIDFromVisual(
 
 int
 XOffsetRegion(
-    Region rgn,
-	int dx,
-	int dy)
+    TCL_UNUSED(Region),
+	TCL_UNUSED(int),
+	TCL_UNUSED(int))
 {
-    (void)rgn;
-    (void)dx;
-    (void)dy;
-
 	return 0;
 }
diff --git a/xlib/xcolors.c b/xlib/xcolors.c
index 96f7c5a56..e74153390 100644
--- a/xlib/xcolors.c
+++ b/xlib/xcolors.c
@@ -336,14 +336,11 @@ colorcmp(
 
 Status
 XParseColor(
-    Display *display,
-    Colormap map,
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Colormap),
     const char *spec,
     XColor *colorPtr)
 {
-    (void)display;
-    (void)map;
-
     if (spec[0] == '#') {
 	char *p;
 	Tcl_WideInt value = parseHex64bit(++spec, &p);
diff --git a/xlib/xgc.c b/xlib/xgc.c
index c46a528ad..2c5fcaa1b 100644
--- a/xlib/xgc.c
+++ b/xlib/xgc.c
@@ -101,12 +101,11 @@ static void FreeClipMask(GC gc) {
 GC
 XCreateGC(
     Display *display,
-    Drawable d,
+    TCL_UNUSED(Drawable),
     unsigned long mask,
     XGCValues *values)
 {
     GC gp;
-    (void)d;
 
     /*
      * In order to have room for a dash list, MAX_DASH_LIST_SIZE extra chars
@@ -230,11 +229,9 @@ XChangeGC(
  */
 
 int XFreeGC(
-    Display *d,
+    TCL_UNUSED(Display *),
     GC gc)
 {
-    (void)d;
-
     if (gc != NULL) {
 	FreeClipMask(gc);
 	ckfree(gc);
@@ -261,38 +258,33 @@ int XFreeGC(
 
 int
 XSetForeground(
-    Display *display,
+    TCL_UNUSED(Display *),
     GC gc,
     unsigned long foreground)
 {
-    (void)display;
-
     gc->foreground = foreground;
     return Success;
 }
 
 int
 XSetBackground(
-    Display *display,
+    TCL_UNUSED(Display *),
     GC gc,
     unsigned long background)
 {
-    (void)display;
-
     gc->background = background;
     return Success;
 }
 
 int
 XSetDashes(
-    Display *display,
+    TCL_UNUSED(Display *),
     GC gc,
     int dash_offset,
     _Xconst char *dash_list,
     int n)
 {
     char *p = &(gc->dashes);
-    (void)display;
 
 #ifdef TkWinDeleteBrush
     TkWinDeleteBrush(gc->fgBrush);
@@ -311,48 +303,40 @@ XSetDashes(
 
 int
 XSetFunction(
-    Display *display,
+    TCL_UNUSED(Display *),
     GC gc,
     int function)
 {
-    (void)display;
-
     gc->function = function;
     return Success;
 }
 
 int
 XSetFillRule(
-    Display *display,
+    TCL_UNUSED(Display *),
     GC gc,
     int fill_rule)
 {
-    (void)display;
-
     gc->fill_rule = fill_rule;
     return Success;
 }
 
 int
 XSetFillStyle(
-    Display *display,
+    TCL_UNUSED(Display *),
     GC gc,
     int fill_style)
 {
-    (void)display;
-
     gc->fill_style = fill_style;
     return Success;
 }
 
 int
 XSetTSOrigin(
-    Display *display,
+    TCL_UNUSED(Display *),
     GC gc,
     int x, int y)
 {
-    (void)display;
-
     gc->ts_x_origin = x;
     gc->ts_y_origin = y;
     return Success;
@@ -360,51 +344,43 @@ XSetTSOrigin(
 
 int
 XSetFont(
-    Display *display,
+    TCL_UNUSED(Display *),
     GC gc,
     Font font)
 {
-    (void)display;
-
     gc->font = font;
     return Success;
 }
 
 int
 XSetArcMode(
-    Display *display,
+    TCL_UNUSED(Display *),
     GC gc,
     int arc_mode)
 {
-    (void)display;
-
     gc->arc_mode = arc_mode;
     return Success;
 }
 
 int
 XSetStipple(
-    Display *display,
+    TCL_UNUSED(Display *),
     GC gc,
     Pixmap stipple)
 {
-    (void)display;
-
     gc->stipple = stipple;
     return Success;
 }
 
 int
 XSetLineAttributes(
-    Display *display,
+    TCL_UNUSED(Display *),
     GC gc,
     unsigned int line_width,
     int line_style,
     int cap_style,
     int join_style)
 {
-    (void)display;
-
     gc->line_width = line_width;
     gc->line_style = line_style;
     gc->cap_style = cap_style;
@@ -414,13 +390,11 @@ XSetLineAttributes(
 
 int
 XSetClipOrigin(
-    Display *display,
+    TCL_UNUSED(Display *),
     GC gc,
     int clip_x_origin,
     int clip_y_origin)
 {
-    (void)display;
-
     gc->clip_x_origin = clip_x_origin;
     gc->clip_y_origin = clip_y_origin;
     return Success;
@@ -447,12 +421,10 @@ XSetClipOrigin(
 
 int
 TkSetRegion(
-    Display *display,
+    TCL_UNUSED(Display *),
     GC gc,
     TkRegion r)
 {
-    (void)display;
-
     if (r == NULL) {
 	Tcl_Panic("must not pass NULL to TkSetRegion for compatibility with X11; use XSetClipMask instead");
     } else {
@@ -468,12 +440,10 @@ TkSetRegion(
 
 int
 XSetClipMask(
-    Display *display,
+    TCL_UNUSED(Display *),
     GC gc,
     Pixmap pixmap)
 {
-    (void)display;
-
     if (pixmap == None) {
 	FreeClipMask(gc);
     } else {
@@ -555,10 +525,9 @@ XDrawPoints(
     GC gc,
     XPoint *points,
     int npoints,
-    int mode)
+    TCL_UNUSED(int))
 {
     int res = Success;
-    (void)mode;
 
     while (npoints-- > 0) {
 	res = XDrawLine(display, d, gc,
@@ -572,391 +541,270 @@ XDrawPoints(
 #if !defined(MAC_OSX_TK)
 int
 XDrawSegments(
-    Display *display,
-    Drawable d,
-    GC gc,
-    XSegment *segments,
-    int nsegments)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Drawable),
+    TCL_UNUSED(GC),
+    TCL_UNUSED(XSegment *),
+    TCL_UNUSED(int))
 {
-    (void)display;
-    (void)d;
-    (void)gc;
-    (void)segments;
-    (void)nsegments;
-
     return BadDrawable;
 }
 #endif
 
 char *
 XFetchBuffer(
-    Display *display,
-    int *nbytes_return,
-    int buffer)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(int *),
+    TCL_UNUSED(int))
 {
-    (void)display;
-    (void)nbytes_return;
-    (void)buffer;
-
     return (char *) 0;
 }
 
 Status
 XFetchName(
-    Display *display,
-    Window w,
-    char **window_name_return)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Window),
+    TCL_UNUSED(char **))
 {
-    (void)display;
-    (void)w;
-    (void)window_name_return;
-
     return Success;
 }
 
 Atom *
 XListProperties(
-    Display* display,
-    Window w,
-    int *num_prop_return)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Window),
+    TCL_UNUSED(int *))
 {
-    (void)display;
-    (void)w;
-    (void)num_prop_return;
-
     return (Atom *) 0;
 }
 
 int
 XMapRaised(
-    Display *display,
-    Window w)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Window))
 {
-    (void)display;
-    (void)w;
-
     return Success;
 }
 
 int
 XQueryTextExtents(
-    Display *display,
-    XID font_ID,
-    _Xconst char *string,
-    int nchars,
-    int *direction_return,
-    int *font_ascent_return,
-    int *font_descent_return,
-    XCharStruct *overall_return)
-{
-    (void)display;
-    (void)font_ID;
-    (void)string;
-    (void)nchars;
-    (void)direction_return;
-    (void)font_ascent_return;
-    (void)font_descent_return;
-    (void)overall_return;
-
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(XID),
+    TCL_UNUSED(_Xconst char *),
+    TCL_UNUSED(int),
+    TCL_UNUSED(int *),
+    TCL_UNUSED(int *),
+    TCL_UNUSED(int *),
+    TCL_UNUSED(XCharStruct *))
+{
     return Success;
 }
 
 int
 XReparentWindow(
-    Display *display,
-    Window w,
-    Window parent,
-    int x,
-    int y)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Window),
+    TCL_UNUSED(Window),
+    TCL_UNUSED(int),
+    TCL_UNUSED(int))
 {
-    (void)display;
-    (void)w;
-    (void)parent;
-    (void)x;
-    (void)y;
-
     return BadWindow;
 }
 
 int
 XUndefineCursor(
-    Display *display,
-    Window w)
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Window))
 {
-    (void)display;
-    (void)w;
-
     return Success;
 }
 
 XVaNestedList
 XVaCreateNestedList(
-    int unused, ...)
+    TCL_UNUSED(int), ...)
 {
-    (void)unused;
     return NULL;
 }
 
 char *
 XSetICValues(
-    XIC xic, ...)
+    TCL_UNUSED(XIC), ...)
 {
-    (void)xic;
     return NULL;
 }
 
 char *
 XGetICValues(
-    XIC xic, ...)
+    TCL_UNUSED(XIC), ...)
 {
-    (void)xic;
     return NULL;
 }
 
 void
 XSetICFocus(
-    XIC xic)
+    TCL_UNUSED(XIC))
 {
-    (void)xic;
 }
 
 Window
 XCreateWindow(
-    Display *display,
-	Window parent,
-	int x,
-	int y,
-    unsigned int width,
-	unsigned int height,
-    unsigned int border_width,
-	int depth,
-	unsigned int clazz,
-    Visual *visual,
-	unsigned long value_mask,
-    XSetWindowAttributes *attributes)
-{
-    (void)display;
-    (void)parent;
-    (void)x;
-    (void)y;
-    (void)width;
-    (void)height;
-    (void)border_width;
-    (void)depth;
-    (void)clazz;
-    (void)visual;
-    (void)value_mask;
-    (void)attributes;
-
+    TCL_UNUSED(Display *),
+	TCL_UNUSED(Window),
+	TCL_UNUSED(int),
+	TCL_UNUSED(int),
+    TCL_UNUSED(unsigned int),
+	TCL_UNUSED(unsigned int),
+    TCL_UNUSED(unsigned int),
+	TCL_UNUSED(int),
+	TCL_UNUSED(unsigned int),
+    TCL_UNUSED(Visual *),
+	TCL_UNUSED(unsigned long),
+    TCL_UNUSED(XSetWindowAttributes *))
+{
 	return 0;
 }
 
 int
 XPointInRegion(
-    Region rgn,
-	int x,
-	int y)
+    TCL_UNUSED(Region),
+	TCL_UNUSED(int),
+	TCL_UNUSED(int))
 {
-    (void)rgn;
-    (void)x;
-    (void)y;
-
 	return 0;
 }
 
 int
 XUnionRegion(
-    Region srca,
-	Region srcb,
-	Region dr_return)
+    TCL_UNUSED(Region),
+	TCL_UNUSED(Region),
+	TCL_UNUSED(Region))
 {
-    (void)srca;
-    (void)srcb;
-    (void)dr_return;
-
 	return 0;
 }
 
 Region
 XPolygonRegion(
-    XPoint *pts,
-	int n,
-	int rule)
+    TCL_UNUSED(XPoint *),
+	TCL_UNUSED(int),
+	TCL_UNUSED(int))
 {
-    (void)pts;
-    (void)n;
-    (void)rule;
-
     return 0;
 }
 
 void
 XDestroyIC(
-    XIC ic)
+    TCL_UNUSED(XIC))
 {
-    (void)ic;
 }
 
 Cursor
 XCreatePixmapCursor(
-    Display *display,
-    Pixmap source,
-    Pixmap mask,
-    XColor *foreground_color,
-    XColor *background_color,
-    unsigned int x,
-    unsigned int y)
-{
-    (void)display;
-    (void)source;
-    (void)mask;
-    (void)foreground_color;
-    (void)background_color;
-    (void)x;
-    (void)y;
-
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Pixmap),
+    TCL_UNUSED(Pixmap),
+    TCL_UNUSED(XColor *),
+    TCL_UNUSED(XColor *),
+    TCL_UNUSED(unsigned int),
+    TCL_UNUSED(unsigned int))
+{
     return (Cursor) NULL;
 }
 
 Cursor
 XCreateGlyphCursor(
-    Display *display,
-    Font source_font,
-    Font mask_font,
-    unsigned int source_char,
-    unsigned int mask_char,
-    XColor _Xconst *foreground_color,
-    XColor _Xconst *background_color)
-{
-    (void)display;
-    (void)source_font;
-    (void)mask_font;
-    (void)source_char;
-    (void)mask_char;
-    (void)foreground_color;
-    (void)background_color;
-
+    TCL_UNUSED(Display *),
+    TCL_UNUSED(Font),
+    TCL_UNUSED(Font),
+    TCL_UNUSED(unsigned int),
+    TCL_UNUSED(unsigned int),
+    TCL_UNUSED(XColor _Xconst *),
+    TCL_UNUSED(XColor _Xconst *))
+{
     return (Cursor) NULL;
 }
 
 XFontSet
 XCreateFontSet(
-    Display *display		/* display */,
-    _Xconst char *base_font_name_list	/* base_font_name_list */,
-    char ***missing_charset_list		/* missing_charset_list */,
-    int *missing_charset_count		/* missing_charset_count */,
-    char **def_string		/* def_string */
+    TCL_UNUSED(Display *)		/* display */,
+    TCL_UNUSED(_Xconst char *)	/* base_font_name_list */,
+    TCL_UNUSED(char ***)		/* missing_charset_list */,
+    TCL_UNUSED(int *)		/* missing_charset_count */,
+    TCL_UNUSED(char **)		/* def_string */
 ) {
-    (void)display;
-    (void)base_font_name_list;
-    (void)missing_charset_list;
-    (void)missing_charset_count;
-    (void)def_string;
-
     return (XFontSet)0;
 }
 
 void
 XFreeFontSet(
-    Display *display,		/* display */
-    XFontSet fontset		/* font_set */
+    TCL_UNUSED(Display *),		/* display */
+    TCL_UNUSED(XFontSet)		/* font_set */
 ) {
-    (void)display;
-    (void)fontset;
 }
 
 void
 XFreeStringList(
-    char **list		/* list */
+    TCL_UNUSED(char **)		/* list */
 ) {
-    (void)list;
 }
 
 Status
 XCloseIM(
-    XIM im /* im */
+    TCL_UNUSED(XIM) /* im */
 ) {
-    (void)im;
-
     return Success;
 }
 
 Bool
 XRegisterIMInstantiateCallback(
-    Display *dpy			/* dpy */,
-    struct _XrmHashBucketRec *rdb	/* rdb */,
-    char *res_name			/* res_name */,
-    char *res_class			/* res_class */,
-    XIDProc callback			/* callback */,
-    XPointer client_data			/* client_data */
+    TCL_UNUSED(Display *)			/* dpy */,
+    TCL_UNUSED(struct _XrmHashBucketRec *)	/* rdb */,
+    TCL_UNUSED(char *)			/* res_name */,
+    TCL_UNUSED(char *)			/* res_class */,
+    TCL_UNUSED(XIDProc)			/* callback */,
+    TCL_UNUSED(XPointer)			/* client_data */
 ) {
-    (void)dpy;
-    (void)rdb;
-    (void)res_name;
-    (void)res_class;
-    (void)callback;
-    (void)client_data;
-
     return False;
 }
 
 Bool
 XUnregisterIMInstantiateCallback(
-    Display *dpy			/* dpy */,
-    struct _XrmHashBucketRec *rdb	/* rdb */,
-    char *res_name			/* res_name */,
-    char *res_class			/* res_class */,
-    XIDProc callback			/* callback */,
-    XPointer client_data			/* client_data */
+    TCL_UNUSED(Display *) 		/* dpy */,
+    TCL_UNUSED(struct _XrmHashBucketRec *)	/* rdb */,
+    TCL_UNUSED(char *)			/* res_name */,
+    TCL_UNUSED(char *)			/* res_class */,
+    TCL_UNUSED(XIDProc)			/* callback */,
+    TCL_UNUSED(XPointer)			/* client_data */
 ) {
-    (void)dpy;
-    (void)rdb;
-    (void)res_name;
-    (void)res_class;
-    (void)callback;
-    (void)client_data;
-
     return False;
 }
 
 char *
 XSetLocaleModifiers(
-    const char *modifier_list		/* modifier_list */
+    TCL_UNUSED(const char *)		/* modifier_list */
 ) {
-    (void)modifier_list;
-
     return NULL;
 }
 
 XIM XOpenIM(
-    Display *dpy			/* dpy */,
-    struct _XrmHashBucketRec *rdb	/* rdb */,
-    char *res_name			/* res_name */,
-    char *res_class			/* res_class */
+    TCL_UNUSED(Display *)			/* dpy */,
+    TCL_UNUSED(struct _XrmHashBucketRec *)	/* rdb */,
+    TCL_UNUSED(char *)			/* res_name */,
+    TCL_UNUSED(char *)			/* res_class */
 ) {
-    (void)dpy;
-    (void)rdb;
-    (void)res_name;
-    (void)res_class;
-
     return NULL;
 }
 
 char *
 XGetIMValues(
-    XIM im /* im */, ...
+    TCL_UNUSED(XIM) /* im */, ...
 ) {
-    (void)im;
-
     return NULL;
 }
 
 char *
 XSetIMValues(
-    XIM im /* im */, ...
+    TCL_UNUSED(XIM) /* im */, ...
 ) {
-    (void)im;
-
     return NULL;
 }