* srcwin.itb (SrcWin::edit): Use uplevel, not eval, to evaluate

	external editor expression.

diff --git a/gdb/gdbtk/library/ChangeLog b/gdb/gdbtk/library/ChangeLog
index 89ff853..1fa77c4 100644 (file)
--- a/gdb/gdbtk/library/ChangeLog
+++ b/gdb/gdbtk/library/ChangeLog
@@ -1,3 +1,8 @@
+2000-12-07  Tom Tromey  <tromey@redhat.com>
+
+       * srcwin.itb (SrcWin::edit): Use uplevel, not eval, to evaluate
+       external editor expression.
+
 2000-12-06  Tom Tromey  <tromey@redhat.com>
 
        * targetselection.itb (TargetSelection::build_win): Add option to

diff --git a/gdb/gdbtk/library/srcwin.itb b/gdb/gdbtk/library/srcwin.itb
index 9388aa6..6956f31 100644 (file)
--- a/gdb/gdbtk/library/srcwin.itb
+++ b/gdb/gdbtk/library/srcwin.itb
@@ -663,7 +663,7 @@ body SrcWin::edit {} {
   
   
   if {[info exists enable_external_editor] && $enable_external_editor} {
-    if {[catch {eval $external_editor_command edit $loc_info} err]} {
+    if {[catch {uplevel \#0 "$external_editor_command edit $loc_info"} ]} {
       tk_dialog .warn-sn "Edit" $err error 0 Ok
     }
     return