-/* Define screen-object for GNU Emacs.
- Copyright (C) 1988 Free Software Foundation, Inc.
-
-This file is part of GNU Emacs.
-
-GNU Emacs is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 1, or (at your option)
-any later version.
-
-GNU Emacs is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with GNU Emacs; see the file COPYING. If not, write to
-the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
-
-
-#ifdef MULTI_SCREEN
-
-enum output_method
-{ output_termcap, output_x_window };
-
-struct screen
-{
- int size;
- struct Lisp_Vector *next;
-
- /* glyphs as they appear on the screen */
- struct screen_glyphs *current_glyphs;
-
- /* glyphs we'd like to appear on the screen */
- struct screen_glyphs *desired_glyphs;
-
- /* Cost of inserting 1 line on this screen */
- int *insert_line_cost;
-
- /* Cost of deleting 1 line on this screen */
- int *delete_line_cost;
-
- /* Cost of inserting n lines on this screen */
- int *insert_n_lines_cost;
-
- /* Cost of deleting n lines on this screen */
- int *delete_n_lines_cost;
-
- /* glyphs for the mode line */
- struct screen_glyphs *temp_glyphs;
-
- /* Intended cursor position of this screen.
- Measured in characters, counting from upper left corner
- within the screen. */
- int cursor_x;
- int cursor_y;
-
- /* Actual cursor position of this screen.
- (Not used for terminal screens.) */
- int phys_cursor_x;
- int phys_cursor_y;
-
- /* Size of this screen, in units of characters. */
- int height;
- int width;
-
- /* New height and width for pending size change. 0 if no change pending. */
- int new_height, new_width;
-
- /* Name of this screen: a Lisp string. */
- Lisp_Object name;
-
- /* This screen's root window. Every screen has one.
- If the screen has only a minibuffer window, this is it.
- Otherwise, if the screen has a minibuffer window, this is its sibling. */
- Lisp_Object root_window;
-
- /* This screen's selected window.
- Each screen has its own window hierarchy
- and one of the windows in it is selected within the screen.
- The selected window of the selected screen is Emacs's selected window. */
- Lisp_Object selected_window;
-
- /* This screen's minibuffer window.
- Most screens have their own minibuffer windows,
- but only the selected screen's minibuffer window
- can actually appear to exist. */
- Lisp_Object minibuffer_window;
-
- /* Parameter alist of this screen.
- These are the parameters specified when creating the screen
- or modified with modify-screen-parameters. */
- Lisp_Object param_alist;
-
- /* The output method says how the contents of this screen
- are displayed. It could be using termcap, or using an X window. */
- enum output_method output_method;
-
- /* A structure of auxiliary data used for displaying the contents.
- struct x_display is used for X window screens;
- it is defined in xterm.h. */
- union display { struct x_display *x; int nothing; } display;
-
- /* Nonzero if last attempt at redisplay on this screen was preempted. */
- char display_preempted;
-
- /* Nonzero if screen is currently displayed. */
- char visible;
-
- /* Nonzero if window is currently iconified.
- This and visible are mutually exclusive. */
- char iconified;
-
- /* Nonzero if this screen should be redrawn. */
- char garbaged;
-
- /* True if screen actually has a minibuffer window on it.
- 0 if using a minibuffer window that isn't on this screen. */
- char has_minibuffer;
-
- /* 0 means, if this screen has just one window,
- show no modeline for that window. */
- char wants_modeline;
-
- /* Non-0 means raise this screen to the top of the heap when selected. */
- char auto_raise;
-
- /* Non-0 means lower this screen to the bottom of the stack when left. */
- char auto_lower;
-
- /* True if screen's root window can't be split. */
- char no_split;
-
- /* Storage for messages to this screen. */
- char *message_buf;
-
- /* Nonnegative if current redisplay should not do scroll computation
- for lines beyond a certain vpos. This is the vpos. */
- int scroll_bottom_vpos;
-};
-
-typedef struct screen *SCREEN_PTR;
-
-#define XSCREEN(p) ((struct screen *) XPNTR (p))
-#define XSETSCREEN(p, v) ((struct screen *) XSETPNTR (p, v))
-
-#define WINDOW_SCREEN(w) (w)->screen
-
-#define SET_SCREEN_GARBAGED(s) (screen_garbaged = 1, s->garbaged = 1)
-#define SCREEN_IS_TERMCAP(s) ((s)->output_method == output_termcap)
-#define SCREEN_IS_X(s) ((s)->output_method == output_x_window)
-#define SCREEN_CURRENT_GLYPHS(s) (s)->current_glyphs
-#define SCREEN_DESIRED_GLYPHS(s) (s)->desired_glyphs
-#define SCREEN_TEMP_GLYPHS(s) (s)->temp_glyphs
-#define SCREEN_HEIGHT(s) (s)->height
-#define SCREEN_WIDTH(s) (s)->width
-#define SCREEN_NEW_HEIGHT(s) (s)->new_height
-#define SCREEN_NEW_WIDTH(s) (s)->new_width
-#define SCREEN_CURSOR_X(s) (s)->cursor_x
-#define SCREEN_CURSOR_Y(s) (s)->cursor_y
-#define SCREEN_VISIBLE_P(s) (s)->visible
-#define SCREEN_GARBAGED_P(s) (s)->garbaged
-#define SCREEN_NO_SPLIT_P(s) (s)->no_split
-#define SCREEN_WANTS_MODELINE_P(s) (s)->wants_modeline
-#define SCREEN_ICONIFIED_P(s) (s)->iconified
-#define SCREEN_MINIBUF_WINDOW(s) (s)->minibuffer_window
-#define SCREEN_ROOT_WINDOW(s) (s)->root_window
-#define SCREEN_SELECTED_WINDOW(s) (s)->selected_window
-#define SCREENP(s) (XTYPE(s) == Lisp_Screen)
-#define SET_GLYPHS_SCREEN(glyphs,screen) ((glyphs)->screen = (screen))
-#define SCREEN_INSERT_COST(s) (s)->insert_line_cost
-#define SCREEN_DELETE_COST(s) (s)->delete_line_cost
-#define SCREEN_INSERTN_COST(s) (s)->insert_n_lines_cost
-#define SCREEN_DELETEN_COST(s) (s)->delete_n_lines_cost
-#define SCREEN_MESSAGE_BUF(s) (s)->message_buf
-#define SCREEN_SCROLL_BOTTOM_VPOS(s) (s)->scroll_bottom_vpos
-
-#define CHECK_SCREEN(x, i) \
- { if (XTYPE ((x)) != Lisp_Screen) x = wrong_type_argument (Qscreenp, (x)); }
-extern Lisp_Object Qscreenp;
-
-extern struct screen *selected_screen;
-
-extern struct screen *make_terminal_screen ();
-extern struct screen *make_screen ();
-extern struct screen *make_minibuffer_screen ();
-extern struct screen *make_screen_without_minibuffer ();
-
-extern Lisp_Object Vscreen_list;
-extern Lisp_Object Vglobal_minibuffer_screen;
-
-extern Lisp_Object Vterminal_screen;
-\f
-#else /* not MULTI_SCREEN */
-
-/* These definitions are used in a single-screen version of Emacs. */
-
-#define SCREEN_PTR int
-
-extern int selected_screen;
-
-#define XSCREEN(s) selected_screen
-#define WINDOW_SCREEN(w) selected_screen
-
-#define SET_SCREEN_GARBAGED(s) (screen_garbaged = 1)
-#define SCREEN_IS_TERMCAP(s) 1
-#define SCREEN_CURRENT_GLYPHS(s) current_glyphs
-#define SCREEN_DESIRED_GLYPHS(s) desired_glyphs
-#define SCREEN_TEMP_GLYPHS(s) temp_glyphs
-#define SCREEN_HEIGHT(s) screen_height
-#define SCREEN_WIDTH(s) screen_width
-#define SCREEN_NEW_HEIGHT(s) delayed_screen_height
-#define SCREEN_NEW_WIDTH(s) delayed_screen_width
-#define SCREEN_CURSOR_X(s) cursX
-#define SCREEN_CURSOR_Y(s) cursY
-#define SCREEN_VISIBLE_P(s) 1
-#define SCREEN_GARBAGED_P(s) screen_garbaged
-#define SCREEN_NO_SPLIT_P(s) 0
-#define SCREEN_WANTS_MODELINE_P(s) 1
-#define SCREEN_ICONIFIED_P(s) 0
-#define SCREEN_MINIBUF_WINDOW(s) minibuf_window
-#define SCREEN_ROOT_WINDOW(s) root_window
-#define SCREEN_SELECTED_WINDOW(s) selected_window
-#define SCREENP(s) 0
-#define SET_GLYPHS_SCREEN(glyphs,screen)
-#define SCREEN_INSERT_COST(screen) insert_line_cost
-#define SCREEN_DELETE_COST(screen) delete_line_cost
-#define SCREEN_INSERTN_COST(screen) insert_n_lines_cost
-#define SCREEN_DELETEN_COST(screen) delete_n_lines_cost
-#define SCREEN_MESSAGE_BUF(s) message_buf
-#define SCREEN_SCROLL_BOTTOM_VPOS scroll_bottom_vpos;
-
-extern int screen_width, screen_height;
-extern int cursX, cursY;
-
-#endif /* not MULTI_SCREEN */
+/* Define frame-object for GNU Emacs.
+ Copyright (C) 1993, 1994 Free Software Foundation, Inc.
+
+This file is part of GNU Emacs.
+
+GNU Emacs is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+GNU Emacs is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with GNU Emacs; see the file COPYING. If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
+
+\f
+/* Miscellanea. */
+
+/* Nonzero means don't assume anything about current
+ contents of actual terminal frame */
+extern int frame_garbaged;
+
+/* Nonzero means FRAME_MESSAGE_BUF (selected_frame) is being used by
+ print. */
+extern int message_buf_print;
+
+\f
+/* The structure representing a frame.
+
+ We declare this even if MULTI_FRAME is not defined, because when
+ we lack multi-frame support, we use one instance of this structure
+ to represent the one frame we support. This is cleaner than
+ having miscellaneous random variables scattered about. */
+
+enum output_method
+{ output_termcap, output_x_window };
+
+struct frame
+{
+ EMACS_INT size;
+ struct Lisp_Vector *next;
+
+ /* glyphs as they appear on the frame */
+ struct frame_glyphs *current_glyphs;
+
+ /* glyphs we'd like to appear on the frame */
+ struct frame_glyphs *desired_glyphs;
+
+ /* See do_line_insertion_deletion_costs for info on these arrays. */
+ /* Cost of inserting 1 line on this frame */
+ int *insert_line_cost;
+ /* Cost of deleting 1 line on this frame */
+ int *delete_line_cost;
+ /* Cost of inserting n lines on this frame */
+ int *insert_n_lines_cost;
+ /* Cost of deleting n lines on this frame */
+ int *delete_n_lines_cost;
+
+ /* glyphs for the mode line */
+ struct frame_glyphs *temp_glyphs;
+
+ /* Intended cursor position of this frame.
+ Measured in characters, counting from upper left corner
+ within the frame. */
+ int cursor_x;
+ int cursor_y;
+
+ /* Actual cursor position of this frame, and the character under it.
+ (Not used for terminal frames.) */
+ int phys_cursor_x;
+ int phys_cursor_y;
+ /* This is handy for undrawing the cursor, because current_glyphs is
+ not always accurate when in do_scrolling. */
+ GLYPH phys_cursor_glyph;
+
+ /* Size of this frame, in units of characters. */
+ EMACS_INT height;
+ EMACS_INT width;
+
+ /* New height and width for pending size change. 0 if no change pending. */
+ int new_height, new_width;
+
+ /* Name of this frame: a Lisp string. See also `explicit_name'. */
+ Lisp_Object name;
+
+ /* The frame which should receive keystrokes that occur in this
+ frame, or nil if they should go to the frame itself. This is
+ usually nil, but if the frame is minibufferless, we can use this
+ to redirect keystrokes to a surrogate minibuffer frame when
+ needed.
+
+ Note that a value of nil is different than having the field point
+ to the frame itself. Whenever the Fselect_frame function is used
+ to shift from one frame to the other, any redirections to the
+ original frame are shifted to the newly selected frame; if
+ focus_frame is nil, Fselect_frame will leave it alone. */
+ Lisp_Object focus_frame;
+
+ /* This frame's root window. Every frame has one.
+ If the frame has only a minibuffer window, this is it.
+ Otherwise, if the frame has a minibuffer window, this is its sibling. */
+ Lisp_Object root_window;
+
+ /* This frame's selected window.
+ Each frame has its own window hierarchy
+ and one of the windows in it is selected within the frame.
+ The selected window of the selected frame is Emacs's selected window. */
+ Lisp_Object selected_window;
+
+ /* This frame's minibuffer window.
+ Most frames have their own minibuffer windows,
+ but only the selected frame's minibuffer window
+ can actually appear to exist. */
+ Lisp_Object minibuffer_window;
+
+ /* Parameter alist of this frame.
+ These are the parameters specified when creating the frame
+ or modified with modify-frame-parameters. */
+ Lisp_Object param_alist;
+
+ /* List of scroll bars on this frame.
+ Actually, we don't specify exactly what is stored here at all; the
+ scroll bar implementation code can use it to store anything it likes.
+ This field is marked by the garbage collector. It is here
+ instead of in the `display' structure so that the garbage
+ collector doesn't need to look inside the window-system-dependent
+ structure. */
+ Lisp_Object scroll_bars;
+ Lisp_Object condemned_scroll_bars;
+
+ /* List of elements to display in the menu bar.
+ The elements have the form (KEY STRING . nil) to start;
+ when they are displayed, the hpos of the left edge goes in the cddr. */
+ Lisp_Object menu_bar_items;
+
+ /* Alist of elements (FACE-NAME . FACE-VECTOR-DATA). */
+ Lisp_Object face_alist;
+
+ /* The output method says how the contents of this frame
+ are displayed. It could be using termcap, or using an X window. */
+ enum output_method output_method;
+
+ /* A structure of auxiliary data used for displaying the contents.
+ struct x_display is used for X window frames;
+ it is defined in xterm.h. */
+ union display { struct x_display *x; int nothing; } display;
+
+ /* Number of lines of menu bar. */
+ int menu_bar_lines;
+
+#ifdef USE_X_TOOLKIT
+ /* Nonzero means using a menu bar that comes from the X toolkit. */
+ int external_menu_bar;
+#endif
+
+ /* Nonzero if last attempt at redisplay on this frame was preempted. */
+ char display_preempted;
+
+ /* visible is nonzero if the frame is currently displayed; we check
+ it to see if we should bother updating the frame's contents.
+ DON'T SET IT DIRECTLY; instead, use FRAME_SET_VISIBLE.
+
+ Note that, since invisible frames aren't updated, whenever a
+ frame becomes visible again, it must be marked as garbaged. The
+ FRAME_SAMPLE_VISIBILITY macro takes care of this.
+
+ iconified is nonzero if the frame is currently iconified.
+
+ Asynchronous input handlers should NOT change these directly;
+ instead, they should change async_visible or async_iconified, and
+ let the FRAME_SAMPLE_VISIBILITY macro set visible and iconified
+ at the next redisplay.
+
+ These should probably be considered read-only by everyone except
+ FRAME_SAMPLE_VISIBILITY.
+
+ These two are mutually exclusive. They might both be zero, if the
+ frame has been made invisible without an icon. */
+ char visible, iconified;
+
+ /* Asynchronous input handlers change these, and
+ FRAME_SAMPLE_VISIBILITY copies them into visible and iconified.
+ See FRAME_SAMPLE_VISIBILITY, below. */
+#ifdef __STDC__
+ volatile
+#endif
+ char async_visible, async_iconified;
+
+ /* Nonzero if this frame should be redrawn. */
+#ifdef __STDC__
+ volatile
+#endif
+ char garbaged;
+
+ /* True if frame actually has a minibuffer window on it.
+ 0 if using a minibuffer window that isn't on this frame. */
+ char has_minibuffer;
+
+ /* 0 means, if this frame has just one window,
+ show no modeline for that window. */
+ char wants_modeline;
+
+ /* Non-zero if the hardware device this frame is displaying on can
+ support scroll bars. */
+ char can_have_scroll_bars;
+
+ /* If can_have_scroll_bars is non-zero, this is non-zero if we should
+ actually display them on this frame. */
+ char has_vertical_scroll_bars;
+
+ /* Non-0 means raise this frame to the top of the heap when selected. */
+ char auto_raise;
+
+ /* Non-0 means lower this frame to the bottom of the stack when left. */
+ char auto_lower;
+
+ /* True if frame's root window can't be split. */
+ char no_split;
+
+ /* If this is set, then Emacs won't change the frame name to indicate
+ the current buffer, etcetera. If the user explicitly sets the frame
+ name, this gets set. If the user sets the name to Qnil, this is
+ cleared. */
+ char explicit_name;
+
+ /* Storage for messages to this frame. */
+ char *message_buf;
+
+ /* Nonnegative if current redisplay should not do scroll computation
+ for lines beyond a certain vpos. This is the vpos. */
+ int scroll_bottom_vpos;
+
+ /* A vector that records the entire structure of this frame's menu bar.
+ For the format of the data, see extensive comments in xmenu.c.
+ Only the X toolkit version uses this. */
+ Lisp_Object menu_bar_vector;
+ /* Number of elements in the vector that have meaningful data. */
+ int menu_bar_items_used;
+};
+
+#ifdef MULTI_FRAME
+
+typedef struct frame *FRAME_PTR;
+
+#define XFRAME(p) ((struct frame *) XPNTR (p))
+#define XSETFRAME(p, v) ((struct frame *) XSETPNTR (p, v))
+
+#define WINDOW_FRAME(w) (w)->frame
+
+#define FRAME_LIVE_P(f) ((f)->display.nothing != 0)
+#define FRAME_TERMCAP_P(f) ((f)->output_method == output_termcap)
+#define FRAME_X_P(f) ((f)->output_method == output_x_window)
+#define FRAME_MINIBUF_ONLY_P(f) \
+ EQ (FRAME_ROOT_WINDOW (f), FRAME_MINIBUF_WINDOW (f))
+#define FRAME_HAS_MINIBUF_P(f) ((f)->has_minibuffer)
+#define FRAME_CURRENT_GLYPHS(f) (f)->current_glyphs
+#define FRAME_DESIRED_GLYPHS(f) (f)->desired_glyphs
+#define FRAME_TEMP_GLYPHS(f) (f)->temp_glyphs
+#define FRAME_HEIGHT(f) (f)->height
+#define FRAME_WIDTH(f) (f)->width
+#define FRAME_NEW_HEIGHT(f) (f)->new_height
+#define FRAME_NEW_WIDTH(f) (f)->new_width
+#define FRAME_MENU_BAR_LINES(f) (f)->menu_bar_lines
+#ifdef USE_X_TOOLKIT
+#define FRAME_EXTERNAL_MENU_BAR(f) (f)->external_menu_bar
+#else
+#define FRAME_EXTERNAL_MENU_BAR(f) 0
+#endif
+#define FRAME_CURSOR_X(f) (f)->cursor_x
+#define FRAME_CURSOR_Y(f) (f)->cursor_y
+#define FRAME_VISIBLE_P(f) ((f)->visible != 0)
+#define FRAME_SET_VISIBLE(f,p) \
+ ((f)->async_visible = (p), FRAME_SAMPLE_VISIBILITY (f))
+#define SET_FRAME_GARBAGED(f) (frame_garbaged = 1, f->garbaged = 1)
+#define FRAME_GARBAGED_P(f) (f)->garbaged
+#define FRAME_NO_SPLIT_P(f) (f)->no_split
+#define FRAME_WANTS_MODELINE_P(f) (f)->wants_modeline
+#define FRAME_ICONIFIED_P(f) (f)->iconified
+#define FRAME_MINIBUF_WINDOW(f) (f)->minibuffer_window
+#define FRAME_ROOT_WINDOW(f) (f)->root_window
+#define FRAME_SELECTED_WINDOW(f) (f)->selected_window
+#define SET_GLYPHS_FRAME(glyphs,frame) ((glyphs)->frame = (frame))
+#define FRAME_INSERT_COST(f) (f)->insert_line_cost
+#define FRAME_DELETE_COST(f) (f)->delete_line_cost
+#define FRAME_INSERTN_COST(f) (f)->insert_n_lines_cost
+#define FRAME_DELETEN_COST(f) (f)->delete_n_lines_cost
+#define FRAME_MESSAGE_BUF(f) (f)->message_buf
+#define FRAME_SCROLL_BOTTOM_VPOS(f) (f)->scroll_bottom_vpos
+#define FRAME_FOCUS_FRAME(f) (f)->focus_frame
+#define FRAME_CAN_HAVE_SCROLL_BARS(f) ((f)->can_have_scroll_bars)
+#define FRAME_HAS_VERTICAL_SCROLL_BARS(f) ((f)->has_vertical_scroll_bars)
+#define FRAME_SCROLL_BARS(f) ((f)->scroll_bars)
+#define FRAME_CONDEMNED_SCROLL_BARS(f) ((f)->condemned_scroll_bars)
+#define FRAME_MENU_BAR_ITEMS(f) ((f)->menu_bar_items)
+
+/* Emacs's redisplay code could become confused if a frame's
+ visibility changes at arbitrary times. For example, if a frame is
+ visible while the desired glyphs are being built, but becomes
+ invisible before they are updated, then some rows of the
+ desired_glyphs will be left marked as enabled after redisplay is
+ complete, which should never happen. The next time the frame
+ becomes visible, redisplay will probably barf.
+
+ Currently, there are no similar situations involving iconified, but
+ the principle is the same.
+
+ So instead of having asynchronous input handlers directly set and
+ clear the frame's visibility and iconification flags, they just set
+ the async_visible and async_iconified flags; the redisplay code
+ calls the FRAME_SAMPLE_VISIBILITY macro before doing any redisplay,
+ which sets visible and iconified from their asynchronous
+ counterparts.
+
+ Synchronous code must use the FRAME_SET_VISIBLE macro.
+
+ Also, if a frame used to be invisible, but has just become visible,
+ it must be marked as garbaged, since redisplay hasn't been keeping
+ up its contents. */
+#define FRAME_SAMPLE_VISIBILITY(f) \
+ (((f)->async_visible && ! (f)->visible) ? SET_FRAME_GARBAGED (f) : 0, \
+ (f)->visible = (f)->async_visible, \
+ (f)->iconified = (f)->async_iconified)
+
+#define CHECK_FRAME(x, i) \
+ { \
+ if (! FRAMEP (x)) \
+ x = wrong_type_argument (Qframep, (x)); \
+ }
+
+#define CHECK_LIVE_FRAME(x, i) \
+ { \
+ if (! FRAMEP (x) \
+ || ! FRAME_LIVE_P (XFRAME (x))) \
+ x = wrong_type_argument (Qframe_live_p, (x)); \
+ }
+
+/* FOR_EACH_FRAME (LIST_VAR, FRAME_VAR) followed by a statement is a
+ `for' loop which iterates over the elements of Vframe_list. The
+ loop will set FRAME_VAR, a Lisp_Object, to each frame in
+ Vframe_list in succession and execute the statement. LIST_VAR
+ should be a Lisp_Object too; it is used to iterate through the
+ Vframe_list.
+
+ If MULTI_FRAME isn't defined, then this loop expands to something which
+ executes the statement once. */
+#define FOR_EACH_FRAME(list_var, frame_var) \
+ for ((list_var) = Vframe_list; \
+ (CONSP (list_var) \
+ && (frame_var = XCONS (list_var)->car, 1)); \
+ list_var = XCONS (list_var)->cdr)
+
+
+extern Lisp_Object Qframep, Qframe_live_p, Qicon;
+
+extern struct frame *selected_frame;
+extern struct frame *last_nonminibuf_frame;
+
+extern struct frame *make_terminal_frame ();
+extern struct frame *make_frame ();
+extern struct frame *make_minibuffer_frame ();
+extern struct frame *make_frame_without_minibuffer ();
+
+extern Lisp_Object Vframe_list;
+extern Lisp_Object Vdefault_frame_alist;
+
+extern Lisp_Object Vterminal_frame;
+\f
+#else /* not MULTI_FRAME */
+
+/* These definitions are used in a single-frame version of Emacs. */
+
+#define FRAME_PTR int
+
+/* A frame we use to store all the data concerning the screen when we
+ don't have multiple frames. Remember, if you store any data in it
+ which needs to be protected from GC, you should staticpro that
+ element explicitly. */
+extern struct frame the_only_frame;
+
+extern EMACS_INT selected_frame;
+extern EMACS_INT last_nonminibuf_frame;
+
+#define XFRAME(f) selected_frame
+#define WINDOW_FRAME(w) selected_frame
+
+#define FRAME_LIVE_P(f) 1
+#define FRAME_TERMCAP_P(f) 1
+#define FRAME_X_P(f) 0
+#define FRAME_MINIBUF_ONLY_P(f) 0
+#define FRAME_HAS_MINIBUF_P(f) 1
+#define FRAME_CURRENT_GLYPHS(f) (the_only_frame.current_glyphs)
+#define FRAME_DESIRED_GLYPHS(f) (the_only_frame.desired_glyphs)
+#define FRAME_TEMP_GLYPHS(f) (the_only_frame.temp_glyphs)
+#define FRAME_HEIGHT(f) (the_only_frame.height)
+#define FRAME_WIDTH(f) (the_only_frame.width)
+#define FRAME_NEW_HEIGHT(f) (the_only_frame.new_height)
+#define FRAME_NEW_WIDTH(f) (the_only_frame.new_width)
+#define FRAME_MENU_BAR_LINES(f) (the_only_frame.menu_bar_lines)
+#define FRAME_CURSOR_X(f) (the_only_frame.cursor_x)
+#define FRAME_CURSOR_Y(f) (the_only_frame.cursor_y)
+#define FRAME_SET_VISIBLE(f,p) (p)
+#define FRAME_VISIBLE_P(f) 1
+#define SET_FRAME_GARBAGED(f) (frame_garbaged = 1)
+#define FRAME_GARBAGED_P(f) (frame_garbaged)
+#define FRAME_NO_SPLIT_P(f) 0
+#define FRAME_WANTS_MODELINE_P(f) 1
+#define FRAME_ICONIFIED_P(f) 0
+#define FRAME_MINIBUF_WINDOW(f) (minibuf_window)
+#define FRAME_ROOT_WINDOW(f) (the_only_frame.root_window)
+#define FRAME_SELECTED_WINDOW(f) (selected_window)
+#define SET_GLYPHS_FRAME(glyphs,frame) do ; while (0)
+#define FRAME_INSERT_COST(frame) (the_only_frame.insert_line_cost)
+#define FRAME_DELETE_COST(frame) (the_only_frame.delete_line_cost)
+#define FRAME_INSERTN_COST(frame) (the_only_frame.insert_n_lines_cost)
+#define FRAME_DELETEN_COST(frame) (the_only_frame.delete_n_lines_cost)
+#define FRAME_MESSAGE_BUF(f) (the_only_frame.message_buf)
+#define FRAME_SCROLL_BOTTOM_VPOS(f) (the_only_frame.scroll_bottom_vpos)
+#define FRAME_FOCUS_FRAME(f) (Qnil)
+#define FRAME_CAN_HAVE_SCROLL_BARS(f) (the_only_frame.can_have_scroll_bars)
+#define FRAME_HAS_VERTICAL_SCROLL_BARS(f) \
+ (the_only_frame.has_vertical_scroll_bars)
+#define FRAME_SCROLL_BARS(f) (the_only_frame.scroll_bars)
+#define FRAME_CONDEMNED_SCROLL_BARS(f) (the_only_frame.condemned_scroll_bars)
+#define FRAME_MENU_BAR_ITEMS(f) (the_only_frame.menu_bar_items)
+
+/* See comments in definition above. */
+#define FRAME_SAMPLE_VISIBILITY(f) (0)
+
+#define CHECK_FRAME(x, i) do; while (0)
+#define CHECK_LIVE_FRAME(x, y) do; while (0)
+
+/* FOR_EACH_FRAME (LIST_VAR, FRAME_VAR) followed by a statement is a
+ `for' loop which iterates over the elements of Vframe_list. The
+ loop will set FRAME_VAR, a Lisp_Object, to each frame in
+ Vframe_list in succession and execute the statement. LIST_VAR
+ should be a Lisp_Object too; it is used to iterate through the
+ Vframe_list.
+
+ If MULTI_FRAME _is_ defined, then this loop expands to a real
+ `for' loop which traverses Vframe_list using LIST_VAR and
+ FRAME_VAR. */
+#define FOR_EACH_FRAME(list_var, frame_var) \
+ for (list_var = Qt; XFASTINT (frame_var) = selected_frame, ! NILP (list_var); list_var = Qnil)
+
+#endif /* not MULTI_FRAME */
+
+\f
+/* Device- and MULTI_FRAME-independent scroll bar stuff. */
+
+/* The number of columns a vertical scroll bar occupies. */
+#define VERTICAL_SCROLL_BAR_WIDTH (2)
+
+/* Return the starting column (zero-based) of the vertical scroll bar
+ for window W. The column before this one is the last column we can
+ use for text. If the window touches the right edge of the frame,
+ we have extra space allocated for it. Otherwise, the scroll bar
+ takes over the window's rightmost columns. */
+#define WINDOW_VERTICAL_SCROLL_BAR_COLUMN(w) \
+ (((XINT ((w)->left) + XINT ((w)->width)) \
+ < FRAME_WIDTH (XFRAME (WINDOW_FRAME (w)))) \
+ ? XINT ((w)->left) + XINT ((w)->width) - VERTICAL_SCROLL_BAR_WIDTH \
+ : FRAME_WIDTH (XFRAME (WINDOW_FRAME (w))))
+
+/* Return the height in lines of the vertical scroll bar in w. If the
+ window has a mode line, don't make the scroll bar extend that far. */
+#define WINDOW_VERTICAL_SCROLL_BAR_HEIGHT(w) (window_internal_height (w))
HCoop / bpt / emacs.git / blobdiff