X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/8009eb445e3bb2e536efed1bfa3cef69482ae079..93217cef09eec89554157b06b7d15a6c69f0694f:/src/xfns.c

diff --git a/src/xfns.c b/src/xfns.c
index dd0510cf0f..47916fccb7 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -759,9 +759,7 @@ x_decode_color (f, color_name, mono_color)
   if (x_defined_color (f, SDATA (color_name), &cdef, 1))
     return cdef.pixel;
 
-  Fsignal (Qerror, Fcons (build_string ("Undefined color"),
-			  Fcons (color_name, Qnil)));
-  return 0;
+  signal_error ("Undefined color", color_name);
 }