# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 766344098 0
# Node ID 3096a6f7fffbe61eb5c2d3d0a6b00185e8ea4e72
# Parent  796416bd7f7e3ab8eaacf9c92096725ef4162659
(Fx_list_fonts): Error if non-X frame used.

(x_window): Don't call initialize_frame_menubar if no menu bar.
(Fx_create_frame): Default menu-bar-lines parm before calling x_window.

diff -r 796416bd7f7e -r 3096a6f7fffb src/xfns.c
--- a/src/xfns.c	Thu Apr 14 17:14:57 1994 +0000
+++ b/src/xfns.c	Thu Apr 14 17:21:38 1994 +0000
@@ -1765,7 +1765,7 @@
 
   f->display.x->column_widget = pane_widget;
 
-  if (!minibuffer_only) 
+  if (!minibuffer_only && FRAME_MENU_BAR_LINES (f) > 0)
     initialize_frame_menubar (f);
 
   /* mappedWhenManaged to false tells to the paned window to not map/unmap 
@@ -2198,6 +2198,9 @@
   x_default_parameter (f, parms, Qborder_color, build_string ("black"),
 		       "borderColor", "BorderColor", string);
 
+  x_default_parameter (f, parms, Qmenu_bar_lines, make_number (0),
+		       "menuBarLines", "MenuBarLines", number);
+
   f->display.x->parent_desc = ROOT_WINDOW;
   window_prompting = x_figure_window_size (f, parms);
 
@@ -2230,9 +2233,6 @@
   f->height = f->width = 0;
   change_frame_size (f, height, width, 1, 0);
 
-  x_default_parameter (f, parms, Qmenu_bar_lines, make_number (0),
-		       "menuBarLines", "MenuBarLines", number);
-
 /* With the toolkit, the geometry management is done in x_window.  */
 #ifndef USE_X_TOOLKIT
   tem0 = x_get_arg (parms, Qleft, 0, 0, number);
@@ -2671,7 +2671,13 @@
   else
     {
       FRAME_PTR f = NILP (frame) ? selected_frame : XFRAME (frame);
-      int face_id = face_name_id_number (f, face);
+      int face_id;
+
+      /* Don't die if we get called with a terminal frame.  */
+      if (! FRAME_X_P (f))
+	error ("non-X frame used in `x-list-fonts'");
+
+      face_id = face_name_id_number (f, face);
 
       if (face_id < 0 || face_id >= FRAME_N_PARAM_FACES (f)
 	  || FRAME_PARAM_FACES (f) [face_id] == 0)