*** empty log message ***

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

diff --git a/src/.gdbinit b/src/.gdbinit
index 55000f5..6d2c08a 100644 (file)
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -32,9 +32,12 @@ end
 
 define xwindow
 print (struct window *) ($ & 0x00ffffff)
+print ($->left)@4
+print $$
 end
 document xwindow
 Print $ as a window pointer, assuming it is an Elisp window value.
+Print the window's position as { left, top, height, width }.
 end
 
 define xmarker
@@ -46,9 +49,12 @@ end
 
 define xbuffer
 print (struct buffer *) ($ & 0x00ffffff)
+print &((struct Lisp_String *) (($->name) & 0x00ffffff))->data
+print $$
 end
 document xbuffer
-Print $ as a buffer pointer, assuming it is an Elisp buffer value.
+Set $ as a buffer pointer, assuming it is an Elisp buffer value.
+Print the name of the buffer.
 end
 
 define xsymbol
@@ -91,6 +97,7 @@ end
 define xcons
 print (struct Lisp_Cons *) ($ & 0x00ffffff)
 print *$
+print $$
 end
 document xcons
 Print the contents of $, assuming it is an Elisp cons.
@@ -112,6 +119,12 @@ end
 
 set print pretty on
 
+unset environment TERMCAP
+unset environment TERM
+set environment DISPLAY :0.0
+show environment DISPLAY
+set args -q
+
 # Don't let abort actually run, as it will make
 # stdio stop working and therefore the `pr' command below as well.
 break abort
@@ -121,8 +134,3 @@ break abort
 # instead...
 break _XPrintDefaultError
 
-unset environment TERMCAP
-unset environment TERM
-set environment DISPLAY :0.0
-show environment DISPLAY
-set args -q