diff options
| author | nijtmans <nijtmans> | 2009-08-02 10:41:09 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2009-08-02 10:41:09 (GMT) |
| commit | ad16cb700076b09c515d59baee67ff5e235326eb (patch) | |
| tree | db13aa69d3445775988e5d32e7501e656f8e6403 /win/tclWinFCmd.c | |
| parent | 71048d27d0a64c0fa11da33a09037c820babf6e5 (diff) | |
| download | tcl-ad16cb700076b09c515d59baee67ff5e235326eb.zip tcl-ad16cb700076b09c515d59baee67ff5e235326eb.tar.gz tcl-ad16cb700076b09c515d59baee67ff5e235326eb.tar.bz2 | |
eliminate TclWinResetInterfaceEncodings, because
it does exactly the same as TclWinEncodingsCleanup,
make sure that tclWinProcs and tclWinTCharEncoding
are always set and reset concurrently.
Diffstat (limited to 'win/tclWinFCmd.c')
| -rw-r--r-- | win/tclWinFCmd.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/win/tclWinFCmd.c b/win/tclWinFCmd.c index 5b8e0d8..6f5cd8d 100644 --- a/win/tclWinFCmd.c +++ b/win/tclWinFCmd.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinFCmd.c,v 1.57 2009/02/03 23:10:58 nijtmans Exp $ + * RCS: @(#) $Id: tclWinFCmd.c,v 1.58 2009/08/02 10:41:09 nijtmans Exp $ */ #include "tclWinInt.h" @@ -1108,12 +1108,12 @@ DoRemoveJustDirectory( } /* - * Windows 95 and Win32s report removing a non-empty directory as + * Windows 95 reports removing a non-empty directory as * EACCES, not EEXIST. If the directory is not empty, change errno * so caller knows what's going on. */ - if (TclWinGetPlatformId() != VER_PLATFORM_WIN32_NT) { + if (TclWinGetPlatformId() == VER_PLATFORM_WIN32_WINDOWS) { const char *path, *find; HANDLE handle; WIN32_FIND_DATAA data; |