* library/prefs.tcl (pref_save): Fix GDBtkInitVersion.
(pref_save): Check that value is not null before writing.
+2002-11-08 Martin M. Hunt <hunt@redhat.com>
+
+ * library/prefs.tcl (pref_save): Fix GDBtkInitVersion.
+ (pref_save): Check that value is not null before writing.
+
2002-11-07 Martin M. Hunt <hunt@redhat.com>
* library/util.tcl (CygScrolledListbox): Delete.
}
puts $fd "\# GDBtk Init file"
- puts $fd "{# GDBtkInitVersion: 1}"
+ puts $fd {# GDBtkInitVersion: 1}
set plist [pref list]
# write out global options
if {[lindex $t 0] == "gdb"
&& [string compare [join [lreplace $t 0 1] /] ""] == 0} {
set x [lindex $t 1]
- if {$x != ""} {
- set v [escape_value [pref get $var]]
+ set v [escape_value [pref get $var]]
+ if {$x != "" && $v != ""} {
puts $fd "\t$x=$v"
}
}