🚀 go-pugleaf

/* Written 11:48 am  Dec 14, 1989 by victor@MIZAR.DOCS.UU.SE in s.cs.uiuc.edu:gnu.emacs.bug */
/* ---------- "X11 focus management" ---------- */
>In GNU Emacs 18.55.5 of Thu Dec  7 1989 on mizar (berkeley-unix)

>Emacs doesn't do focus management (for highlighting the cursor), as
>src/x11term.c states in function internal_socket_read().  Instead it
>does Enter/Leave window management, which is not really relevant.
It's sort of relevant, see below

>I'm no Xpert, but it seems to work if you simply change the case
>EnterNotify/LeaveNotify pair with FocusIn/FocusOut, and change the
>XSelectInput call in XInitWindow to use FocusChangeMask instead of
>EnterWindowMask | LeaveWindowMask.
No, that doesn't work. I tried it. The problem is that if the focus is not
explicitly set, then Emacs never thinks it has the focus (which it does if
the cursor is in the window). I've fixed this problem in Epoch, but the
code should still work in 18.55: (The if statements are the key difference
between your version and mine)

    case EnterNotify :
    case FocusIn :
	if (event.type == FocusIn || event.xcrossing.focus)
	    {
	    CursorToggle ();
	    CursorOutline = 0;
	    CursorToggle ();
	    }
	break;

    case LeaveNotify :
    case FocusOut :
	if (event.type == FocusOut || event.xcrossing.focus)
	    {
	    CursorToggle ();
	    CursorOutline = 1;
	    CursorToggle ();
	    }
	break;

The XSelectInput call must still be modified to accept Focus events _in
addition to_ Enter and Leave events.

/* End of text from s.cs.uiuc.edu:gnu.emacs.bug */

Alan M. Carroll                "Oh goody, the Illudium Q-36 Explosive
carroll@s.cs.uiuc.edu           Space Modulator!"
CS Grad / U of Ill @ Urbana    ...{ucbvax,pur-ee,convex}!s.cs.uiuc.edu!carroll