home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 22 gnu / 22-gnu.zip / gnusrvr2.zip / src.x11fns.diff < prev   
Text File  |  1995-02-16  |  795b  |  38 lines
  1. *** dist-18.55/src/x11fns.c~    Fri Feb 24 11:36:01 1989
  2. --- dist-18.55/src/x11fns.c    Mon Jul 24 13:04:35 1989
  3. ***************
  4. *** 827,832 ****
  5. --- 827,848 ----
  6.   #endif                /* subprocesses */
  7.   }
  8.   
  9. + DEFUN ("x-remap-window", Fx_remap_window, Sx_remap_window,
  10. +   0, 0, 0,
  11. +   "Maps / raises the X window such that is now visible.")
  12. +   ()
  13. + {
  14. + 
  15. +   if (WindowMapped)
  16. +     XRaiseWindow(XXdisplay,XXwindow);
  17. +   else
  18. +     XMapRaised(XXdisplay,XXwindow);
  19. + 
  20. +   XFlush(XXdisplay);
  21. +   return Qnil;
  22. + }
  23. + 
  24. + 
  25.   syms_of_xfns ()
  26.   {
  27.     /* If not dumping, init_display ran before us, so don't override it.  */
  28. ***************
  29. *** 876,881 ****
  30. --- 892,898 ----
  31.     defsubr (&Sx_rebind_keys);
  32.   #endif notdef
  33.     defsubr (&Sx_debug);
  34. +   defsubr (&Sx_remap_window);
  35.   }
  36.   
  37.   #endif /* HAVE_X_WINDOWS */
  38.