diff src/.gdbinit @ 83400:03934708f1e9

Merged from [e-mail]--gnu-2005 (patch 152-156, 642-654) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-642 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-643 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-644 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-645 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-646 Merge from gnus--rel--5.10 * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-647 lisp/gnus/ChangeLog: Remove duplicate entry * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-648 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-649 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-650 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-651 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-652 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-653 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-654 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-152 Update from CVS: lisp/mml.el (mml-preview): Doc fix. * [e-mail]--gnu-2005/gnus--rel--5.10--patch-153 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-154 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-155 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-156 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-440

--- a/src/.gdbinit	Mon Nov 07 15:25:27 2005 +0000
+++ b/src/.gdbinit	Fri Nov 18 13:13:34 2005 +0000
@@ -31,6 +31,9 @@
 # However, C-z works just as well in that case.
 handle 2 noprint pass
 
+# Make it work like SIGINT normally does.
+handle SIGTSTP nopass
+
 # Don't pass SIGALRM to Emacs.  This makes problems when
 # debugging.
 handle SIGALRM ignore
@@ -66,13 +69,53 @@
 # Print out s-expressions
 define pp
   set $tmp = $arg0
-  set debug_print ($tmp)
+  set safe_debug_print ($tmp)
 end
 document pp
 Print the argument as an emacs s-expression
 Works only when an inferior emacs is executing.
 end
 
+# Print out s-expressions from tool bar
+define pp1
+  set $tmp = $arg0
+  echo $arg0
+  printf " = "
+  set safe_debug_print ($tmp)
+end
+document pp1
+Print the argument as an emacs s-expression
+Works only when an inferior emacs is executing.
+For use on tool bar when debugging in Emacs
+where the variable name would not otherwise
+be recorded in the GUD buffer.
+end
+
+# Print value of lisp variable
+define pv
+  set $tmp = "$arg0"
+  set safe_debug_print ( find_symbol_value (intern ($tmp)))
+end
+document pv
+Print the value of the lisp variable given as argument.
+Works only when an inferior emacs is executing.
+end
+
+# Print value of lisp variable
+define pv1
+  set $tmp = "$arg0"
+  echo $arg0
+  printf " = "
+  set safe_debug_print (find_symbol_value (intern ($tmp)))
+end
+document pv1
+Print the value of the lisp variable given as argument.
+Works only when an inferior emacs is executing.
+For use on tool bar when debugging in Emacs
+where the variable name would not otherwise
+be recorded in the GUD buffer.
+end
+
 # Print out current buffer point and boundaries
 define ppt
   set $b = current_buffer
@@ -122,7 +165,7 @@
     printf " HL"
   end
   if ($it->n_overlay_strings > 0)
-    printf " nov=%d"
+    printf " nov=%d", $it->n_overlay_strings
   end
   if ($it->sp != 0)
     printf " sp=%d", $it->sp
@@ -672,6 +715,16 @@
   an error was signaled.
 end
 
+# Show Lisp backtrace after normal backtrace.
+define hookpost-backtrace
+  set $bt = backtrace_list
+  if $bt
+    echo \n
+    echo Lisp Backtrace:\n
+    xbacktrace
+  end
+end
+
 define xreload
   set $tagmask = (((long)1 << gdb_gctypebits) - 1)
   set $valmask = gdb_use_lsb ? ~($tagmask) : ((long)1 << gdb_valbits) - 1