changeset 13083:16638ebb209f

(Fx_create_frame): Set up buffer-predicate slot. (x_decode_color): Get error if color not defined.
author Richard M. Stallman <rms@gnu.org>
date Mon, 25 Sep 1995 18:46:19 +0000
parents 909b5a8414ee
children 805486dfbc82
files src/xfns.c
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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);