From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 13 Feb 2006 18:45:39 +0000 (+0000)
Subject: (xwindow): Update the code to show the window box.
X-Git-Tag: emacs-pretest-22.0.90~4165
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=25d346437329083b623d6e051f0acf71d35364b6;p=emacs.git

(xwindow): Update the code to show the window box.
---

diff --git a/src/.gdbinit b/src/.gdbinit
index c67e0b0389f..aeabe19100e 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -548,7 +548,16 @@ end
 define xwindow
   xgetptr $
   print (struct window *) $ptr
-  printf "%dx%d+%d+%d\n", $->width, $->height, $->left, $->top
+  set $window = (struct window *) $ptr
+  xgetint $window->total_cols
+  set $width=$int
+  xgetint $window->total_lines
+  set $height=$int
+  xgetint $window->left_col
+  set $left=$int
+  xgetint $window->top_line
+  set $top=$int
+  printf "%dx%d+%d+%d\n", $width, $height, $left, $top
 end
 document xwindow
 Print $ as a window pointer, assuming it is an Emacs Lisp window value.