🚀 go-pugleaf

In GNU Emacs 19.27.6 (hppa1.1-hp-hpux9shr, X toolkit) of Wed Sep 21 1994 on snarfblatt

Roughtly two weeks ago, I reported a bug in menu placement for the
"Buffers" sub-menu when it includes long buffer names (the sub-menu
window popped up to the left of the parent menu, which put it off the
left edge of the screen...).

The following diff shows the fix I came up with to xlwmenu.c:

*** xlwmenu.c@@/EMACS_19.27	Thu Aug 25 18:35:01 1994
--- xlwmenu.c	Fri Oct  7 18:57:28 1994
***************
*** 740,745 ****
--- 740,747 ----
  	ws->x = previous_ws->x - ws->width;
        else
  	ws->x = screen_width - ws->width;
+       if (ws->x < 0)
+         ws->x = 0;
      }
    if (ws->y < 0)
      ws->y = 0;
***************
*** 749,754 ****
--- 751,758 ----
  	ws->y = previous_ws->y - ws->height;
        else
  	ws->y = screen_height - ws->height;
+       if (ws->y < 0) 
+         ws->y = 0;
      }
  }