Merged from [email protected] (patch 152-156, 642-654)

Patches applied:

 * [email protected]/emacs--cvs-trunk--0--patch-642
   Update from CVS

 * [email protected]/emacs--cvs-trunk--0--patch-643
   Update from CVS

 * [email protected]/emacs--cvs-trunk--0--patch-644
   Update from CVS

 * [email protected]/emacs--cvs-trunk--0--patch-645
   Update from CVS

 * [email protected]/emacs--cvs-trunk--0--patch-646
   Merge from gnus--rel--5.10

 * [email protected]/emacs--cvs-trunk--0--patch-647
   lisp/gnus/ChangeLog: Remove duplicate entry

 * [email protected]/emacs--cvs-trunk--0--patch-648
   Update from CVS

 * [email protected]/emacs--cvs-trunk--0--patch-649
   Update from CVS

 * [email protected]/emacs--cvs-trunk--0--patch-650
   Update from CVS

 * [email protected]/emacs--cvs-trunk--0--patch-651
   Update from CVS

 * [email protected]/emacs--cvs-trunk--0--patch-652
   Update from CVS

 * [email protected]/emacs--cvs-trunk--0--patch-653
   Update from CVS

 * [email protected]/emacs--cvs-trunk--0--patch-654
   Update from CVS

 * [email protected]/gnus--rel--5.10--patch-152
   Update from CVS: lisp/mml.el (mml-preview): Doc fix.

 * [email protected]/gnus--rel--5.10--patch-153
   Update from CVS

 * [email protected]/gnus--rel--5.10--patch-154
   Update from CVS

 * [email protected]/gnus--rel--5.10--patch-155
   Update from CVS

 * [email protected]/gnus--rel--5.10--patch-156
   Update from CVS

git-archimport-id: [email protected]/emacs--multi-tty--0--patch-440

1 files changed, 55 insertions, 2 deletions

diff --git a/src/.gdbinit b/src/.gdbinit
index 462b6a86c5..3f7755a3d8 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -31,6 +31,9 @@ dir ../lwlib
 # 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 @@ end
 # 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 @@ define pitx
     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 @@ document xbacktrace
   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