# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 954882465 0
# Node ID b5a7eb24964c0ada6e2c019605cdb6e73ab7d871
# Parent  bb2bb38512a3c2909bcc7f155f2193860c391b25
(compare_window_configurations): Signal an error
if parameters C1 or C2 aren't window configurations.

diff -r bb2bb38512a3 -r b5a7eb24964c src/window.c
--- a/src/window.c	Tue Apr 04 21:04:34 2000 +0000
+++ b/src/window.c	Tue Apr 04 21:07:45 2000 +0000
@@ -5081,6 +5081,11 @@
   struct Lisp_Vector *sw1, *sw2;
   int i;
 
+  if (!WINDOW_CONFIGURATIONP (c1))
+    wrong_type_argument (Qwindow_configuration_p, c1);
+  if (!WINDOW_CONFIGURATIONP (c2))
+    wrong_type_argument (Qwindow_configuration_p, c2);
+  
   d1 = (struct save_window_data *) XVECTOR (c1);
   d2 = (struct save_window_data *) XVECTOR (c2);
   sw1 = XVECTOR (d1->saved_windows);