(x_decode_color): Don't return a Lisp_Object.

diff --git a/src/xfns.c b/src/xfns.c
index 999c60d3143f121b4304aa5b6dc820b845ec3081..4355bdb5010371f71b1e7f8d3cdf5e488183dfbb 100644 (file)
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -1302,8 +1302,9 @@ x_decode_color (f, color_name, mono_color)
   if (x_defined_color (f, XSTRING (color_name)->data, &cdef, 1))
     return cdef.pixel;
 
-  return Fsignal (Qerror, Fcons (build_string ("Undefined color"),
-                                Fcons (color_name, Qnil)));
+  Fsignal (Qerror, Fcons (build_string ("Undefined color"),
+                         Fcons (color_name, Qnil)));
+  return 0;
 }