* lisp.h (struct Lisp_Symbol): Replace field "name" with a lisp

[bpt/emacs.git] / src / .gdbinit

diff --git a/src/.gdbinit b/src/.gdbinit
index fbad00b..233640b 100644 (file)
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -1,9 +1,29 @@
+# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2000, 2001
+#   Free Software Foundation, Inc.
+#
+# This file is part of GNU Emacs.
+#
+# GNU Emacs is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2, or (at your option)
+# any later version.
+#
+# GNU Emacs is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with GNU Emacs; see the file COPYING.  If not, write to the
+# Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+# Boston, MA 02111-1307, USA.
+
 # Force loading of symbols, enough to give us gdb_valbits etc.
 set main
 
 # Find lwlib source files too.
 dir ../lwlib
-dir /gd/gnu/lesstif-0.89.9/lib/Xm
+#dir /gd/gnu/lesstif-0.89.9/lib/Xm
 
 # Don't enter GDB when user types C-g to quit.
 # This has one unfortunate effect: you can't type C-c
@@ -240,7 +260,7 @@ end
 
 define xbuffer
 print (struct buffer *) (($ & $valmask) | gdb_data_seg_bits)
-output &((struct Lisp_String *) ((($->name) & $valmask) | gdb_data_seg_bits))->data
+output ((struct Lisp_String *) ((($->name) & $valmask) | gdb_data_seg_bits))->data
 echo \n
 end
 document xbuffer
@@ -344,10 +364,20 @@ end
 document xreload
   When starting Emacs a second time in the same gdb session under
   FreeBSD 2.2.5, gdb 4.13, $valmask and $nonvalbits have lost
-  their values.  (The same happens on GNU/Linux with gdb 5.0.)
+  their values.  (The same happens on current (2000) versions of GNU/Linux
+  with gdb 5.0.)
   This function reloads them.
 end
 
+define hook-run
+  xreload
+end
+
+# Call xreload if a new Emacs executable is loaded.
+define hookpost-run
+  xreload
+end
+
 set print pretty on
 set print sevenbit-strings