Mercurial > emacs
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);