From mboxrd@z Thu Jan  1 00:00:00 1970
From: Keith Seitz <keiths@cygnus.com>
To: Tom Tromey <tromey@redhat.com>
Cc: Insight List <insight@sourceware.cygnus.com>
Subject: Re: Patch: Fix .gdbtkinit reading
Date: Wed, 22 Aug 2001 11:38:00 -0000
Message-id: <Pine.GSO.4.33.0108221138080.22387-100000@makita.cygnus.com>
References: <87r8u5jc2u.fsf@creche.redhat.com>
X-SW-Source: 2001-q3/msg00170.html

On 21 Aug 2001, Tom Tromey wrote:

> Currently Insight tries to encode preference values which include `='.
> Unfortunately due to a small bug Insight doesn't properly re-read such
> values.
>
> I found this while trying to use a saved session.  I tested the
> appended patch on that session.  Ok to commit?

Looks pretty innocent to me. Did this fix your session problem, or do you
still need someone to look at it?

Keith

> Index: ChangeLog
> from  Tom Tromey  <tromey@redhat.com>
>
> 	* library/prefs.tcl (pref_read): Version number appears in
> 	comment.
>
> Index: library/prefs.tcl
> ===================================================================
> RCS file: /cvs/src/src/gdb/gdbtk/library/prefs.tcl,v
> retrieving revision 1.11
> diff -u -r1.11 prefs.tcl
> --- library/prefs.tcl 2001/08/09 20:43:54 1.11
> +++ library/prefs.tcl 2001/08/21 21:39:37
> @@ -78,7 +78,8 @@
>  	  {^[ \t\n]*#.*} {
>  	    # Comment.  We recognize one magic comment that includes
>  	    # the version number.
> -	    if {[regexp -- "^GDBtkInitVersion: (\[0-9\]+)\$" $line v]} {
> +	    if {[regexp -- "^# GDBtkInitVersion: (\[0-9\]+)\$" $line \
> +		   dummy v]} {
>  	      set version $v
>  	    }
>  	  }
>