changeset 68047:cb837057e642

Fix last change.
author Eli Zaretskii <eliz@gnu.org>
date Thu, 05 Jan 2006 17:49:09 +0000
parents 16fcb8fc6930
children c5788f95d2a2
files src/.gdbinit
diffstat 1 files changed, 15 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/src/.gdbinit	Thu Jan 05 16:05:56 2006 +0000
+++ b/src/.gdbinit	Thu Jan 05 17:49:09 2006 +0000
@@ -771,26 +771,33 @@
 set $tem = (struct Lisp_String *) $ptr
 set $tem = (char *) $tem->data
 
+# Don't let abort actually run, as it will make stdio stop working and
+# therefore the `pr' command above as well.
 if $tem[0] == 'w' && $tem[1] == 'i' && $tem[2] == 'n' && $tem[3] == 'd'
   # The windows-nt build replaces abort with its own function.
   break w32_abort
 else
-  # Don't let abort actually run, as it will make
-  # stdio stop working and therefore the `pr' command above as well.
   break abort
+end
 
-  # If we are running in synchronous mode, we want a chance to look around
-  # before Emacs exits.  Perhaps we should put the break somewhere else
-  # instead...
+# x_error_quitter is defined only on X.  But window-system is set up
+# only at run time, during Emacs startup, so we need to defer setting
+# the breakpoint.  init_sys_modes is the first function called on
+# every platform after init_display, where window-system is set.
+tbreak init_sys_modes
+commands
+  silent
   xgetptr Vwindow_system
   set $tem = (struct Lisp_Symbol *) $ptr
   xgetptr $tem->xname
   set $tem = (struct Lisp_String *) $ptr
   set $tem = (char *) $tem->data
-  # x_error_quitter is defined only on X
+  # If we are running in synchronous mode, we want a chance to look
+  # around before Emacs exits.  Perhaps we should put the break
+  # somewhere else instead...
   if $tem[0] == 'x' && $tem[1] == '\0'
-    break x_error_quitter
+    break abort
   end
+  continue
 end
-
 # arch-tag: 12f34321-7bfa-4240-b77a-3cd3a1696dfe