Re: raise-frame doesn't work in Fedora Core 4

["Jan D." <jan.h.d@swipnet.se>]

Katsumi Yamaoka skrev:

> Masatake YAMATO once tried to fix this and offered a patch to me
> on 9 Sep 2005.  I tried it with Emacs CVS then and confirmed it
> enabled `raise-frame' to perform.  I would very much appreciate
> someone looking into it.  Here it is:

I've checked in a slightly different patch that does the same thing.  Please
try it.

	Jan D.

> 
> *** xterm.c	Sun Aug 28 04:13:33 +0900	1.873
> --- xterm.c	Fri Sep 09 02:33:55 +0900	
> ***************
> *** 8492,8497 ****
> --- 8492,8524 ----
>     if (f->async_visible)
>       {
>         BLOCK_INPUT;
> + 
> +       {
> + 	/* See _NET_ACTIVE_WINDOW in
> + 	   http://freedesktop.org/wiki/Standards_2fwm_2dspec */
> + 	XEvent event;
> + 
> + 	event.xclient.type = ClientMessage;
> + 	event.xclient.serial = 0;
> + 	event.xclient.send_event = True;
> + 
> + 	event.xclient.message_type = XInternAtom(FRAME_X_DISPLAY (f), 
> + 						 "_NET_ACTIVE_WINDOW", 
> + 						 False);
> + 	event.xclient.window = FRAME_OUTER_WINDOW (f);
> + 	event.xclient.format = 32;
> + 	event.xclient.data.l[0] = 1; /* source indication */
> + 	event.xclient.data.l[1] = 0; /* timestamp */
> + 	event.xclient.data.l[2] = 0; /* requestor's currently active window */
> + 	event.xclient.data.l[3] = event.xclient.data.l[4] = 0;
> + 
> + 	XSendEvent(FRAME_X_DISPLAY (f), 
> + 		   DefaultRootWindow (FRAME_X_DISPLAY (f)), 
> + 		   False, 
> + 		   SubstructureRedirectMask | SubstructureNotifyMask,
> + 		   &event);
> +       }
> + 
>         XRaiseWindow (FRAME_X_DISPLAY (f), FRAME_OUTER_WINDOW (f));
>         XFlush (FRAME_X_DISPLAY (f));
>         UNBLOCK_INPUT;
> 
> 
> _______________________________________________
> Emacs-devel mailing list
> Emacs-devel@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-devel