Shorten sequences of multiple blank lines

generic/tclCmdIL.c

@@ -4206,7 +4206,6 @@ Tcl_LseqObjCmd(
 	}
     }
 
-
     /*
      * Success!  Now lets create the series object.
      */

generic/tclCompCmds.c

@@ -1564,7 +1564,6 @@ TclCompileDictMergeCmd(
     }
     OP(				END_CATCH);
 
-
     /*
      * Clean up any state left over.
      */

generic/tclEncoding.c

@@ -986,7 +986,6 @@ Tcl_SetSystemEncoding(
 {
     Tcl_Encoding encoding = NULL;
 
-
     if (name && *name) {
 	encoding = Tcl_GetEncoding(interp, name); /* this increases refCount */
 	if (encoding == NULL) {
@@ -999,11 +998,7 @@ Tcl_SetSystemEncoding(
     if ((encoding ? encoding : defaultEncoding) == systemEncoding) {
 	if (encoding) {
 	    Tcl_FreeEncoding(encoding); /* paired to Tcl_GetEncoding */
-
-
 	}
-
-
 	return TCL_OK;
     }
 
@@ -1385,7 +1380,6 @@ Tcl_ExternalToUtf(
 	result = TCL_ERROR;
     }
 
-
     if (srcReadPtr) {
 	*srcReadPtr = (int)srcRead;
     }
@@ -1545,9 +1539,8 @@ Tcl_ExternalToUtfEx(
 	}
 
 	result = encodingPtr->toUtfProc(encodingPtr->clientData, src,
-	    chunkSrcLen, chunkFlags, statePtr, dst, chunkDstLen, &chunkSrcRead,
-	    &chunkDstWritten, &chunkDstChars);
-
+		chunkSrcLen, chunkFlags, statePtr, dst, chunkDstLen,
+		&chunkSrcRead, &chunkDstWritten, &chunkDstChars);
 
 	assert(chunkSrcRead <= srcBytesLeft);
 	srcBytesLeft -= chunkSrcRead;

generic/tclInt.h

@@ -2048,7 +2048,6 @@ typedef struct Interp {
     Namespace *lookupNsPtr;	/* Namespace to use ONLY on the next
 				 * TCL_EVAL_INVOKE call to Tcl_EvalObjv. */
 
-
     /*
      * Information about packages. Used only in tclPkg.c.
      */

generic/tclIntDecls.h

@@ -15,7 +15,6 @@
 #ifndef _TCLINTDECLS
 #define _TCLINTDECLS
 
-
 #undef TCL_STORAGE_CLASS
 #ifdef BUILD_tcl
 #   define TCL_STORAGE_CLASS DLLEXPORT

generic/tclInterp.c

@@ -4378,7 +4378,6 @@ Tcl_LimitSetTime(
     Interp *iPtr = (Interp *) interp;
     long long nextMoment;
 
-
     iPtr->limit.time = *timeLimitPtr;
     if (iPtr->limit.timeEvent != NULL) {
 	Tcl_DeleteTimerHandler(iPtr->limit.timeEvent);

generic/tclOODecls.h

@@ -281,7 +281,6 @@ extern const TclOOStubs *tclOOStubsPtr;
 #   undef Tcl_NewMethod
 #endif
 
-
 #if defined(__STDC_VERSION__) && (__STDC_VERSION__ >= 201112L)
 #ifndef TclOOGeneric
 /* Select method based on type of argument. */

generic/tclOODefineCmds.c

@@ -2018,7 +2018,6 @@ TclOODefineDestructorObjCmd(
 	return TCL_ERROR;
     }
 
-
     (void) TclGetStringFromObj(objv[1], &bodyLength);
     if (bodyLength > 0) {
 	/*

generic/tclProc.c

@@ -1687,7 +1687,6 @@ TclObjInterpProc(
 }
 #endif /* TCL_NO_DEPRECATED */
 
-
 /*
  *----------------------------------------------------------------------
  *

generic/tclStrToD.c

@@ -1876,7 +1876,6 @@ MakeHighPrecisionDouble(
      * Very high numbers are returned, if this is not handled
      */
 
-
     if (exponent < -511) {
 	if (mp_init_copy(&bntmp, significand) != MP_OKAY) {
 	    Tcl_Panic("initialization failure in MakeHighPrecisionDouble");

generic/tclTest.c

@@ -8330,7 +8330,6 @@ TestNREUnwind(
     return TCL_OK;
 }
 
-
 static int
 TestNRELevels(
     TCL_UNUSED(void *),
@@ -9708,7 +9707,6 @@ TestAppVerifierPresentCmd(
     return TCL_OK;
 }
 
-
 #endif /* _WIN32 */
 
 /*

generic/tclTestABSList.c

@@ -617,7 +617,6 @@ my_LStringReplace(
     // Terminate new string.
     newStr[newLen] = 0;
 
-
     if (oldStr != newStr) {
 	Tcl_Free(oldStr);
     }
@@ -836,7 +835,6 @@ UpdateStringOfLString(
     Tcl_Size bytesNeeded = 0;
     Tcl_Size llen, i;
 
-
     /*
      * Handle empty list case first, so rest of the routine is simpler.
      */

generic/tclZipfs.c

@@ -4424,7 +4424,6 @@ TclZipfsMountShlib(void)
 #endif
 }
 
-
 /*
  *-------------------------------------------------------------------------
  *

library/auto.tcl

@@ -217,7 +217,6 @@ proc tcl_findLibrary {basename version patch initScript enVarName varName} {
     error $msg
 }
 
-
 # ----------------------------------------------------------------------
 # auto_mkindex
 # ----------------------------------------------------------------------

library/http/http.tcl

@@ -1518,7 +1518,6 @@ proc http::CreateToken {url args} {
     return $token
 }
 
-
 # ------------------------------------------------------------------------------
 #  Proc ::http::SockIsPlaceHolder
 # ------------------------------------------------------------------------------
@@ -1536,7 +1535,6 @@ proc http::SockIsPlaceHolder {sock} {
     expr {[string range $sock 0 16] eq {HTTP_PLACEHOLDER_}}
 }
 
-
 # ------------------------------------------------------------------------------
 # state(reusing)
 # ------------------------------------------------------------------------------
@@ -1556,7 +1554,6 @@ proc http::SockIsPlaceHolder {sock} {
 #                   write.
 # ------------------------------------------------------------------------------
 
-
 # ------------------------------------------------------------------------------
 #  Proc http::AsyncTransaction
 # ------------------------------------------------------------------------------
@@ -1632,7 +1629,6 @@ proc http::AsyncTransaction {token} {
     return
 }
 
-
 # ------------------------------------------------------------------------------
 #  Proc http::PreparePersistentConnection
 # ------------------------------------------------------------------------------
@@ -1827,7 +1823,6 @@ proc http::OpenSocket {token DoLater} {
     return
 }
 
-
 # ------------------------------------------------------------------------------
 #  Proc ::http::ConfigureNewSocket
 # ------------------------------------------------------------------------------
@@ -1943,7 +1938,6 @@ proc http::ConfigureNewSocket {token sockOld DoLater} {
     return
 }
 
-
 # ------------------------------------------------------------------------------
 # The values of array variables socketMapping etc.
 # ------------------------------------------------------------------------------
@@ -1975,7 +1969,6 @@ proc http::ConfigureNewSocket {token sockOld DoLater} {
 #                        is to set the value of state() for caller information.
 # ------------------------------------------------------------------------------
 
-
 # ------------------------------------------------------------------------------
 # Using socketWrState(*), socketWrQueue(*), socketRdState(*), socketRdQueue(*)
 # ------------------------------------------------------------------------------
@@ -1999,7 +1992,6 @@ proc http::ConfigureNewSocket {token sockOld DoLater} {
 # the event loop unless the socket is idle.
 # ------------------------------------------------------------------------------
 
-
 # ------------------------------------------------------------------------------
 #  Proc http::ScheduleRequest
 # ------------------------------------------------------------------------------
@@ -2123,7 +2115,6 @@ proc http::ScheduleRequest {token} {
     return
 }
 
-
 # ------------------------------------------------------------------------------
 #  Proc http::SendHeader
 # ------------------------------------------------------------------------------
@@ -2605,7 +2596,6 @@ proc http::ReceiveResponse {token} {
     return
 }
 
-
 # http::EventGateway
 #
 #	Bug [c2dc1da315].
@@ -2641,7 +2631,6 @@ proc http::EventGateway {sock token} {
     return -options $opts $res
 }
 
-
 # http::NextPipelinedWrite
 #
 # - Connecting a socket to a token for writing is done by this command and by
@@ -2936,7 +2925,6 @@ proc http::ReplayIfDead {token doing} {
     lappend newQueue {*}$InFlightW
     lappend newQueue {*}$socketWrQueue($state(socketinfo))
 
-
     # 2. Tidy up token.  This is a cut-down form of Finish/CloseSocket.
     #    Do not change state(status).
     #    No need to after cancel state(after) - either this is done in
@@ -3257,7 +3245,6 @@ proc http::Meta {token who args} {
     }
 }
 
-
 # ------------------------------------------------------------------------------
 #  Proc http::responseInfo
 # ------------------------------------------------------------------------------
@@ -4572,7 +4559,6 @@ proc http::Eot {token {reason {}}} {
     return
 }
 
-
 # ------------------------------------------------------------------------------
 #  Proc http::GuessType
 # ------------------------------------------------------------------------------
@@ -4653,7 +4639,6 @@ proc http::GuessType {token} {
     return 1
 }
 
-
 # http::wait --
 #
 #	See documentation for details.
@@ -4806,7 +4791,6 @@ proc http::CharsetToEncoding {charset} {
     }
 }
 
-
 # ------------------------------------------------------------------------------
 #  Proc http::ContentEncoding
 # ------------------------------------------------------------------------------
@@ -4901,7 +4885,6 @@ proc http::SplitCommaSeparatedFieldValue {fieldValue} {
     return $r
 }
 
-
 # http::GetFieldValue --
 #	Return the value of a header field.
 #
@@ -4944,7 +4927,6 @@ interp alias {} http::meta {} http::responseHeaders
 interp alias {} http::metaValue {} http::responseHeaderValue
 interp alias {} http::ncode {} http::responseCode
 
-
 # ------------------------------------------------------------------------------
 #  Proc http::socketAsCallback
 # ------------------------------------------------------------------------------
@@ -4999,7 +4981,6 @@ proc http::socketAsCallback {args} {
     return $sock
 }
 
-
 # ------------------------------------------------------------------------------
 #  Proc http::SecureProxyConnect
 # ------------------------------------------------------------------------------
@@ -5190,7 +5171,6 @@ proc http::AllDone {varName args} {
     return
 }
 
-
 # ------------------------------------------------------------------------------
 #  Proc http::AltSocket
 # ------------------------------------------------------------------------------
@@ -5332,7 +5312,6 @@ proc http::LoadThreadIfNeeded {} {
     return
 }
 
-
 # ------------------------------------------------------------------------------
 #  Proc http::SockInThread
 # ------------------------------------------------------------------------------
@@ -5358,7 +5337,6 @@ proc http::SockInThread {caller defcmd sockargs} {
     return [list $catchCode $errdict $sock]
 }
 
-
 # ------------------------------------------------------------------------------
 #  Proc http::cwaiter::cwait
 # ------------------------------------------------------------------------------
@@ -5414,7 +5392,6 @@ proc http::cwaiter::cwait {
     return
 }
 
-
 # ------------------------------------------------------------------------------
 #  Proc http::cwaiter::CwaitHelper
 # ------------------------------------------------------------------------------
@@ -5437,7 +5414,6 @@ proc http::cwaiter::CwaitHelper {varName coroName toe args} {
     return
 }
 
-
 # ------------------------------------------------------------------------------
 #  Proc http::cwaiter::LogInit
 # ------------------------------------------------------------------------------

library/init.tcl

@@ -43,7 +43,6 @@ tcl::InitAutoPath
 
 namespace eval tcl::Pkg {}
 
-
 # Setup the unknown package handler
 if {[interp issafe]} {
     package unknown {::tcl::tm::UnknownHandler ::tclPkgUnknown}

library/install.tcl

@@ -143,7 +143,6 @@ proc ::practcl::_pkgindex_directory {path} {
     return $buffer
 }
 
-
 proc ::practcl::_pkgindex_path_subdir {path} {
     set result {}
     foreach subpath [glob -nocomplain [file join $path *]] {

library/opt/optparse.tcl

@@ -22,7 +22,6 @@ namespace eval ::tcl {
 	    Lassign Lvarpop Lvarpop1 Lvarset Lvarincr \
 	    SetMax SetMin
 
-
 #################  Example of use / 'user documentation'  ###################
 
     proc OptCreateTestProc {} {
@@ -362,10 +361,6 @@ proc ::tcl::OptProcArgGiven {argname} {
     }
     #######
 
-
-
-
-
     # Loop over all descriptions, calling OptDoOne which will
     # eventually eat all the arguments.
     proc OptDoAll {descriptionsName argumentsName} {
@@ -565,7 +560,6 @@ proc ::tcl::OptKeyParse {descKey arglist} {
 	return $vnamesLst
     }
 
-
 # Check the type of a value
 # and emit an error if arg is not of the correct type
 # otherwise returns the canonical value of that arg (ie 0/1 for booleans)
@@ -721,7 +715,6 @@ proc ::tcl::OptCheckType {arg type {typeArgs ""}} {
 		?helpstring?}"
     }
 
-
     # Generate a canonical form single instruction
     proc OptNewInst {state varname type typeArgs help} {
 	list $state $varname [list 0 {}] $type $typeArgs $help
@@ -920,7 +913,6 @@ proc ::tcl::OptError {prefix desc {header 0}} {
     return "$prefix[OptTree $desc $nl $tl $dl]"
 }
 
-
 ################     General Utility functions   #######################
 
 #
@@ -1061,7 +1053,6 @@ proc ::tcl::SetMin {varname value} {
     }
 }
 
-
     # everything loaded fine, lets create the test proc:
  #    OptCreateTestProc
     # Don't need the create temp proc anymore:

library/platform/platform.tcl

@@ -420,7 +420,6 @@ proc ::platform::patterns {id} {
     return $res
 }
 
-
 # ### ### ### ######### ######### #########
 ## Ready
 

library/safe.tcl

@@ -480,7 +480,6 @@ proc ::safe::InterpSetConfig {child access_path staticsok nestedok deletehook au
     return
 }
 
-
 #
 # DetokPath:
 #    Convert tokens to directories where possible.
@@ -513,7 +512,6 @@ proc ::safe::interpFindInAccessPath {child path} {
     return [dict get $state(access_path,remap) $path]
 }
 
-
 #
 # addToAccessPath:
 #    add (if needed) a real directory to access path and return its

tests-perf/chan.perf.tcl

@@ -15,12 +15,10 @@
 # of this file.
 #
 
-
 if {![namespace exists ::tclTestPerf]} {
   source [file join [file dirname [info script]] test-performance.tcl]
 }
 
-
 namespace eval ::tclTestPerf-Chan {
 
 namespace path {::tclTestPerf}

tests-perf/file.perf.tcl

@@ -15,12 +15,10 @@
 # of this file.
 #
 
-
 if {![namespace exists ::tclTestPerf]} {
   source -encoding utf-8 [file join [file dirname [info script]] test-performance.tcl]
 }
 
-
 namespace eval ::tclTestPerf-File {
 
 namespace path {::tclTestPerf}

tests-perf/list.perf.tcl

@@ -15,12 +15,10 @@
 # of this file.
 #
 
-
 if {![namespace exists ::tclTestPerf]} {
   source [file join [file dirname [info script]] test-performance.tcl]
 }
 
-
 namespace eval ::tclTestPerf-List {
 
 namespace path {::tclTestPerf}

tests-perf/listPerf.tcl

@@ -256,7 +256,6 @@ namespace eval perf::list {
 	# Note: Const indices take different path through bytecode than variable
 	# indices hence separate cases below
 
-
 	# Var case
 	foreach share_mode {shared unshared} {
 	    set idx 0
@@ -1289,7 +1288,6 @@ namespace eval perf::list {
     }
 }
 
-
 if {[info exists ::argv0] && [file tail $::argv0] eq [file tail [info script]]} {
     ::perf::list::test
 }

tests-perf/timer-event.perf.tcl

@@ -15,12 +15,10 @@
 # of this file.
 #
 
-
 if {![namespace exists ::tclTestPerf]} {
   source [file join [file dirname [info script]] test-performance.tcl]
 }
 
-
 namespace eval ::tclTestPerf-Timer-Event {
 
 namespace path {::tclTestPerf}

tests/encodingVectors.tcl

@@ -649,7 +649,6 @@ lappend encUnencodableStrings {*}{
     utf-8 \uDC00 replace efbfbd -1 {} High-surrogate
 }
 
-
 # The icuUcmTests.tcl is generated by the tools/ucm2tests.tcl script
 # and generates test vectors for the above tables for various encodings
 # based on ICU UCM files.

tests/httpTest.tcl

@@ -98,7 +98,6 @@ proc httpTest::LogRecord {txt} {
     return
 }
 
-
 # ------------------------------------------------------------------------------
 # Commands for analysing the logs recorded when calling http::geturl.
 # ------------------------------------------------------------------------------

tests/httpTestScript.tcl

@@ -337,7 +337,6 @@ proc httpTestScript::POST {uriCode args} {
     return
 }
 
-
 proc httpTestScript::RequestAfter {uriCode validate query args} {
     variable CountRequestedSoFar
     variable Delay
@@ -475,7 +474,6 @@ URL      $state(url)
     return
 }
 
-
 proc httpTestScript::runHttpTestScript {scr} {
     variable TimeOutDone
     variable RequestsWhenStopped
@@ -492,7 +490,6 @@ proc httpTestScript::runHttpTestScript {scr} {
     return $RequestsWhenStopped
 }
 
-
 proc httpTestScript::cleanupHttpTestScript {} {
     variable TimeOutDone
     variable RequestsWhenStopped

tests/icuUcmTests.tcl

@@ -46,7 +46,6 @@ if {[info commands printable] eq ""} {
     }
 }
 
-
 #
 # cp1250 (generated from glibc-CP1250-2.1.2)
 

tests/tcltests.tcl

@@ -25,9 +25,7 @@ testConstraint fileevent     [llength [info commands fileevent]]
 testConstraint thread        [expr {![catch {package require Thread 2.7-}]}]
 testConstraint notValgrind   [expr {![testConstraint valgrind]}]
 
-
 namespace eval ::tcltests {
-
     variable TCL_SIZE_MAX [expr {(2**(8*$::tcl_platform(pointerSize)-1))-1}]
 
     proc init {} {
@@ -39,7 +37,6 @@ namespace eval ::tcltests {
 	}
     }
 
-
     # Stolen from dict.test
     proc scriptmemcheck script {
 	set end [lindex [split [memory info] \n] 3 3]
@@ -51,7 +48,6 @@ namespace eval ::tcltests {
 	expr {$end - $tmp}
     }
 
-
     proc tempdir_alternate {} {
 	close [file tempfile tempfile]
 	set tmpdir [file dirname $tempfile]

tests/ucdUtils.tcl

@@ -5,7 +5,7 @@ if {[namespace exists tcltest::ucd]} {
 }
 
 namespace eval tcltests::ucd {
-	# UCD file paths
+    # UCD file paths
     variable normalizationDataFile \
 	[file join [file dirname [info script]] unicodeTestVectors NormalizationTest.txt]
     variable caseFoldDataFile \
@@ -13,8 +13,8 @@ namespace eval tcltests::ucd {
     variable derivedCorePropertiesFile \
 	[file join [file dirname [info script]] unicodeTestVectors DerivedCoreProperties.txt]
 
-	# Highest assigned Unicode code point
-	variable maxCodepoint 0x10ffff
+    # Highest assigned Unicode code point
+    variable maxCodepoint 0x10ffff
 
     tcltest::testConstraint ucdnormalization [file exists $normalizationDataFile]
     tcltest::testConstraint ucdproperties [file exists $derivedCorePropertiesFile]
@@ -77,16 +77,16 @@ namespace eval tcltests::ucd {
     }
 
     proc getNormalizationData {} {
-	    variable normalizationData
-		readNormalizationData
-		return $normalizationData
-	}
+	variable normalizationData
+	readNormalizationData
+	return $normalizationData
+    }
 
     proc getSingleFormChars {} {
-	    variable singleFormChars
-		readNormalizationData
-		return $singleFormChars
-	}
+	variable singleFormChars
+	readNormalizationData
+	return $singleFormChars
+    }
 
     proc readCaseFoldData {} {
 	variable caseFoldData {}
@@ -156,21 +156,20 @@ namespace eval tcltests::ucd {
     }
 
     proc getCaseFoldData {} {
-	    variable caseFoldData
-		readCaseFoldData
-		return $caseFoldData
-	}
+	variable caseFoldData
+	readCaseFoldData
+	return $caseFoldData
+    }
 
     proc getCaseFoldIdentities {} {
-	    variable caseFoldIdentities
-		readCaseFoldData
-		return $caseFoldIdentities
-	}
-
+	variable caseFoldIdentities
+	readCaseFoldData
+	return $caseFoldIdentities
+    }
 
     proc readDerivedCoreProperties {} {
 	variable derivedCorePropertiesFile
-		variable derivedCoreProperties; # Dict indexed by property name
+	variable derivedCoreProperties; # Dict indexed by property name
 
 	set fd [open $derivedCorePropertiesFile]
 	fconfigure $fd -encoding utf-8
@@ -192,7 +191,7 @@ namespace eval tcltests::ucd {
 	    set rangeOfChars [regexp -inline -all {[[:xdigit:]]+} $rangeOfChars]; # xxxx..yyyy
 	    foreach codePoint [lseq 0x[lindex $rangeOfChars 0] .. 0x[lindex $rangeOfChars end]] {
 		set char [format %c $codePoint]
-				dict set derivedCoreProperties $propertyName $char {}
+		dict set derivedCoreProperties $propertyName $char {}
 	    }
 	}
 
@@ -200,14 +199,14 @@ namespace eval tcltests::ucd {
     }
 
     proc getLowercaseChars {} {
-	    variable derivedCoreProperties
-		readDerivedCoreProperties
-		return [dict get $derivedCoreProperties Lowercase]
-	}
+	variable derivedCoreProperties
+	readDerivedCoreProperties
+	return [dict get $derivedCoreProperties Lowercase]
+    }
 
     proc getUppercaseChars {} {
-	    variable derivedCoreProperties
-		readDerivedCoreProperties
-		return [dict get $derivedCoreProperties Uppercase]
-	}
+	variable derivedCoreProperties
+	readDerivedCoreProperties
+	return [dict get $derivedCoreProperties Uppercase]
+    }
 }

tools/checkLibraryDoc.tcl

@@ -19,7 +19,6 @@
 # Copyright © 1998-1999 Scriptics Corporation.
 # All rights reserved.
 
-
 lappend auto_path "c:/program\ files/tclpro1.2/win32-ix86/bin"
 #lappend auto_path "/home/surles/cvs/tclx8.0/tcl/unix"
 if {[catch {package require Tclx}]} {

tools/findBadExternals.tcl

@@ -17,13 +17,11 @@
 #----------------------------------------------------------------------
 
 proc main {argc argv} {
-
     if {$argc != 1} {
 	puts stderr "syntax is: [info script] libtcl"
 	return 1
     }
 
-
     switch -exact -- $::tcl_platform(platform) {
 	unix -
 	macosx {

tools/index.tcl

@@ -87,7 +87,6 @@ proc getTopics {pkg sect} {
 # Arguments:
 # string -		Text to index.
 
-
 proc text string {
     global state curID curPkg curSect topics keywords
 
@@ -118,7 +117,6 @@ proc text string {
     }
 }
 
-
 # macro --
 #
 # This procedure is invoked to process macro invocations that start
@@ -165,7 +163,6 @@ proc macro {name args} {
     }
 }
 
-
 # dash --
 #
 # This procedure is invoked to handle dash characters ("\-" in
@@ -181,8 +178,6 @@ proc dash {} {
     }
 }
 
-
-
 # initGlobals, tab, font, char, macro2 --
 #
 # These procedures do nothing during the first pass.

tools/loadICU.tcl

@@ -328,8 +328,6 @@ proc handleLocaleFile { localeName fileName msgFileName } {
 		}
 	    }
 	    data {
-
-
 		# Inside a data block, collect the strings, doing backslash
 		# expansion to pick up the Unicodes
 

tools/mkdepend.tcl

@@ -40,7 +40,6 @@ if [info exists env(INCLUDE)] {
     }
 }
 
-
 # openOutput --
 #
 #	Opens the output file.
@@ -265,7 +264,6 @@ proc addSearchPath {newPathInfo} {
     lappend srcPathReplaceList [lindex $infoList 1]
 }
 
-
 # displayUsage --
 #
 #	Displays usage to stderr

tools/tcltk-man2html.tcl

@@ -185,7 +185,6 @@ proc parse_command_line {} {
 	puts "using Tcl source directory [file join $tcltkdir $tcldir]"
     }
 
-
     if {$build_tk} {
 	# Find Tk (firstly using glob pattern / backwards compatible way)
 	set tkdir [lindex [lsort [glob -nocomplain -tails -type d \

unix/tclUnixThrd.c

@@ -122,7 +122,6 @@ PMutexUnlock(
     }
 }
 
-
 static void
 PCondWait(
     pthread_cond_t *pcondPtr,

win/tclWinInt.h

@@ -73,8 +73,6 @@ TclpLongPathSupported(void)
     return winInfoPtr->longPathsSupported;
 }
 
-
-
 /*
  * Declarations of functions that are not accessible by way of the
  * stubs table.

win/tclWinSerial.c

@@ -17,7 +17,6 @@
 #pragma clang diagnostic ignored "-Wc++-keyword"
 #endif
 
-
 /*
  * The following variable is used to tell whether this module has been
  * initialized.