🚀 go-pugleaf

Here's a fix for gwm wierdness.

Tracked down by Tom Shields (tshields@oracle.com).

what happens is that the window is given a bogus initial location
(some garbage off the stack.)  Be default, no window hints are given,
so there is only this bogus value to go by.  Gwm faithfully puts epoch
about three miles off my screen ;-)  mwm is kind enough to "do what i
mean" and put it on my screen anyways.  In any case, the existence of
a window manager should not always be assumed.  

Thanks.

-Paul Nakada
pnakada@oracle.com

*** screen.c	Mon Apr 13 18:55:04 1992
--- screen.c~	Mon Apr 13 18:37:39 1992
***************
*** 328,339 ****
       struct Root_Block * root;		/* structure to fill in */
       struct Default_Set *xdbase;	/* user specified values */
       Lisp_Object alist;
  {
    unsigned int ugmask,pgmask;	/* geometry parse return user/program */
!   int x = 0,y = 0;
!   unsigned int dx = 0,dy = 0;		/* base and size */
    unsigned long xcursor_color;	/* X cursor color */
    struct X_Screen *xs = XXSCREEN(root->x11);
    struct W_Screen *ws = XWSCREEN(root->win);
    Lisp_Object style,style1,style2;
    struct Lisp_Style *s;
--- 328,339 ----
       struct Root_Block * root;		/* structure to fill in */
       struct Default_Set *xdbase;	/* user specified values */
       Lisp_Object alist;
  {
    unsigned int ugmask,pgmask;	/* geometry parse return user/program */
!   int x,y;
!   unsigned int dx,dy;		/* base and size */
    unsigned long xcursor_color;	/* X cursor color */
    struct X_Screen *xs = XXSCREEN(root->x11);
    struct W_Screen *ws = XWSCREEN(root->win);
    Lisp_Object style,style1,style2;
    struct Lisp_Style *s;