X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/f3e86bf2b6d8eca30779881622b22285787f6262..d0a29e1de77e4c1c01c46d80b6ac2df06b1df2b3:/src/frame.c?ds=sidebyside

diff --git a/src/frame.c b/src/frame.c
index 6e2a1a21e5..1fdeb129f8 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -3030,8 +3030,7 @@ x_set_line_spacing (f, new_value, old_value)
   else if (NATNUMP (new_value))
     f->extra_line_spacing = XFASTINT (new_value);
   else
-    Fsignal (Qerror, Fcons (build_string ("Invalid line-spacing"),
-			    Fcons (new_value, Qnil)));
+    signal_error ("Invalid line-spacing", new_value);
   if (FRAME_VISIBLE_P (f))
     redraw_frame (f);
 }
@@ -3051,8 +3050,7 @@ x_set_screen_gamma (f, new_value, old_value)
     /* The value 0.4545 is the normal viewing gamma.  */
     f->gamma = 1.0 / (0.4545 * XFLOATINT (new_value));
   else
-    Fsignal (Qerror, Fcons (build_string ("Invalid screen-gamma"),
-			    Fcons (new_value, Qnil)));
+    signal_error ("Invalid screen-gamma", new_value);
 
   clear_face_cache (0);
 }