# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 812054779 0
# Node ID 16638ebb209fcb17e1152fb94113cc3200682b98
# Parent  909b5a8414eef9d1178a5b6e5416e61e76111f55
(Fx_create_frame): Set up buffer-predicate slot.

(x_decode_color): Get error if color not defined.

diff -r 909b5a8414ee -r 16638ebb209f src/xfns.c
--- a/src/xfns.c	Mon Sep 25 18:44:59 1995 +0000
+++ b/src/xfns.c	Mon Sep 25 18:46:19 1995 +0000
@@ -187,7 +187,7 @@
 
 /* The below are defined in frame.c.  */
 extern Lisp_Object Qheight, Qminibuffer, Qname, Qonly, Qwidth;
-extern Lisp_Object Qunsplittable, Qmenu_bar_lines;
+extern Lisp_Object Qunsplittable, Qmenu_bar_lines, Qbuffer_predicate;
 
 extern Lisp_Object Vwindow_system_version;
 
@@ -1165,8 +1165,8 @@
   if (defined_color (f, XSTRING (arg)->data, &cdef, 1))
     return cdef.pixel;
 
-  /* defined_color failed; return an ultimate default.  */
-  return def;
+  Fsignal (Qerror, Fcons (build_string ("undefined color"),
+			  Fcons (arg, Qnil)));
 }
 
 /* Functions called only from `x_set_frame_param'
@@ -3037,6 +3037,8 @@
 		       "menuBar", "MenuBar", number);
   x_default_parameter (f, parms, Qscroll_bar_width, Qnil,
 		       "scrollBarWidth", "ScrollBarWidth", number);
+  x_default_parameter (f, parms, Qbuffer_predicate, Qnil,
+		       "bufferPredicate", "BufferPredicate", symbol);
 
   f->output_data.x->parent_desc = FRAME_X_DISPLAY_INFO (f)->root_window;
   window_prompting = x_figure_window_size (f, parms);