diff options
| author | Jim Blandy <jimb@codesourcery.com> | 2003-12-11 22:19:15 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@codesourcery.com> | 2003-12-11 22:19:15 +0000 |
| commit | 3c0b76af15b8c3fc6b3ac553b9a9d22cc3d29eac (patch) | |
| tree | ea2fdb01fbcbe4693e06a265a973c637cb90d72c /gdb/gdbtk/library | |
| parent | 97985cbf26f9ab6a4e76dc7577b61515bbbc60b8 (diff) | |
| download | gdb-3c0b76af15b8c3fc6b3ac553b9a9d22cc3d29eac.tar.gz | |
* library/prefs.tcl (pref_read): The section marker or the word
'option' must be the first thing on the line; they don't count if
they appear in the middle of the line.
Diffstat (limited to 'gdb/gdbtk/library')
| -rw-r--r-- | gdb/gdbtk/library/prefs.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gdb/gdbtk/library/prefs.tcl b/gdb/gdbtk/library/prefs.tcl index b767c898a73..2241d49d0bd 100644 --- a/gdb/gdbtk/library/prefs.tcl +++ b/gdb/gdbtk/library/prefs.tcl @@ -88,11 +88,11 @@ proc pref_read {} { ;# empty line; ignore it } - {\[.*\]} { + {^[ \t\n]*\[.*\]} { regexp {\[(.*)\]} $line match section } - {[ \t\n]*option.*} { + {^[ \t\n]*option.*} { set line [string trimleft $line] eval $line } |