* src/keyboard.c (Fwindow_system): Fix compilation for USE_LISP_UNION_TYPE.

b819f760 · Stefan Monnier · 61f7096c · b819f760 · b819f760
Commit b819f760 authored Aug 31, 2010 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 9 additions and 0 deletions

src/ChangeLog src/ChangeLog +4 -0

src/keyboard.c src/keyboard.c +5 -0

No files found.
--- a/src/ChangeLog
+++ b/src/ChangeLog
+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.

--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -1493,6 +1493,11 @@ cancel_hourglass_unwind (Lisp_Object arg)
 }
 #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)
 {