home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / gnu / emacs / bug / 1608 < prev    next >
Encoding:
Text File  |  1993-01-07  |  2.0 KB  |  80 lines
  1. Newsgroups: gnu.emacs.bug
  2. Path: sparky!uunet!cis.ohio-state.edu!comm.mot.com!rittle
  3. From: rittle@comm.mot.com (Loren James Rittle)
  4. Subject: X pop window feature for X11 (diffs needed to make happen included)
  5. Message-ID: <9301062245.AA06323@supra.comm.mot.com>
  6. Sender: gnulists@ai.mit.edu
  7. Organization: GNUs Not Usenet
  8. Distribution: gnu
  9. Date: Wed, 6 Jan 1993 10:45:01 GMT
  10. Approved: bug-gnu-emacs@prep.ai.mit.edu
  11. Lines: 67
  12.  
  13. Dear GNU Emacs maintainer:
  14.  
  15. The following changes by Ross Lillie <lillie@comm.mot.com>
  16. update the X11 support in emacs to allow x-pop-window as in
  17. the old X10 support.
  18.  
  19. We have found this feature to be quite useful around here.
  20.  
  21. Regards,
  22. Loren J. Rittle
  23.  
  24. The feature diffs:
  25.  
  26. *** /usr/user1/rittle/emacs-18.58/src/x11fns.c    Sat Oct  5 13:01:14 1991
  27. --- x11fns.c    Fri Dec 18 14:57:44 1992
  28. ***************
  29. *** 144,149 ****
  30. --- 144,162 ----
  31.           error ("Terminal does not understand X protocol.");
  32.   }
  33.   
  34. + DEFUN ("x-pop-window", Fx_pop_window, Sx_pop_window, 0, 0, "",
  35. +   "For X window system, pop the window to the top of the window stack.\n\
  36. + If window is iconified, map window as required.")
  37. +    ()
  38. + {
  39. +   BLOCK_INPUT_DECLARE ();
  40. +   BLOCK_INPUT ();
  41. +   check_xterm ();
  42. +   XPopWindow();
  43. +   UNBLOCK_INPUT ();
  44. +   return Qnil;
  45. + }
  46. + 
  47.   DEFUN ("x-set-bell", Fx_set_bell, Sx_set_bell, 1, 1, "P",
  48.     "For X window system, set audible vs visible bell.\n\
  49.   With non-nil argument (prefix arg), use visible bell; otherwise, audible bell.")
  50. ***************
  51. *** 897,902 ****
  52. --- 910,925 ----
  53.       Fredraw_display ();
  54.   }
  55.   
  56. + XPopWindow ()
  57. + {
  58. +   CursorExists = 0;
  59. +   VisibleX = 0;
  60. +   VisibleY = 0;
  61. +   WindowMapped = 1;
  62. +   XMapRaised (XXdisplay, XXwindow);
  63. +   XFlush (XXdisplay);
  64. + }
  65. + 
  66.   XCleanUp ()
  67.   {
  68.       Fdo_auto_save (Qt);
  69. ***************
  70. *** 951,956 ****
  71. --- 974,980 ----
  72.     defsubr (&Sx_get_mouse_color);
  73.     defsubr (&Sx_color_p);
  74.     defsubr (&Sx_get_default);
  75. +   defsubr (&Sx_pop_window);
  76.   #ifdef notdef
  77.     defsubr (&Sx_rebind_key);
  78.     defsubr (&Sx_rebind_keys);
  79.  
  80.