2001-01-02 Fernando Nasser <fnasser@totem.toronto.redhat.com>

	* library/interface.tcl (gdbtk_quit_check): Save session whenever
	possible.

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index a02e814..885ca10 100644 (file)
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,3 +1,8 @@
+2001-01-02  Fernando Nasser  <fnasser@totem.toronto.redhat.com>
+
+       * library/interface.tcl (gdbtk_quit_check): Save session whenever
+       possible.
+
 2001-01-01  Fernando Nasser  <fnasser@totem.toronto.redhat.com>
 
        * library/ChangeLog-2000: New file. Entries dated 2000 moved here

diff --git a/gdb/gdbtk/library/interface.tcl b/gdb/gdbtk/library/interface.tcl
index a322d5b..c00aea3 100644 (file)
--- a/gdb/gdbtk/library/interface.tcl
+++ b/gdb/gdbtk/library/interface.tcl
@@ -222,7 +222,10 @@ proc gdbtk_quit_check {} {
     if {![gdbtk_tcl_query $msg no]} {
       return 0
     }
-  } elseif {$gdb_exe_name != ""} {
+  }
+  
+  # If we have an executable file loaded, save a session associated to it
+  if {$gdb_exe_name != ""} {
     session_save
   }
   return 1