home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / src / screen.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-03-24  |  36.4 KB  |  1,324 lines
  1. /* Generic screen functions.
  2.    Copyright (C) 1989-1993 Free Software Foundation.
  3.  
  4. This file is part of GNU Emacs.
  5.  
  6. GNU Emacs is free software; you can redistribute it and/or modify
  7. it under the terms of the GNU General Public License as published by
  8. the Free Software Foundation; either version 2, or (at your option)
  9. any later version.
  10.  
  11. GNU Emacs is distributed in the hope that it will be useful,
  12. but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. GNU General Public License for more details.
  15.  
  16. You should have received a copy of the GNU General Public License
  17. along with GNU Emacs; see the file COPYING.  If not, write to
  18. the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  19.  
  20. #include "config.h"
  21. #include "lisp.h"
  22. #include "dispextern.h"
  23. #include "screen.h"
  24. #include "window.h"
  25. #include "extents.h"
  26. #include "faces.h"
  27. #include <string.h>
  28. #ifdef HAVE_X_WINDOWS
  29. #include "xterm.h"
  30. #endif
  31.  
  32. Lisp_Object Vscreen_list;
  33. Lisp_Object Vterminal_screen;
  34. Lisp_Object Vglobal_minibuffer_screen;
  35. int allow_deletion_of_last_visible_screen;
  36.  
  37. Lisp_Object Vcreate_screen_hook, Qcreate_screen_hook;
  38. Lisp_Object Vmouse_enter_screen_hook, Qmouse_enter_screen_hook;
  39. Lisp_Object Vmouse_leave_screen_hook, Qmouse_leave_screen_hook;
  40. Lisp_Object Vmap_screen_hook, Qmap_screen_hook;
  41. Lisp_Object Vunmap_screen_hook, Qunmap_screen_hook;
  42. Lisp_Object Vmouse_motion_handler;
  43. Lisp_Object Vmouse_grabbed_buffer;
  44.  
  45. extern Lisp_Object Vminibuffer_list;
  46. extern Lisp_Object get_minibuffer ();
  47.  
  48. Lisp_Object Qselect_screen_hook, Qdeselect_screen_hook;
  49.  
  50.  
  51.  
  52. #define get_screen(s, screen)        \
  53. {                    \
  54.   if (NILP (screen))            \
  55.     {                    \
  56.       s = selected_screen;        \
  57.       XSET (screen, Lisp_Screen, s);    \
  58.     }                    \
  59.   else                    \
  60.     {                    \
  61.       CHECK_SCREEN ((screen), 0);    \
  62.       s = XSCREEN ((screen));        \
  63.     }                    \
  64. }
  65.  
  66.  
  67. struct screen *
  68. make_screen (mini_p)
  69.      int mini_p;
  70. {
  71.   Lisp_Object screen;
  72.   register struct screen *s;
  73.   register Lisp_Object root_window;
  74.   register Lisp_Object mini_window;
  75.  
  76.   screen = Fmake_vector (sizeof (struct screen) - sizeof (Lisp_Vector) + 1,
  77.              make_number (0));
  78.   XSETTYPE (screen, Lisp_Screen);
  79.   s = XSCREEN (screen);
  80.  
  81.   s->cursor_x = 0;
  82.   s->cursor_y = 0;
  83.   s->cursor_erased = 1;
  84.   s->current_glyphs = 0;
  85.   s->desired_glyphs = 0;
  86.   s->visible = 0;
  87.   s->display.nothing = 0;
  88.   s->iconified = 0;
  89.   s->wants_modeline = 1;
  90.   s->no_split = 0;
  91.   s->garbaged = 0;
  92.   s->has_minibuffer = mini_p;
  93.  
  94.   /* init_screen_faces will do more, but this is needed before then */
  95.   s->n_faces = 0;
  96.   s->faces = 0;
  97.   s->face_alist = Qnil;
  98.   ensure_face_ready (s, 3);
  99.  
  100.   s->param_alist = Qnil;
  101.   s->menubar_data = Qnil;
  102.  
  103.   s->buffer_alist = Fcopy_sequence (Vbuffer_alist);
  104.  
  105.   root_window = make_window ();
  106.   if (mini_p)
  107.     {
  108.       mini_window = make_window ();
  109.       XWINDOW (root_window)->next = mini_window;
  110.       XWINDOW (mini_window)->prev = root_window;
  111.       XWINDOW (mini_window)->mini_p = Qt;
  112.       XWINDOW (mini_window)->screen = screen;
  113.       s->minibuffer_window = mini_window;
  114.     }
  115.   else
  116.     {
  117.       mini_window = Qnil;
  118.       XWINDOW (root_window)->next = Qnil;
  119.       s->minibuffer_window = Qnil;
  120.     }
  121.  
  122.   XWINDOW (root_window)->screen = screen;
  123.  
  124.   /* 10 is arbitrary,
  125.      just so that there is "something there."
  126.      Correct size will be set up later with change_screen_size.  */
  127.  
  128.   s->width = 10;
  129.   s->height = 10;
  130.  
  131.   XFASTINT (XWINDOW (root_window)->width) = 10;
  132.   XFASTINT (XWINDOW (root_window)->height) = (mini_p ? 9 : 10);
  133.  
  134.   if (mini_p)
  135.     {
  136.       XFASTINT (XWINDOW (mini_window)->width) = 10;
  137.       XFASTINT (XWINDOW (mini_window)->top) = 9;
  138.       XFASTINT (XWINDOW (mini_window)->height) = 1;
  139.     }
  140.  
  141.   XWINDOW (root_window)->buffer = Qt;
  142.   Fset_window_buffer (root_window, Fcurrent_buffer ());
  143.   if (mini_p)
  144.     {
  145.       XWINDOW (mini_window)->buffer = Qt;
  146.       Fset_window_buffer (mini_window, Vminibuffer_zero);
  147.     }
  148.  
  149.   s->selected_window = root_window;
  150.   s->root_window = root_window;
  151.  
  152.   return s;
  153. }
  154.  
  155. /* Make a screen using a separate minibuffer window on another screen.
  156.    MINI_WINDOW is the minibuffer window to use.  nil means use the
  157.    default (the global minibuffer).  */
  158.  
  159. static struct screen *
  160. make_screen_without_minibuffer (mini_window)
  161.      register Lisp_Object mini_window;
  162. {
  163.   register struct screen *s;
  164.  
  165.   /* Choose the minibuffer window to use.  */
  166.   if (NILP (mini_window))
  167.     {
  168.       CHECK_SCREEN (Vglobal_minibuffer_screen, 0);
  169.       mini_window = XSCREEN (Vglobal_minibuffer_screen)->minibuffer_window;
  170.     }
  171.   else
  172.     {
  173.       CHECK_WINDOW (mini_window, 0);
  174.     }
  175.  
  176.   /* Make a screen containing just a root window.  */
  177.   s = make_screen (0);
  178.  
  179.   /* Install the chosen minibuffer window, with proper buffer.  */
  180.   s->minibuffer_window = mini_window;
  181.   Fset_window_buffer (mini_window, Vminibuffer_zero);
  182.   return s;
  183. }
  184.  
  185. /* Make a screen containing only a minibuffer window.  */
  186.  
  187. static struct screen *
  188. make_minibuffer_screen ()
  189. {
  190.   /* First make a screen containing just a root window, no minibuffer.  */
  191.  
  192.   register struct screen *s = make_screen (0);
  193.   register Lisp_Object mini_window;
  194.   register Lisp_Object screen;
  195.  
  196.   XSET (screen, Lisp_Screen, s);
  197.  
  198.   s->no_split = 1;
  199.   s->wants_modeline = 0;
  200.   /* Note we leave has_minibuffer as 0.  This is a little strange.  */
  201.  
  202.   /* Now label the root window as also being the minibuffer.
  203.      Avoid infinite looping on the window chain by marking next pointer
  204.      as nil. */
  205.  
  206.   mini_window = s->minibuffer_window = s->root_window;
  207.   XWINDOW (mini_window)->mini_p = Qt;
  208.   XWINDOW (mini_window)->next = Qnil;
  209.   XWINDOW (mini_window)->prev = mini_window;
  210.   XWINDOW (mini_window)->screen = screen;
  211.  
  212.   /* Put the proper buffer in that window.  */
  213.  
  214.   Fset_window_buffer (mini_window, Vminibuffer_zero);
  215.   return s;
  216. }
  217.  
  218. /* Construct a screen that refers to the terminal (stdin and stdout).  */
  219.  
  220. struct screen *
  221. make_terminal_screen ()
  222. {
  223.   register struct screen *s;
  224.  
  225.   Vscreen_list = Qnil;
  226.   s = make_screen (1);
  227.   s->name = build_string ("terminal");
  228.   s->visible = 1;
  229.   s->display.nothing = 1;   /* Nonzero means screen isn't deleted.  */
  230.   XSET (Vterminal_screen, Lisp_Screen, s);
  231.  
  232.   Vscreen_list = Fcons (Vterminal_screen, Vscreen_list);
  233.  
  234.   return s;
  235. }
  236.  
  237. DEFUN ("screenp", Fscreenp, Sscreenp, 1, 1, 0,
  238.   "Return non-nil if OBJECT is a screen.\n\
  239. Value is t for a termcap screen (a character-only terminal),\n\
  240. `x' for an Emacs screen that is really an X window.")
  241.   (screen)
  242.      Lisp_Object screen;
  243. {
  244.   if (!SCREENP (screen))
  245.     return Qnil;
  246.  
  247.   switch (XSCREEN (screen)->output_method)
  248.     {
  249.     case output_termcap:
  250.       return Qt;
  251.     case output_x_window:
  252.       return intern ("x");
  253.     default:
  254.       abort ();
  255.     }
  256. }
  257.  
  258. #ifdef HAVE_X_WINDOWS
  259. extern void x_new_selected_screen (struct screen *);
  260. extern void x_focus_screen (struct screen *);
  261. #endif
  262.  
  263. /* select_screen_internal changes selected_screen, hollows the cursor on
  264.    the previously selected sceen, and fils the cursor on the newly selected
  265.    screen.
  266.  
  267.    select_screen (and Fselect_screen) do that, and tell the WM to focus on
  268.    this screen, with the timestamp of the last user event.  Therefore, 
  269.    select_screen should only be called as a result of user action.
  270.  
  271.    select_screen_internal is called as a result of a FocusIn event.  It
  272.    would be wrong to call select_screen from there, because then we would 
  273.    use a user timestamp instead of the timestamp of the FocusIn event.
  274.    (This is further complicated by the fact that FocusIn doesn't have a
  275.    timestamp in it at all.)
  276.  */
  277.  
  278. void
  279. select_screen_internal (s)
  280.      struct screen* s;
  281. {
  282.   if (s->display.nothing == 0)
  283.     error ("Cannot select a dead screen");
  284.   
  285.   if (s != selected_screen)
  286.     {
  287.       if (!NILP (Vrun_hooks))
  288.     call1 (Vrun_hooks, Qdeselect_screen_hook);
  289.  
  290. #ifdef HAVE_X_WINDOWS
  291.       /* Do this before setting selected_screen as x_new_selected_screen
  292.      looks at the value of selected_screen to dehighlight the
  293.      previous screen */
  294.       if (SCREEN_IS_X (s))
  295.     x_new_selected_screen (s);
  296.       else
  297. #endif
  298.     selected_screen = s;
  299.  
  300.       Fselect_window (s->selected_window);
  301.       choose_minibuf_screen ();
  302.  
  303.       if (!NILP (Vrun_hooks))
  304.     call1 (Vrun_hooks, Qselect_screen_hook);
  305.     }
  306. }
  307.  
  308. void
  309. select_screen (s)
  310.      struct screen* s;
  311. {
  312.   select_screen_internal (s);
  313. #ifdef HAVE_X_WINDOWS
  314.   if (SCREEN_IS_X (s))
  315.     x_focus_screen (s);
  316. #endif
  317. }
  318.  
  319.  
  320. DEFUN ("select-screen", Fselect_screen, Sselect_screen, 1, 1, 0,
  321.   "Select the screen S.\n\
  322. S's selected window becomes the selected window.")
  323.   (screen)
  324.      Lisp_Object screen;
  325. {
  326.   CHECK_SCREEN (screen, 0);
  327.  
  328.   select_screen (XSCREEN (screen));
  329.   return screen;
  330. }
  331.  
  332. DEFUN ("selected-screen", Fselected_screen, Sselected_screen, 0, 0, 0,
  333.   "Return the screen that is now selected.")
  334.   ()
  335. {
  336.   Lisp_Object tem;
  337.   XSET (tem, Lisp_Screen, selected_screen);
  338.   return tem;
  339. }
  340.  
  341. DEFUN ("window-screen", Fwindow_screen, Swindow_screen, 1, 1, 0,
  342.   "Return the screen that window WINDOW is on.")
  343.   (window)
  344.      Lisp_Object window;
  345. {
  346.   CHECK_WINDOW (window, 0);
  347.   return XWINDOW (window)->screen;
  348. }
  349.  
  350. DEFUN ("screen-root-window", Fscreen_root_window, Sscreen_root_window, 0, 1, 0,
  351.        "Returns the root-window of SCREEN.")
  352.   (screen)
  353.      Lisp_Object screen;
  354. {
  355.   struct screen* s;
  356.   get_screen (s, screen);
  357.   return s->root_window;
  358. }
  359.  
  360. DEFUN ("screen-selected-window", Fscreen_selected_window,
  361.        Sscreen_selected_window, 0, 1, 0,
  362.   "Return the selected window of screen SCREEN.")
  363.   (screen)
  364.      Lisp_Object screen;
  365. {
  366.   struct screen* s;
  367.   get_screen (s, screen);
  368.   return s->selected_window;
  369. }
  370.  
  371. DEFUN ("screen-list", Fscreen_list, Sscreen_list,
  372.        0, 0, 0,
  373.        "Return a list of all screens.")
  374.   ()
  375. {
  376.   return Fcopy_sequence (Vscreen_list);
  377. }
  378.  
  379. #ifdef MULTI_SCREEN
  380.  
  381. Lisp_Object
  382. next_screen (screen, mini_screen, visible_only_p)
  383.      Lisp_Object screen;
  384.      int mini_screen, visible_only_p;
  385. {
  386.   int found_self_p = 0;
  387.   Lisp_Object target, tail, oldest;
  388.  
  389.   /* Iterate over the list exactly once.
  390.      The first time we come across a visible screen, remember it.
  391.      When we find `screen' in the list, set a flag.
  392.      The next time we find a visible screen, return it.
  393.      If we reach the end of the list, return the first visible screen
  394.       that we found (which is the "next" screen if we wrap around.)
  395.    */
  396.   if (NILP (Vscreen_list)) abort ();
  397.   oldest = Qnil;
  398.   for (tail = Vscreen_list; !NILP (tail); tail = XCONS (tail)->cdr)
  399.     {
  400.       target = XCONS (tail)->car;
  401.  
  402.       if (EQ (target, screen))
  403.     found_self_p = 1;
  404.  
  405.       else if ((!visible_only_p || XSCREEN (target)->visible) &&
  406.            (mini_screen || !EQ (target, Vglobal_minibuffer_screen)))
  407.     {
  408.       if (found_self_p)
  409.         return target;
  410.       else if (NILP (oldest))
  411.         oldest = target;
  412.     }
  413.     }
  414.   if (NILP (oldest))
  415.     return screen;
  416.   else
  417.     return oldest;
  418. }
  419.  
  420.  
  421. Lisp_Object
  422. prev_screen (screen, mini_screen, visible_only_p)
  423.      Lisp_Object screen;
  424.      int mini_screen, visible_only_p;
  425. {
  426.   Lisp_Object target, prev, tail;
  427.  
  428.   /* Iterate over the list exactly once.
  429.      Each time we come across a visible screen, remember it.
  430.      When we find `screen' in the list, return the last-seen visible screen,
  431.       or keep going if we haven't seen one yet.
  432.      Keep going until the end of the list, and return the last visible screen
  433.       in the list.  In this case, `screen' was the first visible screen in
  434.       the list, so it's "previous" screen is the last visible screen in the
  435.       list.
  436.    */
  437.   if (NILP (Vscreen_list)) abort ();
  438.   prev = Qnil;
  439.   for (tail = Vscreen_list; !NILP (tail); tail = XCONS (tail)->cdr)
  440.     {
  441.       target = XCONS (tail)->car;
  442.  
  443.       if (EQ (target, screen))
  444.     {
  445.       if (!NILP (prev))
  446.         return prev;
  447.     }
  448.       else if ((!visible_only_p || XSCREEN (target)->visible) &&
  449.            (mini_screen || !EQ (target, Vglobal_minibuffer_screen)))
  450.     {
  451.       prev = target;
  452.     }
  453.     }
  454.   if (NILP (prev))
  455.     return screen;
  456.   else
  457.     return prev;
  458. }
  459.  
  460.  
  461. DEFUN ("next-screen", Fnext_screen, Snext_screen,
  462.        0, 3, 0,
  463.        "Return the next screen in the screen list after SCREEN.\n\
  464. If MINISCREEN is non-nil, include the global-minibuffer-screen if it\n\
  465. has its own screen.\n\
  466. If VISIBLE-ONLY-P is non-nil, then cycle through the visible screens,\n\
  467. instead of all screens.")
  468.   (screen, miniscreen, visible_only_p)
  469. Lisp_Object screen, miniscreen, visible_only_p;
  470. {
  471.   struct screen* s;
  472.   get_screen (s, screen);
  473.   return next_screen (screen, !NILP (miniscreen), !NILP (visible_only_p));
  474. }
  475.  
  476. DEFUN ("previous-screen", Fprevious_screen, Sprevious_screen,
  477.        0, 3, 0,
  478.        "Return the previous screen in the screen list after SCREEN.\n\
  479. If MINISCREEN is non-nil, include the global-minibuffer-screen if it\n\
  480. has its own screen.\n\
  481. If VISIBLE-ONLY-P is non-nil, then cycle through the visible screens,\n\
  482. instead of all screens.")
  483.   (screen, miniscreen, visible_only_p)
  484. Lisp_Object screen, miniscreen, visible_only_p;
  485. {
  486.   struct screen* s;
  487.   get_screen (s, screen);
  488.   return prev_screen (screen, !NILP (miniscreen), !NILP (visible_only_p));
  489. }
  490. #endif /* MULTI_SCREEN */
  491.  
  492. extern void free_screen_faces (struct screen *);
  493. extern void free_screen_menubar (struct screen *);
  494. extern void free_screen_display_glyphs (struct screen *);
  495. extern void free_line_insertion_deletion_costs (struct screen *);
  496. #ifdef HAVE_X_WINDOWS
  497. extern void x_destroy_window (struct screen *);
  498. #endif
  499.  
  500. DEFUN ("delete-screen", Fdelete_screen, Sdelete_screen,
  501.        0, 1, "",
  502.        "Delete SCREEN, permanently eliminating it from use.\n\
  503. Default is current screen.")
  504.   (screen)
  505.      Lisp_Object screen;
  506. {
  507.   struct screen *s;
  508.   get_screen (s, screen);
  509.  
  510.   if (s->display.nothing == 0)
  511.     error ("screen is already deleted");
  512.  
  513.   /* Don't allow deleted screen to remain selected.  */
  514.   if (s == selected_screen)
  515.     {
  516.       Lisp_Object next;
  517.  
  518.       next = next_screen (screen, 0, 1);
  519.       if (EQ (next, screen))
  520.     {
  521.       Lisp_Object invisible_next = next_screen (screen, 0, 0);
  522.       if (EQ (screen, invisible_next))
  523.         error ("Attempt to delete the only screen");
  524.       else if (!allow_deletion_of_last_visible_screen)
  525.         error ("Attempt to delete the only visible screen");
  526.       else
  527.         next = invisible_next;
  528.     }
  529.       Fselect_screen (next);
  530.     }
  531.  
  532.   /* Don't allow the global minibuffer screen to be deleted */
  533.   if (s == XSCREEN (Vglobal_minibuffer_screen))
  534.     error ("Attempt to delete the global minibuffer screen");
  535.  
  536.   /* Don't allow minibuf_window to remain on a deleted screen.  */
  537.   if (EQ (s->minibuffer_window, minibuf_window))
  538.     {
  539.       Fset_window_buffer (selected_screen->minibuffer_window,
  540.               XWINDOW (minibuf_window)->buffer);
  541.       minibuf_window = selected_screen->minibuffer_window;
  542.     }
  543.  
  544.   Vscreen_list = Fdelq (screen, Vscreen_list);
  545.  
  546. #ifdef HAVE_X_WINDOWS
  547.   if (SCREEN_IS_X (s))
  548.     /* Minimize some display thrashing.  We could use x_make_screen_invisible
  549.        but that does more work (notifying the WM, etc...)  */
  550.     XUnmapWindow (XtDisplay (s->display.x->widget),
  551.           XtWindow (s->display.x->widget));
  552. #endif
  553.   s->visible = 0;
  554.  
  555.   free_screen_menubar (s);
  556.   free_screen_display_glyphs (s);
  557.   free_line_insertion_deletion_costs (s);
  558.  
  559.   if (SCREEN_IS_X (s))
  560.     x_destroy_window (s);
  561.   s->display.nothing = 0;
  562.  
  563.   return Qnil;
  564. }
  565.  
  566. /* Return mouse position in character cell units.  */
  567.  
  568. extern void x_read_mouse_position (struct screen *, int *, int *);
  569. extern void x_set_mouse_position (struct screen *, int, int);
  570.  
  571. static void
  572. read_mouse_position (screen, x, y)
  573.      Lisp_Object screen;
  574.      int *x, *y;
  575. {
  576.   CHECK_SCREEN (screen, 0);
  577.  
  578.   *x = 1;
  579.   *y = 1;
  580.  
  581. #ifdef HAVE_X_WINDOWS
  582.   if (XSCREEN (screen)->output_method == output_x_window)
  583.     x_read_mouse_position (XSCREEN (screen), x, y);
  584. #endif
  585. }
  586.  
  587. DEFUN ("read-mouse-position", Fread_mouse_position, Sread_mouse_position, 1, 1, 0,
  588.   "Return a cons (x . y) which represents the position of the mouse.")
  589.   (screen)
  590.      Lisp_Object screen;
  591. {
  592.   int x, y;
  593.   CHECK_SCREEN (screen, 0);
  594.   read_mouse_position (screen, &x, &y);
  595.   return Fcons (make_number (x), make_number (y));
  596. }
  597.  
  598. DEFUN ("set-mouse-position", Fset_mouse_position, Sset_mouse_position, 3, 3, 0,
  599.   "Move the mouse pointer to the center of character cell (X,Y) in SCREEN.")
  600.   (screen, x, y)
  601.      Lisp_Object screen, x, y;
  602. {
  603.   CHECK_SCREEN (screen, 0);
  604.   CHECK_FIXNUM (x, 2);
  605.   CHECK_FIXNUM (y, 1);
  606.  
  607. #ifdef HAVE_X_WINDOWS
  608.   if (XSCREEN (screen)->output_method == output_x_window)
  609.     /* Warping the mouse will cause  enternotify and focus events. */
  610.     x_set_mouse_position (XSCREEN (screen), x, y);
  611. #endif
  612.   return Qnil;
  613. }
  614.  
  615. #if 0
  616. /* ??? Can this be replaced with a Lisp function?
  617.    It is used in minibuf.c.  Can we get rid of that?  */
  618.  
  619. DEFUN ("screen-configuration", Fscreen_configuration, Sscreen_configuration,
  620.        0, 0, 0,
  621.   "Return object describing current screen configuration.\n\
  622. The screen configuration is the current mouse position and selected screen.\n\
  623. This object can be given to `restore-screen-configuration'\n\
  624. to restore this screen configuration.")
  625.   ()
  626. {
  627.   int x, y;
  628.   Lisp_Object c, screen;
  629.   struct screen *s;
  630.   
  631.   c = Fmake_vector (make_number(3), Qnil);
  632.   XVECTOR (c)->contents[0] = screen = Fselected_screen();
  633.   read_mouse_position (screen, &x, &y);
  634.   XVECTOR (c)->contents[1] = make_number (x);
  635.   XVECTOR (c)->contents[2] = make_number (y);
  636.  
  637.   return c;
  638. }
  639.  
  640. DEFUN ("restore-screen-configuration", Frestore_screen_configuration,
  641.        Srestore_screen_configuration,
  642.        1, 1, 0,
  643.   "Restores screen configuration CONFIGURATION.")
  644.   (config)
  645.   Lisp_Object config;
  646. {
  647.   Lisp_Object x_pos, y_pos, screen;
  648.  
  649.   CHECK_VECTOR (config, 0);
  650.   if (XVECTOR (config)->size != 3)
  651.     {
  652.       error ("Wrong size vector passed to restore-screen-configuration");
  653.     }
  654.   screen = XVECTOR (config)->contents[0];
  655.   CHECK_SCREEN (screen, 0);
  656.  
  657.   Fselect_screen (screen);
  658.  
  659.   return screen;
  660. }    
  661. #endif
  662.  
  663. extern void x_make_screen_visible (struct screen *);
  664. extern void x_make_screen_invisible (struct screen *);
  665. extern void x_iconify_screen (struct screen *);
  666.  
  667. DEFUN ("make-screen-visible", Fmake_screen_visible, Smake_screen_visible,
  668.        1, 1, 0,
  669.   "Make the screen SCREEN visible (assuming it is an X-window).\n\
  670. Also raises the screen so that nothing obscures it.")
  671.   (screen)
  672.      Lisp_Object screen;
  673. {
  674.   CHECK_SCREEN (screen, 0);
  675.  
  676.   if (XSCREEN (screen)->display.nothing == 0)
  677.     error ("Cannot make a dead screen visible");
  678.  
  679.   if (XSCREEN (screen)->output_method == output_x_window)
  680.     x_make_screen_visible (XSCREEN (screen));
  681.  
  682.   return screen;
  683. }
  684.  
  685. DEFUN ("make-screen-invisible", Fmake_screen_invisible, Smake_screen_invisible,
  686.        1, 1, 0,
  687.   "Unconditionally removes screen from the display (assuming it is an X-window).\n\
  688. If what you want to do is iconify the screen (if the window manager uses\n\
  689. icons) then you should call `iconify-screen' instead.")
  690.   (screen)
  691.      Lisp_Object screen;
  692. {
  693.   CHECK_SCREEN (screen, 0);
  694.  
  695.   if (XSCREEN (screen)->output_method == output_x_window)
  696.     x_make_screen_invisible (XSCREEN (screen));
  697.  
  698.   return Qnil;
  699. }
  700.  
  701. DEFUN ("iconify-screen", Ficonify_screen, Siconify_screen,
  702.        1, 1, 0,
  703.  "Make the screen SCREEN into an icon, if the window manager supports icons.")
  704.   (screen)
  705.      Lisp_Object screen;
  706. {
  707.   CHECK_SCREEN (screen, 0);
  708.  
  709.   if (XSCREEN (screen)->display.nothing == 0)
  710.     error ("Cannot iconify a dead screen");
  711.  
  712.   if (XSCREEN (screen)->output_method == output_x_window)
  713.       x_iconify_screen (XSCREEN (screen));
  714.  
  715.   return Qnil;
  716. }
  717.  
  718. DEFUN ("deiconify-screen", Fdeiconify_screen, Sdeiconify_screen,
  719.        1, 1, 0,
  720.   "Open (de-iconify) the iconified screen SCREEN.")
  721.   (screen)
  722.      Lisp_Object screen;
  723. {
  724.   CHECK_SCREEN (screen, 0);
  725.  
  726.   if (XSCREEN (screen)->display.nothing == 0)
  727.     error ("Cannot deiconify a dead screen");
  728.  
  729.   if (XSCREEN (screen)->output_method == output_x_window)
  730.       x_make_screen_visible (XSCREEN (screen));
  731.  
  732.   return screen;
  733. }
  734.  
  735. DEFUN ("screen-visible-p", Fscreen_visible_p, Sscreen_visible_p,
  736.        1, 1, 0,
  737.        "Return t if SCREEN is now \"visible\" (actually in use for display).\n\
  738. A screen that is not \"visible\" is not updated and, if it works through\n\
  739. a window system, it may not show at all.\n\
  740. Return the symbol `icon' if window is visible only as an icon.")
  741.   (screen)
  742.      Lisp_Object screen;
  743. {
  744.   CHECK_SCREEN (screen, 0);
  745.  
  746.   if (XSCREEN (screen)->visible)
  747.     return Qt;
  748.   /* ## It's hard to tell when a screen is iconified; we have to look at
  749.      ## the window manager properties to tell; we should do that in this
  750.      ## function, and not when the unmap event is recieved, to avoid a
  751.      ## race condition with the WM.
  752.    */
  753.   if (XSCREEN (screen)->iconified)
  754.     return intern ("icon");
  755.   return Qnil;
  756. }
  757.  
  758. DEFUN ("visible-screen-list", Fvisible_screen_list, Svisible_screen_list,
  759.        0, 0, 0,
  760.        "Return a list of all screens now \"visible\" (being updated).")
  761.   ()
  762. {
  763.   Lisp_Object tail, screen;
  764.   struct screen *s;
  765.   Lisp_Object value;
  766.  
  767.   value = Qnil;
  768.   for (tail = Vscreen_list; CONSP (tail); tail = XCONS (tail)->cdr)
  769.     {
  770.       screen = XCONS (tail)->car;
  771.       if (!SCREENP (screen))
  772.     continue;
  773.       s = XSCREEN (screen);
  774.       if (s->visible)
  775.     value = Fcons (screen, value);
  776.     }
  777.   return value;
  778. }
  779.  
  780. Lisp_Object
  781. get_screen_param (screen, prop)
  782.      register struct screen *screen;
  783.      Lisp_Object prop;
  784. {
  785.   register Lisp_Object tem;
  786.  
  787.   tem = Fassq (prop, screen->param_alist);
  788.   if (EQ (tem, Qnil))
  789.     return tem;
  790.   return Fcdr (tem);
  791. }
  792.  
  793. void
  794. store_in_alist (alistptr, propname, val)
  795.      Lisp_Object *alistptr, val;
  796.      char *propname;
  797. {
  798.   register Lisp_Object tem;
  799.   register Lisp_Object prop;
  800.  
  801.   prop = intern (propname);
  802.   tem = Fassq (prop, *alistptr);
  803.   if (EQ (tem, Qnil))
  804.     *alistptr = Fcons (Fcons (prop, val), *alistptr);
  805.   else
  806.     Fsetcdr (tem, val);
  807. }
  808.  
  809. void
  810. store_screen_param (s, prop, val)
  811.      struct screen *s;
  812.      Lisp_Object prop, val;
  813. {
  814.   register Lisp_Object tem;
  815.  
  816.   tem = Fassq (prop, s->param_alist);
  817.   if (EQ (tem, Qnil))
  818.     s->param_alist = Fcons (Fcons (prop, val), s->param_alist);
  819.   else
  820.     Fsetcdr (tem, val);
  821. }
  822.  
  823. extern void x_report_screen_params (struct screen *, Lisp_Object *);
  824. extern void x_set_screen_values (struct screen *, Lisp_Object);
  825.  
  826. DEFUN ("screen-parameters", Fscreen_parameters, Sscreen_parameters, 0, 1, 0,
  827.   "Return the parameters-alist of screen SCREEN.\n\
  828. It is a list of elements of the form (PARM . VALUE), where PARM is a symbol.\n\
  829. The meaningful PARMs depend on the kind of screen.")
  830.   (screen)
  831.      Lisp_Object screen;
  832. {
  833.   Lisp_Object alist;
  834.   struct screen* s;
  835.   get_screen (s, screen);
  836.  
  837.   if (s->display.nothing == 0)
  838.     return Qnil;
  839.  
  840.   alist = Fcopy_alist (s->param_alist);
  841.   store_in_alist (&alist, "name", s->name);
  842.   store_in_alist (&alist, "height", make_number (s->height));
  843.   store_in_alist (&alist, "width", make_number (s->width));
  844.   store_in_alist (&alist, "modeline", (s->wants_modeline ? Qt : Qnil));
  845.   store_in_alist (&alist, "minibuffer", (s->has_minibuffer ? Qt : Qnil));
  846.   store_in_alist (&alist, "unsplittable", (s->no_split ? Qt : Qnil));
  847.  
  848.   if (s->output_method == output_x_window)
  849.     x_report_screen_params (s, &alist);
  850.   return alist;
  851. }
  852.  
  853.  
  854. DEFUN ("modify-screen-parameters", Fmodify_screen_parameters, 
  855.        Smodify_screen_parameters, 2, 2, 0,
  856.   "Modify the parameters of screen SCREEN according to ALIST.\n\
  857. ALIST is an alist of parameters to change and their new values.\n\
  858. Each element of ALIST has the form (PARM . VALUE), where PARM is a symbol.\n\
  859. The meaningful PARMs depend on the kind of screen; undefined PARMs are ignored.")
  860.   (screen, alist)
  861.      Lisp_Object screen, alist;
  862. {
  863.   register struct screen *s;
  864.   get_screen (s, screen);
  865.   if (s->display.nothing == 0)
  866.     error ("Cannot modify parameters of a dead screen");
  867.   if (s->output_method != output_x_window)
  868.     error ("Can only modified parameters of an X window screen");
  869.   x_set_screen_values (s, alist);
  870.   return Qnil;
  871. }
  872.  
  873. DEFUN ("screen-height", Fscreen_height, Sscreen_height, 0, 1, 0,
  874.   "Return number of lines available for display on SCREEN.")
  875.   (screen)
  876.      Lisp_Object screen;
  877. {
  878.   struct screen* s;
  879.   get_screen (s, screen);
  880.   return make_number (SCREEN_HEIGHT (s));
  881. }
  882.  
  883. DEFUN ("screen-width", Fscreen_width, Sscreen_width, 0, 1, 0,
  884.   "Return number of columns available for display on SCREEN.")
  885.   (screen)
  886.      Lisp_Object screen;
  887. {
  888.   struct screen* s;
  889.   get_screen (s, screen);
  890.   return make_number (SCREEN_WIDTH (s));
  891. }
  892.  
  893. DEFUN ("screen-name", Fscreen_name, Sscreen_name, 0, 1, 0,
  894.        "Returns the name of SCREEN (defaulting to the selected screen).\n\
  895. This is not the same as the `title' of the screen.")
  896.      (screen)
  897.      Lisp_Object screen;
  898. {
  899.   struct screen* s;
  900.   get_screen (s, screen);
  901.   return s->name;
  902. }
  903.  
  904. DEFUN ("screen-totally-visible-p", Fscreen_totally_visible_p,
  905.        Sscreen_totally_visible_p, 0, 1, 0,
  906.   "Return T if screen is not obscured by any other X windows, NIL otherwise")
  907.   (screen)
  908.      Lisp_Object screen;
  909. {
  910.   struct screen* s;
  911.   get_screen (s, screen);
  912.   return s->display.x->totally_visible_p ? Qt : Qnil;
  913. }
  914.  
  915.  
  916. extern void x_set_window_size (struct screen *, int, int);
  917.  
  918. static void
  919. internal_set_screen_size (s, cols, rows, pretend)
  920.      struct screen* s;
  921.      int cols;
  922.      int rows;
  923.      int pretend;
  924. {
  925. #ifdef HAVE_X_WINDOWS
  926.   if (pretend)
  927.     change_screen_size (s, rows, cols, pretend);
  928.   else
  929.     x_set_window_size (s, cols, rows);
  930. #else
  931.   change_screen_size (s, rows, cols);
  932. #endif
  933. }
  934.  
  935. DEFUN ("set-screen-height", Fset_screen_height, Sset_screen_height, 2, 3, 0,
  936.   "Specify that the screen SCREEN has LINES lines.\n\
  937. Optional third arg non-nil means that redisplay should use LINES lines\n\
  938. but that the idea of the actual height of the screen should not be changed.")
  939.   (screen, rows, pretend)
  940.      Lisp_Object screen, rows, pretend;
  941. {
  942.   struct screen *s;
  943.  
  944.   if (NILP (screen))
  945.     XSET (screen, Lisp_Screen, selected_screen);
  946.   else
  947.     CHECK_SCREEN (screen, 0);
  948.   s = XSCREEN (screen);
  949.   CHECK_FIXNUM (rows, 1);
  950.   
  951.   if (s->display.nothing == 0)
  952.     error ("Cannot set the height of a dead screen");
  953.  
  954.   internal_set_screen_size (s, SCREEN_WIDTH (s), XINT (rows), !NILP (pretend));
  955.   return screen;
  956. }
  957.  
  958. DEFUN ("set-screen-width", Fset_screen_width, Sset_screen_width, 2, 3, 0,
  959.   "Specify that the screen SCREEN has COLS columns.\n\
  960. Optional third arg non-nil means that redisplay should use COLS columns\n\
  961. but that the idea of the actual width of the screen should not be changed.")
  962.   (screen, cols, pretend)
  963.      Lisp_Object screen, cols, pretend;
  964. {
  965.   struct screen *s;
  966.  
  967.   if (NILP (screen))
  968.     XSET (screen, Lisp_Screen, selected_screen);
  969.   else
  970.     CHECK_SCREEN (screen, 0);
  971.   s = XSCREEN (screen);
  972.   CHECK_FIXNUM (cols, 1);
  973.  
  974.   if (s->display.nothing == 0)
  975.     error ("Cannot set the width of a dead screen");
  976.  
  977.   internal_set_screen_size (s, XINT (cols), SCREEN_HEIGHT (s),
  978.                 !NILP (pretend));
  979.   return screen;
  980. }
  981.  
  982. DEFUN ("set-screen-size", Fset_screen_size, 
  983.        Sset_screen_size, 3, 4, 0,
  984.   "Sets size of SCREEN to COLS by ROWS.\n\
  985. Optional fourth arg non-nil means that redisplay should use COLS by ROWS\n\
  986. but that the idea of the actual size of the screen should not be changed.")
  987.   (screen, cols, rows, pretend)
  988.      Lisp_Object screen, cols, rows, pretend;
  989. {
  990.   struct screen *s;
  991.  
  992.   if (NILP (screen))
  993.     XSET (screen, Lisp_Screen, selected_screen);
  994.   else
  995.     CHECK_SCREEN (screen, 0);
  996.   s = XSCREEN (screen);
  997.   CHECK_FIXNUM (cols, 1);
  998.   CHECK_FIXNUM (rows, 2);
  999.  
  1000.   if (s->display.nothing == 0)
  1001.     error ("Cannot set the size of a dead screen");
  1002.  
  1003.   internal_set_screen_size (s, XINT (cols), XINT (rows), !NILP (pretend));
  1004.   return screen;
  1005. }
  1006.  
  1007. extern void x_set_offset (struct screen *, int, int);
  1008.  
  1009. DEFUN ("set-screen-position", Fset_screen_position, 
  1010.        Sset_screen_position, 3, 3, 0,
  1011.   "Sets position of SCREEN in pixels to XOFFSET by YOFFSET.")
  1012.   (screen, xoffset, yoffset)
  1013.      Lisp_Object screen, xoffset, yoffset;
  1014. {
  1015.   register struct screen *s;
  1016.  
  1017.   CHECK_SCREEN (screen, 0);
  1018.   CHECK_FIXNUM (xoffset, 1);
  1019.   CHECK_FIXNUM (yoffset, 2);
  1020.   s = XSCREEN (screen);
  1021.  
  1022.   if (s->display.nothing == 0)
  1023.     error ("Cannot set the position of a dead screen");
  1024.  
  1025.   if (s->output_method == output_x_window)
  1026.     x_set_offset (s, XINT (xoffset), XINT (yoffset));
  1027.  
  1028.   return Qt;
  1029. }
  1030.  
  1031.  
  1032. extern void x_raise_screen (struct screen *, int);
  1033. extern void x_lower_screen (struct screen *);
  1034.  
  1035. DEFUN ("raise-screen", Fraise_screen, Sraise_screen, 1, 1, 0,
  1036.   "Make the window of SCREEN be the uppermost one (fully visible).")
  1037.   (screen)
  1038.      Lisp_Object screen;
  1039. {
  1040.   register struct screen *s;
  1041.   CHECK_SCREEN (screen, 0);
  1042.   s = XSCREEN (screen);
  1043.   if (s->display.nothing == 0)
  1044.     error ("Cannot raise a dead screen");
  1045.   if (s->output_method == output_x_window)
  1046.     x_raise_screen (s, 1);
  1047.   return Qt;
  1048. }
  1049.  
  1050. DEFUN ("lower-screen", Flower_screen, Slower_screen, 1, 1, 0,
  1051.   "Make the window of SCREEN be the bottommost one.")
  1052.   (screen)
  1053.      Lisp_Object screen;
  1054. {
  1055.   register struct screen *s;
  1056.   CHECK_SCREEN (screen, 0);
  1057.   s = XSCREEN (screen);
  1058.   if (s->display.nothing == 0)
  1059.     return Qt;
  1060.   if (s->output_method == output_x_window)
  1061.     x_lower_screen (s);
  1062.   return Qt;
  1063. }
  1064.  
  1065. int
  1066. coordinates_in_window (w, x, y)
  1067.      register struct window *w;
  1068.      register int *x, *y;
  1069. {
  1070.   register int left = XINT (w->left);
  1071.   register int width = XINT (w->width);
  1072.   register int screen_height = XINT ((XSCREEN (w->screen)->height));
  1073.   register int window_height = XINT (w->height);
  1074.   register int top = XFASTINT (w->top);
  1075.  
  1076.   if (*x < left || *x >= left + width
  1077.       ||
  1078.       *y == screen_height || *y < top || *y > top + window_height - 1)
  1079.     return 0;
  1080.  
  1081.   if (*y == top + window_height - 1
  1082.       && window_height > 1)    /* 1 line => minibuffer */
  1083.     /* in modeline */
  1084.     return -1;
  1085.  
  1086.   *x -= left;
  1087.   *y -= top;
  1088.   return 1;
  1089. }
  1090.  
  1091. DEFUN ("coordinates-in-window-p", Fcoordinates_in_window_p,
  1092.   Scoordinates_in_window_p, 2, 2, 0,
  1093.   "Return non-nil if COORDINATES are in WINDOW.\n\
  1094. COORDINATES is a cons of the form (X Y), X and Y being screen-relative.\n\
  1095. If COORDINATES are in the text portion of WINDOW, the coordinates relative\n\
  1096. to the window are returned.  If they are in the modeline of WINDOW, t is\n\
  1097. returned.")
  1098.   (coordinates, window)
  1099.      register Lisp_Object coordinates, window;
  1100. {
  1101.   int x, y;
  1102.  
  1103.   CHECK_WINDOW (window, 0);
  1104.   CHECK_CONS (coordinates, 1);
  1105.   x = XINT (Fcar (coordinates));
  1106.   y = XINT (Fcar (Fcdr (coordinates)));
  1107.  
  1108.   switch (coordinates_in_window (XWINDOW (window), &x, &y))
  1109.     {
  1110.     case -1:            /* In modeline of window. */
  1111.       return Qt;
  1112.  
  1113.     case 0:            /* NOT in window at all. */
  1114.       return Qnil;
  1115.  
  1116.     case 1:            /* In text part of window. */
  1117.       return Fcons (x, Fcons (y, Qnil));
  1118.  
  1119.     default:
  1120.       abort ();
  1121.     }
  1122. }
  1123.  
  1124. #ifdef HAVE_X_WINDOWS
  1125. /* Symbols indicating different parts of the window.  See xfns.c */
  1126.  
  1127. extern Lisp_Object text_part_sym;
  1128. extern Lisp_Object modeline_part_sym;
  1129. #endif
  1130.  
  1131. Lisp_Object
  1132. window_from_coordinates (screen, x, y, part)
  1133.      SCREEN_PTR screen;
  1134.      int x, y;
  1135.      Lisp_Object *part;
  1136. {
  1137.   register Lisp_Object tem, first;
  1138.  
  1139.   first = SCREEN_SELECTED_WINDOW (screen);
  1140.   tem = next_screen_window (screen, first, Qt);
  1141.  
  1142. #if 0
  1143. /*  This loses if there's a global minibuffer, as Fnext_window
  1144.     would force going to another screen.  Likewise below.  So use
  1145.     next_screen_window.  */
  1146.  
  1147.   tem = Fnext_window (first, Qt, Qnil);
  1148. #endif
  1149.  
  1150.   while (1)
  1151.     {
  1152.       int found = coordinates_in_window (XWINDOW (tem), &x, &y);
  1153.  
  1154.       if (found)
  1155.     {
  1156. #ifdef HAVE_X_WINDOWS
  1157.       *part = (found == -1 ? modeline_part_sym : text_part_sym);
  1158. #endif
  1159.       return tem;
  1160.     }
  1161.  
  1162.       if (EQ (tem, first))
  1163.     return Qnil;
  1164.       
  1165.       tem = next_screen_window (screen, tem, Qt);
  1166.     }
  1167. }
  1168.  
  1169. DEFUN ("locate-window-from-coordinates",
  1170.        Flocate_window_from_coordinates, Slocate_window_from_coordinates,
  1171.        2, 2, 0,
  1172.   "Return window on SCREEN containing position COORDINATES.\n\
  1173. COORDINATES is a list (SCREEN-X SCREEN-Y) of coordinates\n\
  1174. which are relative to 0,0 at the top left corner of the screen.")
  1175.   (screen, coordinates)
  1176.       Lisp_Object screen, coordinates;
  1177. {
  1178.   Lisp_Object part;
  1179.  
  1180.   CHECK_SCREEN (screen, 0);
  1181.   CHECK_CONS (coordinates, 1);
  1182.  
  1183.   return window_from_coordinates (XSCREEN (screen),
  1184.                   XINT (Fcar (coordinates)),
  1185.                   XINT (Fcar (Fcdr (coordinates))),
  1186.                   &part);
  1187. }
  1188.  
  1189.  
  1190. SCREEN_PTR
  1191. choose_minibuf_screen ()
  1192. {
  1193.   if (SCREENP (Vglobal_minibuffer_screen))
  1194.     return XSCREEN (Vglobal_minibuffer_screen);
  1195.  
  1196.   /* For lowest-level minibuf, put it on currently selected screen
  1197.      if screen has a minibuffer.  */
  1198.   if (minibuf_level == 0
  1199.       && selected_screen != 0
  1200.       && !EQ (minibuf_window, selected_screen->minibuffer_window)
  1201.       && !EQ (Qnil, selected_screen->minibuffer_window))
  1202.     {
  1203.       Fset_window_buffer (selected_screen->minibuffer_window,
  1204.               XWINDOW (minibuf_window)->buffer);
  1205.       minibuf_window = selected_screen->minibuffer_window;
  1206.     }
  1207.  
  1208.   return selected_screen;
  1209. }
  1210.  
  1211. void
  1212. syms_of_screen ()
  1213. {
  1214.   DEFVAR_LISP ("terminal-screen", &Vterminal_screen,
  1215.     "The initial screen-object, which represents Emacs's stdout.");
  1216.   /* This is set in init_window_once. */
  1217.  
  1218.   DEFVAR_LISP ("global-minibuffer-screen", &Vglobal_minibuffer_screen,
  1219.  "A screen-object holding the default minibuffer for minibufferless screens.\n\
  1220. When you create a minibufferless screen, by default it will use the\n\
  1221. minibuffer of this screen.  It is up to you to create a suitable screen\n\
  1222. and store it in this variable.");
  1223.   Vglobal_minibuffer_screen = Qnil;
  1224.  
  1225.   DEFVAR_BOOL ("allow-deletion-of-last-visible-screen",
  1226.            &allow_deletion_of_last_visible_screen,
  1227.  "*If nil, the last visible screen may not be deleted by `delete-window'\n\
  1228. You can never delete the last screen, but setting this to t will allow you\n\
  1229. to delete the last non-iconified screen.");
  1230.   allow_deletion_of_last_visible_screen = 0;
  1231.  
  1232.   /* This is set in init_window_once. */
  1233.   staticpro (&Vscreen_list);
  1234.  
  1235.   /* defvarred in screen.el so that they can be buffer-local */
  1236.   defsymbol (&Qselect_screen_hook, "select-screen-hook");
  1237.   defsymbol (&Qdeselect_screen_hook, "deselect-screen-hook");
  1238.  
  1239.   DEFVAR_LISP ("create-screen-hook", &Vcreate_screen_hook,
  1240.            "Function or functions of one argument,\
  1241.  called with each newly-created screen.");
  1242.   Vcreate_screen_hook = Qnil;
  1243.   defsymbol (&Qcreate_screen_hook, "create-screen-hook");
  1244.  
  1245.   DEFVAR_LISP ("mouse-enter-screen-hook", &Vmouse_enter_screen_hook,
  1246.      "Function or functions to call when mouse enters a screen.  \
  1247. One arg, the screen.\n\
  1248. Be careful not to make assumptions about the window manger's focus model.\n\
  1249. In most cases, the `deselect-screen-hook' is more appropriate.");
  1250.   Vmouse_enter_screen_hook = Qnil;
  1251.   defsymbol (&Qmouse_enter_screen_hook, "mouse-enter-screen-hook");
  1252.  
  1253.   DEFVAR_LISP ("mouse-leave-screen-hook", &Vmouse_leave_screen_hook,
  1254.      "Function or functions to call when mouse leaves screen.  \
  1255. One arg, the screen.\n\
  1256. Be careful not to make assumptions about the window manger's focus model.\n\
  1257. In most cases, the `select-screen-hook' is more appropriate.");
  1258.   Vmouse_leave_screen_hook = Qnil;
  1259.   defsymbol (&Qmouse_leave_screen_hook, "mouse-leave-screen-hook");
  1260.  
  1261.   DEFVAR_LISP ("map-screen-hook", &Vmap_screen_hook,
  1262.     "Function or functions to call when screen is mapped.\n\
  1263. One arg, the screen.");
  1264.   Vmap_screen_hook = Qnil;
  1265.   defsymbol (&Qmap_screen_hook, "map-screen-hook");
  1266.  
  1267.   DEFVAR_LISP ("unmap-screen-hook", &Vunmap_screen_hook,
  1268.     "Function or functions to call when screen is unmapped.\n\
  1269. One arg, the screen.");
  1270.   Vunmap_screen_hook = Qnil;
  1271.   defsymbol (&Qunmap_screen_hook, "unmap-screen-hook");
  1272.  
  1273.   DEFVAR_LISP ("mouse-motion-handler", &Vmouse_motion_handler,
  1274.     "Handler for motion events.  One arg, the event.\n\
  1275. For most applications, you should use `mode-motion-hook' instead of this.");
  1276.   Vmouse_motion_handler = Qnil;
  1277.  
  1278.   DEFVAR_LISP ("mouse-grabbed-buffer", &Vmouse_grabbed_buffer,
  1279.     "A buffer which should be consulted first for all mouse activity.\n\
  1280. When a mouse-clicked it processed, it will first be looked up in the\n\
  1281. local-map of this buffer, and then through the normal mechanism if there\n\
  1282. is no binding for that click.  This buffer's value of `mode-motion-hook'\n\
  1283. will be consulted instead of the `mode-motion-hook' of the buffer of the\n\
  1284. window under the mouse.  You should *bind* this, not set it.");
  1285.   Vmouse_grabbed_buffer = Qnil;
  1286.  
  1287.   defsubr (&Sscreenp);
  1288.   defsubr (&Sselect_screen);
  1289.   defsubr (&Sselected_screen);
  1290.   defsubr (&Swindow_screen);
  1291.   defsubr (&Sscreen_root_window);
  1292.   defsubr (&Sscreen_selected_window);
  1293.   defsubr (&Sscreen_list);
  1294.   defsubr (&Snext_screen);
  1295.   defsubr (&Sprevious_screen);
  1296.   defsubr (&Sdelete_screen);
  1297.   defsubr (&Sread_mouse_position);
  1298.   defsubr (&Sset_mouse_position);
  1299. #if 0
  1300.   defsubr (&Sscreen_configuration);
  1301.   defsubr (&Srestore_screen_configuration);
  1302. #endif
  1303.   defsubr (&Smake_screen_visible);
  1304.   defsubr (&Smake_screen_invisible);
  1305.   defsubr (&Sraise_screen);
  1306.   defsubr (&Slower_screen);
  1307.   defsubr (&Siconify_screen);
  1308.   defsubr (&Sdeiconify_screen);
  1309.   defsubr (&Sscreen_visible_p);
  1310.   defsubr (&Svisible_screen_list);
  1311.   defsubr (&Sscreen_parameters);
  1312.   defsubr (&Smodify_screen_parameters);
  1313.   defsubr (&Sscreen_height);
  1314.   defsubr (&Sscreen_width);
  1315.   defsubr (&Sscreen_name);
  1316.   defsubr (&Sscreen_totally_visible_p);
  1317.   defsubr (&Sset_screen_height);
  1318.   defsubr (&Sset_screen_width);
  1319.   defsubr (&Sset_screen_size);
  1320.   defsubr (&Sset_screen_position);
  1321.   defsubr (&Scoordinates_in_window_p);
  1322.   defsubr (&Slocate_window_from_coordinates);
  1323. }
  1324.