🚀 go-pugleaf

Dear GNU Emacs maintainer:

The following changes by Ross Lillie <lillie@comm.mot.com>
update the X11 support in emacs to allow x-pop-window as in
the old X10 support.

We have found this feature to be quite useful around here.

Regards,
Loren J. Rittle

The feature diffs:

*** /usr/user1/rittle/emacs-18.58/src/x11fns.c	Sat Oct  5 13:01:14 1991
--- x11fns.c	Fri Dec 18 14:57:44 1992
***************
*** 144,149 ****
--- 144,162 ----
  		error ("Terminal does not understand X protocol.");
  }
  
+ DEFUN ("x-pop-window", Fx_pop_window, Sx_pop_window, 0, 0, "",
+   "For X window system, pop the window to the top of the window stack.\n\
+ If window is iconified, map window as required.")
+    ()
+ {
+   BLOCK_INPUT_DECLARE ();
+   BLOCK_INPUT ();
+   check_xterm ();
+   XPopWindow();
+   UNBLOCK_INPUT ();
+   return Qnil;
+ }
+ 
  DEFUN ("x-set-bell", Fx_set_bell, Sx_set_bell, 1, 1, "P",
    "For X window system, set audible vs visible bell.\n\
  With non-nil argument (prefix arg), use visible bell; otherwise, audible bell.")
***************
*** 897,902 ****
--- 910,925 ----
  	Fredraw_display ();
  }
  
+ XPopWindow ()
+ {
+   CursorExists = 0;
+   VisibleX = 0;
+   VisibleY = 0;
+   WindowMapped = 1;
+   XMapRaised (XXdisplay, XXwindow);
+   XFlush (XXdisplay);
+ }
+ 
  XCleanUp ()
  {
  	Fdo_auto_save (Qt);
***************
*** 951,956 ****
--- 974,980 ----
    defsubr (&Sx_get_mouse_color);
    defsubr (&Sx_color_p);
    defsubr (&Sx_get_default);
+   defsubr (&Sx_pop_window);
  #ifdef notdef
    defsubr (&Sx_rebind_key);
    defsubr (&Sx_rebind_keys);