[Emacs-diffs] Changes to emacs/src/xterm.c,v

[Jan Djärv]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Jan Djärv <jhd>        06/11/03 08:58:40

Index: xterm.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/xterm.c,v
retrieving revision 1.929
retrieving revision 1.930
diff -u -b -r1.929 -r1.930
--- xterm.c     10 Oct 2006 14:37:54 -0000      1.929
+++ xterm.c     3 Nov 2006 08:58:39 -0000       1.930
@@ -8607,13 +8607,25 @@
 x_raise_frame (f)
      struct frame *f;
 {
-  if (f->async_visible)
-    {
+  Lisp_Object frame;
+  const char *atom = "_NET_ACTIVE_WINDOW";
+
       BLOCK_INPUT;
+  if (f->async_visible)
       XRaiseWindow (FRAME_X_DISPLAY (f), FRAME_OUTER_WINDOW (f));
+
+  XSETFRAME (frame, f);
+  /* See Window Manager Specification/Extended Window Manager Hints at
+     http://freedesktop.org/wiki/Standards_2fwm_2dspec */
+
+  Fx_send_client_event (frame, make_number (0), frame,
+                        make_unibyte_string (atom, strlen (atom)),
+                        make_number (32),
+                        Fcons (make_number (1),
+                               Fcons (make_number (time (NULL) * 1000),
+                                      Qnil)));
       XFlush (FRAME_X_DISPLAY (f));
       UNBLOCK_INPUT;
-    }
 }
 
 /* Lower frame F.  */