Mercurial > emacs

changeset 68857:faf10626ffee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(xwindow): Update the code to show the window box.
author Richard M. Stallman <rms@gnu.org>
date Mon, 13 Feb 2006 18:45:39 +0000
parents a9e7b9c52560
children bb38a98ef7ad
files src/.gdbinit
diffstat 1 files changed, 10 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/.gdbinit	Mon Feb 13 16:18:46 2006 +0000
+++ b/src/.gdbinit	Mon Feb 13 18:45:39 2006 +0000
@@ -548,7 +548,16 @@
 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.