🚀 go-pugleaf

Oops, I just looked a little closer at the logic.  Try this patch
instead, it removes a server roundtrip (call to XGetInputFocus) from
the two cases where that info isn't used.

-Barry

--------------------cut here--------------------
*** x11term.c.orig	Wed Mar  6 13:45:49 1991
--- x11term.c	Fri May 10 15:08:44 1991
***************
*** 161,167 ****
  int XXfontw, XXfonth, XXbase, XXisColor;
  
- /* Nonzero means Emacs has explicit keyboard focus.  */
- int x_focus_flag;
- 
  Colormap XXColorMap;
  char *default_window;
--- 161,164 ----
***************
*** 1377,1400 ****
        break;
  
      case FocusIn:
-       x_focus_flag = 1;
-     case EnterNotify:
-       if (event.type == FocusIn || (!x_focus_flag && event.xcrossing.focus))
- 	{
- 	  CursorToggle ();
- 	  CursorOutline = 0;
- 	  CursorToggle ();
- 	}
-       break;
- 
      case FocusOut:
!       x_focus_flag = 0;
      case LeaveNotify:
!       if (event.type == FocusOut || (!x_focus_flag && event.xcrossing.focus))
! 	{
! 	  CursorToggle ();
! 	  CursorOutline = 1;
! 	  CursorToggle ();
! 	}
        break;
  			
--- 1374,1399 ----
        break;
  
+ 		/* focus logic rewritten  8-Mar-1991 bwarsaw@cen.com */
      case FocusIn:
      case FocusOut:
!     case EnterNotify:
      case LeaveNotify:
! 		{
! 		int cursor = -1;		/* 0=on, 1=off, -1=no change */
! 
! 		if( event.type == FocusIn ) cursor = 0;
! 		else if( event.type == FocusOut ) cursor = 1;
! 		else {
! 			Window focus;
! 			int revert_to;			/* dummy return val */
! 			XGetInputFocus( XXdisplay, &focus, &revert_to );
! 			if( focus == PointerRoot )
! 				cursor = (event.type == LeaveNotify) ? 1 : 0;
! 			}
! 		if( cursor == -1 ) break;
! 		CursorToggle();
! 		CursorOutline = cursor;
! 		CursorToggle();
! 		}
        break;