TIP 569 remove lint comments

39 files changed, 12 insertions, 104 deletions

diff --git a/generic/tkBitmap.c b/generic/tkBitmap.c
index 252fd4c..36fb382 100644
--- a/generic/tkBitmap.c
+++ b/generic/tkBitmap.c
@@ -805,7 +805,6 @@ DupBitmapObjProc(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 Pixmap
 Tk_GetBitmapFromData(
     Tcl_Interp *interp,		/* Interpreter to use for error reporting. */
diff --git a/generic/tkBusy.c b/generic/tkBusy.c
index ae11374..124ee68 100644
--- a/generic/tkBusy.c
+++ b/generic/tkBusy.c
@@ -122,7 +122,6 @@ SetWindowInstanceData(
  *----------------------------------------------------------------------
  */
 
-/* ARGSUSED */
 static void
 BusyCustodyProc(
     ClientData clientData,	/* Information about the busy window. */
@@ -157,7 +156,6 @@ BusyCustodyProc(
  *----------------------------------------------------------------------
  */
 
-/* ARGSUSED */
 static void
 BusyGeometryProc(
     ClientData dummy,	/* Information about window that got new
diff --git a/generic/tkButton.c b/generic/tkButton.c
index e98f54c..e13eafc 100644
--- a/generic/tkButton.c
+++ b/generic/tkButton.c
@@ -1604,7 +1604,6 @@ TkInvokeButton(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static char *
 ButtonVarProc(
     ClientData clientData,	/* Information about button. */
@@ -1716,7 +1715,6 @@ ButtonVarProc(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static char *
 ButtonTextVarProc(
     ClientData clientData,	/* Information about button. */
diff --git a/generic/tkCanvArc.c b/generic/tkCanvArc.c
index d6ba762..0cf611a 100644
--- a/generic/tkCanvArc.c
+++ b/generic/tkCanvArc.c
@@ -758,7 +758,6 @@ DeleteArc(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static void
 ComputeArcBbox(
     Tk_Canvas canvas,		/* Canvas that contains item. */
@@ -1078,7 +1077,6 @@ DisplayArc(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static double
 ArcToPoint(
     Tk_Canvas canvas,		/* Canvas containing item. */
@@ -1243,7 +1241,6 @@ ArcToPoint(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 ArcToArea(
     Tk_Canvas canvas,		/* Canvas containing item. */
diff --git a/generic/tkCanvBmap.c b/generic/tkCanvBmap.c
index b9ef3bd..9499f8a 100644
--- a/generic/tkCanvBmap.c
+++ b/generic/tkCanvBmap.c
@@ -474,7 +474,6 @@ DeleteBitmap(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static void
 ComputeBitmapBbox(
     Tk_Canvas canvas,		/* Canvas that contains item. */
@@ -672,7 +671,6 @@ DisplayBitmap(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static double
 BitmapToPoint(
     Tk_Canvas canvas,		/* Canvas containing item. */
@@ -730,7 +728,6 @@ BitmapToPoint(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 BitmapToArea(
     Tk_Canvas canvas,		/* Canvas containing item. */
diff --git a/generic/tkCanvImg.c b/generic/tkCanvImg.c
index 13bf618..34b52ea 100644
--- a/generic/tkCanvImg.c
+++ b/generic/tkCanvImg.c
@@ -426,7 +426,6 @@ DeleteImage(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static void
 ComputeImageBbox(
     Tk_Canvas canvas,		/* Canvas that contains item. */
diff --git a/generic/tkCanvLine.c b/generic/tkCanvLine.c
index 022d85e..980d170 100644
--- a/generic/tkCanvLine.c
+++ b/generic/tkCanvLine.c
@@ -1327,7 +1327,6 @@ LineDeleteCoords(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static double
 LineToPoint(
     Tk_Canvas canvas,		/* Canvas containing item. */
@@ -1555,7 +1554,6 @@ LineToPoint(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 LineToArea(
     Tk_Canvas canvas,		/* Canvas containing item. */
@@ -1931,7 +1929,6 @@ RotateLine(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 ParseArrowShape(
     ClientData dummy,	/* Not used. */
@@ -2002,7 +1999,6 @@ ParseArrowShape(
  *--------------------------------------------------------------
  */
 
-    /* ARGSUSED */
 static const char *
 PrintArrowShape(
     ClientData dummy,	/* Not used. */
@@ -2159,7 +2155,6 @@ ArrowPrintProc(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 ConfigureArrows(
     Tk_Canvas canvas,		/* Canvas in which arrows will be displayed
diff --git a/generic/tkCanvPoly.c b/generic/tkCanvPoly.c
index 5b5769a..19c5f6d 100644
--- a/generic/tkCanvPoly.c
+++ b/generic/tkCanvPoly.c
@@ -1247,7 +1247,6 @@ PolygonDeleteCoords(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static double
 PolygonToPoint(
     Tk_Canvas canvas,		/* Canvas containing item. */
@@ -1437,7 +1436,6 @@ PolygonToPoint(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 PolygonToArea(
     Tk_Canvas canvas,		/* Canvas containing item. */
diff --git a/generic/tkCanvPs.c b/generic/tkCanvPs.c
index 444d6ff..77cff1f 100644
--- a/generic/tkCanvPs.c
+++ b/generic/tkCanvPs.c
@@ -157,7 +157,6 @@ static inline Tcl_Obj *	GetPostscriptBuffer(Tcl_Interp *interp);
  *--------------------------------------------------------------
  */
 
-    /* ARGSUSED */
 int
 TkCanvPostscriptCmd(
     TkCanvas *canvasPtr,	/* Information about canvas widget. */
diff --git a/generic/tkCanvText.c b/generic/tkCanvText.c
index f260f8a..baf85df 100644
--- a/generic/tkCanvText.c
+++ b/generic/tkCanvText.c
@@ -839,7 +839,7 @@ DisplayCanvText(
     }
 
     selFirstChar = -1;
-    selLastChar = 0;		/* lint. */
+    selLastChar = 0;
     Tk_CanvasDrawableCoords(canvas, textPtr->drawOrigin[0],
 	    textPtr->drawOrigin[1], &drawableX, &drawableY);
 
@@ -1301,7 +1301,6 @@ RotateText(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static void
 ScaleText(
     Tk_Canvas canvas,		/* Canvas containing rectangle. */
@@ -1470,7 +1469,6 @@ GetTextIndex(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static void
 SetTextCursor(
     Tk_Canvas canvas,		/* Record describing canvas widget. */
@@ -1645,7 +1643,7 @@ TextToPostscript(
 		Tcl_GetString(Tcl_GetObjResult(interp)));
     }
 
-    x = 0;  y = 0;  justify = NULL;	/* lint. */
+    x = 0;  y = 0;  justify = NULL;
     switch (textPtr->anchor) {
     case TK_ANCHOR_NW:	   x = 0; y = 0; break;
     case TK_ANCHOR_N:	   x = 1; y = 0; break;
diff --git a/generic/tkCanvWind.c b/generic/tkCanvWind.c
index cdce65d..22729d6 100644
--- a/generic/tkCanvWind.c
+++ b/generic/tkCanvWind.c
@@ -1116,7 +1116,6 @@ WinItemRequestProc(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static void
 WinItemLostSlaveProc(
     ClientData clientData,	/* WindowItem structure for slave window that
diff --git a/generic/tkCanvas.c b/generic/tkCanvas.c
index 53ea6d5..d3868d5 100644
--- a/generic/tkCanvas.c
+++ b/generic/tkCanvas.c
@@ -6056,7 +6056,6 @@ CanvasSetOrigin(
  *----------------------------------------------------------------------
  */
 
-/* ARGSUSED */
 static const char **
 TkGetStringsFromObjs(
     int objc,
diff --git a/generic/tkClipboard.c b/generic/tkClipboard.c
index 782fd4e..ed555a9 100644
--- a/generic/tkClipboard.c
+++ b/generic/tkClipboard.c
@@ -706,7 +706,6 @@ TkClipInit(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 ClipboardGetProc(
     ClientData clientData,	/* Dynamic string holding partially assembled
diff --git a/generic/tkCmds.c b/generic/tkCmds.c
index 2c0eadb..c9026ef 100644
--- a/generic/tkCmds.c
+++ b/generic/tkCmds.c
@@ -527,7 +527,6 @@ Tk_DestroyObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tk_LowerObjCmd(
     ClientData clientData,	/* Main window associated with interpreter. */
@@ -587,7 +586,6 @@ Tk_LowerObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tk_RaiseObjCmd(
     ClientData clientData,	/* Main window associated with interpreter. */
@@ -985,7 +983,6 @@ InactiveCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tk_TkwaitObjCmd(
     ClientData clientData,	/* Main window associated with interpreter. */
@@ -1114,7 +1111,6 @@ Tk_TkwaitObjCmd(
     return code;
 }
 
-	/* ARGSUSED */
 static char *
 WaitVariableProc(
     ClientData clientData,	/* Pointer to integer to set to 1. */
@@ -1133,7 +1129,6 @@ WaitVariableProc(
     return NULL;
 }
 
-	/*ARGSUSED*/
 static void
 WaitVisibilityProc(
     ClientData clientData,	/* Pointer to integer to set to 1. */
@@ -1177,7 +1172,6 @@ WaitWindowProc(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tk_UpdateObjCmd(
     ClientData dummy,	/* Main window associated with interpreter. */
@@ -1894,7 +1888,6 @@ TkGetDisplayOf(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 TkDeadAppObjCmd(
     ClientData dummy,	/* Dummy. */
diff --git a/generic/tkConfig.c b/generic/tkConfig.c
index 457f388..1950cf6 100644
--- a/generic/tkConfig.c
+++ b/generic/tkConfig.c
@@ -1529,7 +1529,6 @@ Tk_FreeSavedOptions(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 void
 Tk_FreeConfigOptions(
     void *recordPtr,		/* Record whose fields contain current values
diff --git a/generic/tkConsole.c b/generic/tkConsole.c
index e63f8f2..0ab2954 100644
--- a/generic/tkConsole.c
+++ b/generic/tkConsole.c
@@ -559,7 +559,6 @@ ConsoleOutput(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 ConsoleInput(
     void *dummy,		/* Unused. */
@@ -592,7 +591,6 @@ ConsoleInput(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 ConsoleClose(
     ClientData instanceData,
@@ -645,7 +643,6 @@ Console2Close(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static void
 ConsoleWatch(
     ClientData dummy,	/* Device ID for the channel. */
@@ -674,7 +671,6 @@ ConsoleWatch(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 ConsoleHandle(
     ClientData dummy,	/* Device ID for the channel. */
diff --git a/generic/tkEntry.c b/generic/tkEntry.c
index e203811..a5e09bd 100644
--- a/generic/tkEntry.c
+++ b/generic/tkEntry.c
@@ -1112,13 +1112,13 @@ ConfigureEntry(
     Spinbox *sbPtr = (Spinbox *) entryPtr;
 				/* Only used when this widget is of type
 				 * TK_SPINBOX */
-    char *oldValues = NULL;	/* lint initialization */
-    char *oldFormat = NULL;	/* lint initialization */
+    char *oldValues = NULL;
+    char *oldFormat = NULL;
     int error;
-    int oldExport = 0;		/* lint initialization */
-    int valuesChanged = 0;	/* lint initialization */
-    double oldFrom = 0.0;	/* lint initialization */
-    double oldTo = 0.0;		/* lint initialization */
+    int oldExport = 0;
+    int valuesChanged = 0;
+    double oldFrom = 0.0;
+    double oldTo = 0.0;
     int code;
 
     /*
@@ -3217,7 +3217,6 @@ EntryFocusProc(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static char *
 EntryTextVarProc(
     ClientData clientData,	/* Information about button. */
diff --git a/generic/tkFont.c b/generic/tkFont.c
index 1604eca..916c48b 100644
--- a/generic/tkFont.c
+++ b/generic/tkFont.c
@@ -616,7 +616,7 @@ Tk_FontObjCmd(
     	}
     	string = Tcl_GetString(objv[2]);
     	namedHashPtr = Tcl_FindHashEntry(&fiPtr->namedTable, string);
-	nfPtr = NULL;		/* lint. */
+	nfPtr = NULL;
     	if (namedHashPtr != NULL) {
     	    nfPtr = (NamedFont *)Tcl_GetHashValue(namedHashPtr);
     	}
diff --git a/generic/tkGrab.c b/generic/tkGrab.c
index 6de6865..012d434 100644
--- a/generic/tkGrab.c
+++ b/generic/tkGrab.c
@@ -166,7 +166,6 @@ static void		ReleaseButtonGrab(TkDisplay *dispPtr);
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 Tk_GrabObjCmd(
     ClientData clientData,	/* Main window associated with interpreter. */
diff --git a/generic/tkGrid.c b/generic/tkGrid.c
index b60ed69..32246ae 100644
--- a/generic/tkGrid.c
+++ b/generic/tkGrid.c
@@ -1010,8 +1010,8 @@ GridRowColumnConfigureCommand(
     }
 
     masterPtr = GetGrid(master);
-    first = 0; /* lint */
-    last = 0; /* lint */
+    first = 0;
+    last = 0;
 
     if ((objc == 4) || (objc == 5)) {
 	if (lObjc != 1) {
diff --git a/generic/tkImage.c b/generic/tkImage.c
index afb6f43..1874d38 100644
--- a/generic/tkImage.c
+++ b/generic/tkImage.c
@@ -1119,7 +1119,6 @@ Tk_GetImageMasterData(
  *----------------------------------------------------------------------
  */
 
-/*ARGSUSED*/
 void
 Tk_SetTSOrigin(
     Tk_Window tkwin,
diff --git a/generic/tkImgBmap.c b/generic/tkImgBmap.c
index a47cfab..a43d2b7 100644
--- a/generic/tkImgBmap.c
+++ b/generic/tkImgBmap.c
@@ -169,7 +169,6 @@ static int		NextBitmapWord(ParseInfo *parseInfoPtr);
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 ImgBmapCreate(
     Tcl_Interp *interp,		/* Interpreter for application containing
diff --git a/generic/tkMain.c b/generic/tkMain.c
index 948f811..879a7c0 100644
--- a/generic/tkMain.c
+++ b/generic/tkMain.c
@@ -394,7 +394,6 @@ Tk_MainEx(
  *----------------------------------------------------------------------
  */
 
-    /* ARGSUSED */
 static void
 StdinProc(
     ClientData clientData,	/* The state of interactive cmd line */
diff --git a/generic/tkMenubutton.c b/generic/tkMenubutton.c
index 2d4b4e3..085f5e7 100644
--- a/generic/tkMenubutton.c
+++ b/generic/tkMenubutton.c
@@ -869,7 +869,6 @@ MenuButtonCmdDeletedProc(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static char *
 MenuButtonTextVarProc(
     ClientData clientData,	/* Information about button. */
diff --git a/generic/tkMessage.c b/generic/tkMessage.c
index 0ce386d..e43d660 100644
--- a/generic/tkMessage.c
+++ b/generic/tkMessage.c
@@ -828,7 +828,6 @@ MessageCmdDeletedProc(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static char *
 MessageTextVarProc(
     ClientData clientData,	/* Information about message. */
diff --git a/generic/tkOldConfig.c b/generic/tkOldConfig.c
index 67ac6e9..7400b32 100644
--- a/generic/tkOldConfig.c
+++ b/generic/tkOldConfig.c
@@ -976,7 +976,6 @@ Tk_ConfigureValue(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 void
 Tk_FreeOptions(
     const Tk_ConfigSpec *specs,	/* Describes legal options. */
diff --git a/generic/tkOldTest.c b/generic/tkOldTest.c
index 50d036d..d9e8053 100644
--- a/generic/tkOldTest.c
+++ b/generic/tkOldTest.c
@@ -134,7 +134,6 @@ TkOldTestInit(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 ImageCreate(
     Tcl_Interp *interp,		/* Interpreter for application containing
@@ -201,7 +200,6 @@ ImageCreate(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 ImageObjCmd(
     ClientData clientData,	/* Main window for application. */
diff --git a/generic/tkPack.c b/generic/tkPack.c
index 4c41e0f..796530a 100644
--- a/generic/tkPack.c
+++ b/generic/tkPack.c
@@ -515,7 +515,6 @@ Tk_PackObjCmd(
  *------------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static void
 PackReqProc(
     ClientData clientData,	/* Packer's information about window that got
@@ -550,7 +549,6 @@ PackReqProc(
  *------------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static void
 PackLostSlaveProc(
     ClientData clientData,	/* Packer structure for slave window that was
diff --git a/generic/tkPlace.c b/generic/tkPlace.c
index 2e2b9dc..ce79677 100644
--- a/generic/tkPlace.c
+++ b/generic/tkPlace.c
@@ -1194,7 +1194,6 @@ SlaveStructureProc(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static void
 PlaceRequestProc(
     ClientData clientData,	/* Pointer to our record for slave. */
@@ -1241,7 +1240,6 @@ PlaceRequestProc(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static void
 PlaceLostSlaveProc(
     ClientData clientData,	/* Slave structure for slave window that was
diff --git a/generic/tkRectOval.c b/generic/tkRectOval.c
index 42dcdb8..f40e788 100644
--- a/generic/tkRectOval.c
+++ b/generic/tkRectOval.c
@@ -622,7 +622,6 @@ DeleteRectOval(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static void
 ComputeRectOvalBbox(
     Tk_Canvas canvas,		/* Canvas that contains item. */
@@ -966,7 +965,6 @@ DisplayRectOval(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static double
 RectToPoint(
     Tk_Canvas canvas,		/* Canvas containing item. */
@@ -1086,7 +1084,6 @@ RectToPoint(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static double
 OvalToPoint(
     Tk_Canvas canvas,		/* Canvas containing item. */
@@ -1141,7 +1138,6 @@ OvalToPoint(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 RectToArea(
     Tk_Canvas canvas,		/* Canvas containing item. */
@@ -1215,7 +1211,6 @@ RectToArea(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 OvalToArea(
     Tk_Canvas canvas,		/* Canvas containing item. */
diff --git a/generic/tkScale.c b/generic/tkScale.c
index 6261b3a..9fbc2cc 100644
--- a/generic/tkScale.c
+++ b/generic/tkScale.c
@@ -1338,7 +1338,6 @@ TkRoundIntervalToResolution(
  *----------------------------------------------------------------------
  */
 
-    /* ARGSUSED */
 static char *
 ScaleVarProc(
     ClientData clientData,	/* Information about button. */
diff --git a/generic/tkSelect.c b/generic/tkSelect.c
index 93a047f..ded8a11 100644
--- a/generic/tkSelect.c
+++ b/generic/tkSelect.c
@@ -1285,7 +1285,6 @@ TkSelClearSelection(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 SelGetProc(
     ClientData clientData,	/* Dynamic string holding partially assembled
diff --git a/generic/tkTest.c b/generic/tkTest.c
index ace6da2..c4eb3fe 100644
--- a/generic/tkTest.c
+++ b/generic/tkTest.c
@@ -339,7 +339,6 @@ Tktest_Init(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestbitmapObjCmd(
     ClientData clientData,	/* Main window for application. */
@@ -375,7 +374,6 @@ TestbitmapObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestborderObjCmd(
     ClientData clientData,	/* Main window for application. */
@@ -411,7 +409,6 @@ TestborderObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestcolorObjCmd(
     ClientData clientData,	/* Main window for application. */
@@ -447,7 +444,6 @@ TestcolorObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestcursorObjCmd(
     ClientData clientData,	/* Main window for application. */
@@ -484,7 +480,6 @@ TestcursorObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestdeleteappsObjCmd(
     ClientData clientData,	/* Main window for application. */
@@ -525,7 +520,6 @@ TestdeleteappsObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestobjconfigObjCmd(
     ClientData clientData,	/* Main window for application. */
@@ -1158,7 +1152,6 @@ TestobjconfigObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TrivialConfigObjCmd(
     ClientData clientData,	/* Main window for application. */
@@ -1341,7 +1334,6 @@ TrivialEventProc(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestfontObjCmd(
     ClientData clientData,	/* Main window for application. */
@@ -1401,7 +1393,6 @@ TestfontObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 ImageCreate(
     Tcl_Interp *interp,		/* Interpreter for application containing
@@ -1468,7 +1459,6 @@ ImageCreate(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 ImageObjCmd(
     ClientData clientData,	/* Main window for application. */
@@ -1718,7 +1708,6 @@ ImageDelete(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestmakeexistObjCmd(
     ClientData clientData,	/* Main window for application. */
@@ -1759,7 +1748,6 @@ TestmakeexistObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 #if !(defined(_WIN32) || defined(MAC_OSX_TK) || defined(__CYGWIN__))
 static int
 TestmenubarObjCmd(
@@ -1875,7 +1863,6 @@ TestmetricsObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestpropObjCmd(
     ClientData clientData,	/* Main window for application. */
@@ -1952,7 +1939,6 @@ TestpropObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestprintfObjCmd(
     ClientData dummy,	/* Not used */
@@ -2009,7 +1995,6 @@ TestprintfObjCmd(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestwrapperObjCmd(
     ClientData clientData,	/* Main window for application. */
@@ -2192,7 +2177,6 @@ CustomOptionFree(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 TestPhotoStringMatchCmd(
     ClientData clientData,	/* Main window for application. */
diff --git a/generic/tkTextBTree.c b/generic/tkTextBTree.c
index ced1e2e..071ae59 100644
--- a/generic/tkTextBTree.c
+++ b/generic/tkTextBTree.c
@@ -2037,7 +2037,6 @@ TkBTreeLinesTo(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 void
 TkBTreeLinkSegment(
     TkTextSegment *segPtr,	/* Pointer to new segment to be added to
@@ -2080,7 +2079,6 @@ TkBTreeLinkSegment(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 void
 TkBTreeUnlinkSegment(
     TkTextSegment *segPtr,	/* Segment to be unlinked. */
@@ -3336,7 +3334,6 @@ TkBTreeCharTagged(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 TkTextTag **
 TkBTreeGetTags(
     const TkTextIndex *indexPtr,/* Indicates a particular position in the
@@ -3482,7 +3479,6 @@ TkBTreeGetTags(
  *----------------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 TkTextIsElided(
     const TkText *textPtr,	/* Overall information about text widget. */
@@ -4592,7 +4588,6 @@ CharSplitProc(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static TkTextSegment *
 CharCleanupProc(
     TkTextSegment *segPtr,	/* Pointer to first of two adjacent segments
@@ -4634,7 +4629,6 @@ CharCleanupProc(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 CharDeleteProc(
     TkTextSegment *segPtr,	/* Segment to delete. */
@@ -4667,7 +4661,6 @@ CharDeleteProc(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static void
 CharCheckProc(
     TkTextSegment *segPtr,	/* Segment to check. */
diff --git a/generic/tkTextDisp.c b/generic/tkTextDisp.c
index 7bcaed9..083572a 100644
--- a/generic/tkTextDisp.c
+++ b/generic/tkTextDisp.c
@@ -8684,7 +8684,7 @@ MeasureChars(
     int curX, width, ch;
     const char *special, *end, *start;
 
-    ch = 0;			/* lint. */
+    ch = 0;
     curX = startX;
     start = source + rangeStart;
     end = start + rangeLength;
diff --git a/generic/tkTextImage.c b/generic/tkTextImage.c
index 9da8eff..4dc2c75 100644
--- a/generic/tkTextImage.c
+++ b/generic/tkTextImage.c
@@ -444,7 +444,6 @@ EmbImageConfigure(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 EmbImageDeleteProc(
     TkTextSegment *eiPtr,	/* Segment being deleted. */
@@ -529,7 +528,6 @@ EmbImageCleanupProc(
  *--------------------------------------------------------------
  */
 
-	/*ARGSUSED*/
 static int
 EmbImageLayoutProc(
     TkText *textPtr,		/* Text widget being layed out. */
diff --git a/generic/tkTextMark.c b/generic/tkTextMark.c
index 90af324..11acf37 100644
--- a/generic/tkTextMark.c
+++ b/generic/tkTextMark.c
@@ -499,7 +499,6 @@ TkTextMarkNameToIndex(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 MarkDeleteProc(
     TkTextSegment *segPtr,	/* Segment being deleted. */
@@ -626,7 +625,6 @@ MarkLayoutProc(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 void
 TkTextInsertDisplayProc(
     TkText *textPtr,		/* The current text widget. */
@@ -735,7 +733,6 @@ TkTextInsertDisplayProc(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static void
 InsertUndisplayProc(
     TkText *textPtr,		/* Overall information about text widget. */
diff --git a/generic/tkTextWind.c b/generic/tkTextWind.c
index 364632d..6e0d5bb 100644
--- a/generic/tkTextWind.c
+++ b/generic/tkTextWind.c
@@ -573,7 +573,6 @@ EmbWinStructureProc(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static void
 EmbWinRequestProc(
     ClientData clientData,	/* Pointer to record for window item. */
@@ -737,7 +736,6 @@ TkTextWinFreeClient(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 static int
 EmbWinDeleteProc(
     TkTextSegment *ewPtr,	/* Segment being deleted. */
@@ -819,7 +817,6 @@ EmbWinCleanupProc(
  *--------------------------------------------------------------
  */
 
-	/*ARGSUSED*/
 static int
 EmbWinLayoutProc(
     TkText *textPtr,		/* Text widget being layed out. */
diff --git a/generic/tkTrig.c b/generic/tkTrig.c
index 101f09b..c0691a5 100644
--- a/generic/tkTrig.c
+++ b/generic/tkTrig.c
@@ -282,7 +282,6 @@ TkLineToArea(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 int
 TkThickPolyLineToArea(
     double *coordPtr,		/* Points to an array of coordinates for the
@@ -652,7 +651,6 @@ TkPolygonToArea(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 double
 TkOvalToPoint(
     double ovalPtr[4],		/* Pointer to array of four coordinates (x1,
@@ -867,7 +865,6 @@ TkOvalToArea(
  *--------------------------------------------------------------
  */
 
-	/* ARGSUSED */
 void
 TkIncludePoint(
     Tk_Item *itemPtr,	/* Item whose bounding box is being