# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1283283759 -7200
# Node ID f977926d575b15fde4b033bfe1b92ac2c22f41a8
# Parent  ad86f610b2b39c3659611df3850a894135455ceb
* src/keyboard.c (Fwindow_system): Fix compilation for USE_LISP_UNION_TYPE.

diff -r ad86f610b2b3 -r f977926d575b src/ChangeLog
--- a/src/ChangeLog	Tue Aug 31 14:04:26 2010 -0400
+++ b/src/ChangeLog	Tue Aug 31 21:42:39 2010 +0200
@@ -1,3 +1,7 @@
+2010-08-31  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* keyboard.c (Fwindow_system): Fix compilation for USE_LISP_UNION_TYPE.
+
 2010-08-31  Chong Yidong  <cyd@stupidchicken.com>
 
 	* keyboard.c (command_loop_1): Don't call x-set-selection on tty.
diff -r ad86f610b2b3 -r f977926d575b src/keyboard.c
--- a/src/keyboard.c	Tue Aug 31 14:04:26 2010 -0400
+++ b/src/keyboard.c	Tue Aug 31 21:42:39 2010 +0200
@@ -1493,6 +1493,11 @@
 }
 #endif
 
+/* FIXME: This is wrong rather than test window-system, we should call
+   a new set-selection, which will then dispatch to x-set-selection, or
+   tty-set-selection, or w32-set-selection, ...  */
+EXFUN (Fwindow_system, 1);
+
 Lisp_Object
 command_loop_1 (void)
 {