Tk Library Source Code

Artifact 2fc4d651d05e38a47f92e81e366e70074902039c:

Attachment "tie_file.tcl.patch" to ticket [1378556fff] added by wish2 2005-12-12 14:35:03.

---

--- tie_file.tcl.orig	Mon Dec 12 12:27:27 2005
+++ tie_file.tcl	Mon Dec 12 12:27:58 2005
@@ -214,6 +214,7 @@
 	    close $new
 	    file rename -force ${path}.new $path
 	    set chan [open ${path} {RDWR EXCL APPEND}]
+	    fconfigure $chan -buffering none -encoding utf-8
 	} else {
 	    # Copy compacted journal over the existing one.
 	    file rename -force ${path}.new $path