From b819f760b16314638fb374e73eeb0fba3c60b5c6 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 31 Aug 2010 21:42:39 +0200 Subject: [PATCH] * src/keyboard.c (Fwindow_system): Fix compilation for USE_LISP_UNION_TYPE. --- src/ChangeLog | 4 ++++ src/keyboard.c | 5 +++++ 2 files changed, 9 insertions(+) diff --git a/src/ChangeLog b/src/ChangeLog index 27cda2b66e9..fc98bcc11e3 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2010-08-31 Stefan Monnier + + * keyboard.c (Fwindow_system): Fix compilation for USE_LISP_UNION_TYPE. + 2010-08-31 Chong Yidong * keyboard.c (command_loop_1): Don't call x-set-selection on tty. diff --git a/src/keyboard.c b/src/keyboard.c index 46e0afc15a4..7b1a39403f3 100644 --- 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) { -- 2.39.2